Listing Program Turbo Pascal “Energi Kinetik”

Untuk mebuat program aplikasi rumus fisika yakni energi kinetik maka tulikan listing program berikut:

program Energi_Kinetik_benda;
uses CRT;
var Ek,m,v : real;
begin
clrscr;
writeln(‘Energi Kinetik Benda’);
writeln(‘————————-‘);
writeln(‘ program Created By Cahya Ahmad Hidayatullah ‘);
writeln;
writeln(‘rumus: Ek = (1/2)mv2 ‘);
writeln(‘——————–‘);
writeln;
write(‘KECEPATAN = ‘); read(v);
write(‘MASSA = ‘); read(m);
Ek := 0.5*m*sqr(v);
write (‘Energi Kinetik Benda adalah: ‘,Ek:4:1,’ m/s’); read(Ek);
readln;
end.

maka output nya nanti adalah sebagai berikut:
Untitledbruuuu

terimaksih semoga bermanfaat 🙂
Trimakasih semo

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Blog di WordPress.com.

Atas ↑

%d blogger menyukai ini: