uses wincrt;
var s,v,t,v2,s2,t2:real;
s3,v3,t3:integer;
pil:char;
begin
repeat
writeln('=========================');
writeln(' Program Fisika ');
writeln(' Part 2 ');
writeln(' By Tombels ');
writeln('=========================');
writeln;
writeln('Menu utama :');
writeln('1. Mencari kecepatan');
writeln('2. Mencari jarak');
writeln('3. Mencari waktu');
writeln('4. Keluar');
writeln('_________');
writeln('Pilihan : ');readln(pil);
case pil of
'1':begin
clrscr;
writeln('Cara mencari kecepatan');
writeln('Rumus : v=s/t');
writeln('Keterangan : s=waktu');
writeln(' t=waktu');
writeln(' v=kecepatan');
writeln;
write('Masukan besarnya jarak : ');readln(s);
write('Masukan besarnya waktu : ');readln(t);
v:=s/t;
writeln('_____________');
writeln(' Jadi besarnya kecepatan adalah ',v:8:2);
end;
'2':begin
clrscr;
writeln('Cara mencari jarak');
writeln('Rumus : s=v*t');
writeln('Keterangan : s=waktu');
writeln(' t=waktu');
writeln(' v=kecepatan');
writeln;
write('Masukan besarnya waktu : ');readln(t3);
write('Masukan besarnya kecepatan : ');readln(v3);
s3:=t3*v3;
writeln('_____________');
writeln(' Jadi besarnya jarak adalah ',s3);
end;
'3':begin
clrscr;
writeln('Cara mencari waktu');
writeln('Rumus : t=s/v');
writeln('Keterangan : s=waktu');
writeln(' t=waktu');
writeln(' v=kecepatan');
writeln;
write('Masukan besarnya jarak : ');readln(s2);
write('Masukan besarnya kecepatan : ');readln(v2);
t2:=s2/v2;
writeln('_____________');
writeln(' Jadi besarnya waktu adalah ',t2:8:2);
end;
'4':begin
clrscr;
writeln(' Program dah selesai');
writeln(' Maturnuwun');
writeln('Created by Tombels');
end;
end;
until (pil='4');
end.
No comments:
Post a Comment