- INPUT
- PROSES
- OUTPUT
- SOURCE CODE
a.
Tampilan saat program dijalankan
(gambar 1)
b.
Tampilan saat ingin memilih menu volume tabung
(gambar 2)
c.
Tampilan saat menginputkan data-data yang ada pada menu volum tabung
(gambar 3)
c.
Tampilan saat ingin memilih menu ke-2 yaitu volume bola
(gambar 4)
d.
Tampilan saat menginputkan nilai-nilai yang ada pada menu volume bola
(gambar 5)
e.
Tampilan saat ingin memilih menu ke-3 yaitu volume alas prisma segitiga
(gambar 6)
f.
Tampilan saat menginputkan nilai-nilai yang ada pada menu ke-2
(gambar 7)
g.
Tampilan saat ingin keluar dari program
(gambar 8)
|
Source Code
|
|
uses crt;
function menu:integer;
var pilihan:integer;
begin
clrscr;
writeln;
writeln('=======================================');
writeln('============ Pilih Menu ===============');
writeln('=======================================');
writeln('|[1]. Volume Tabung |');
writeln('|[2]. Volume Bola |');
writeln('|[3]. Volume Alas Prisma
Sigitiga |');
writeln('|[0]. exit |');
writeln('=======================================');
write ('Pilihan Anda : ');read(pilihan);
menu:=pilihan;
end;
procedure volumetabung;
var r,t:integer; v,pi:real;
begin
clrscr;
write('Masukkan Jari - Jari : ');readln(r);
write('Masukkan Tinggi : ');readln(t);
pi:=22/7;
v:=pi*t*(r*r);
writeln('Hasil Volume : ',v:0:2);
write('Tekan enter untuk kembali
'); readkey;
end;
procedure volumebola;
var r:integer; v:real;
begin
clrscr;
write('Masukkan Jari - Jari :
');readln(r);
v:=(4/3)*pi*r*r*r;
writeln('Hasil Volume :',v:0:2);
writeln('Tekan enter untuk
kembali '); readkey; end;
1.
procedure volumeprisma;
var als,tsg,tpr:integer; v:real;
begin
clrscr;
write('Alas Segitiga : ');readln(als);
write('Tinggi Segitiga : ');readln(tsg);
write('Tinggi Prisma : ');readln(tpr);
v:=(1/2*als*tsg)*tpr;
writeln('Hasil Volume :',v:0:2);
writeln('Tekan enter untuk
kembali '); readkey; end;
2.
3.
var pilihan:integer;
begin
repeat
pilihan:=menu;
if pilihan=1 then volumetabung;
if pilihan=2 then volumebola;
if pilihan=3 then volumeprisma;
if pilihan=0 then exit;
until menu=0;
readln;
end.
|
Tidak ada komentar:
Posting Komentar