Program Fisika Part 1

uses wincrt;

var p,v,m,v2,m2,p2:real;

    p3,v3,m3:integer;

    pil:char;

begin

repeat

writeln('=========================');

writeln('     Program Fisika      ');

writeln('         Part 1          ');

writeln('       By TombeLs        ');

writeln('=========================');

writeln;

writeln('Menu utama :');

writeln('1. Mencari massa');

writeln('2. Mencari Momentum');

writeln('3. Mencari kecepatan');

writeln('4. Keluar');

writeln('_________');

writeln('Pilihan : ');readln(pil);

case pil of

'1':begin

clrscr;

writeln('Cara mencari massa');

writeln('Rumus : m=p/v');

writeln('Keterangan : m=massa');

writeln('             p=momentum');

writeln('             v=kecepatan');

writeln;

write('Masukan besarnya momentum  : ');readln(p);

write('Masukan besarnya kecepatan : ');readln(v);

m:=p/v;

writeln('_____________');

writeln(' Jadi besarnya massa adalah ',m:8:2);

end;

'2':begin

clrscr;

writeln('Cara mencari momentum');

writeln('Rumus : p=m*v');

writeln('Keterangan : m=massa');

writeln('             p=momentum');

writeln('             v=kecepatan');

writeln;

write('Masukan besarnya massa     : ');readln(m3);

write('Masukan besarnya kecepatan : ');readln(v3);

p3:=m3*v3;

writeln('_____________');

writeln(' Jadi besarnya momentum adalah ',p3);

end;

'3':begin

clrscr;

writeln('Cara mencari kecepatan');

writeln('Rumus : v=p/m');

writeln('Keterangan : m=massa');

writeln('             p=momentum');

writeln('             v=kecepatan');

writeln;

write('Masukan besarnya momentum  : ');readln(p2);

write('Masukan besarnya massa     : ');readln(m2);

v2:=p2/m2;

writeln('_____________');

writeln(' Jadi besarnya kecepatan adalah ',v2:8:2);

end;

'4':begin

clrscr;

writeln('  Program dah selesai');

writeln('     Maturnuwun');

writeln('Created by TombeLs');

end;

end;

until (pil='4');

end.