hidayatullahahmad

Mencoba berbagi dengan apa yang telah didapat. Hanya segelintir orang yang ingin mewujudkan Mimpin dan juga Harapan

Listing Program Turbo Pascal “Energi Kinetik”

Tinggalkan komentar

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

Penulis: hidayatullahahmad

Sekedar berbagi dengan apa yang telah didapat.

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