Selamat datang di blog yang sangat sederhana ini. Semoga anda mendapatkan banyak manfaat. Terima Kasih.

Saturday, October 1, 2011

Program Fisika Part 2

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