Contoh program Torbo Pascal 2

Program Turbo Pascal 

Menghitung Energi Kinetik

nah,. berikut contoh program pascal sederhana,. yaitu menghitung besar energi kinetik,..,

program penghitungan_energi_kinetik;

uses wincrt;

var

m,v:real;

Ek:real;

begin clrscr;

writeln ('masukkan masa (kg)');

readln (m);

writeln ('masukkan kecepatan (m/s)');

readln (v);

Ek:=1/2*m*v*v;

writeln ('jadi Ek adalah = ',Ek:3:2, (' J'));

writeln ('selamat..!! ');

end.