Membuat Procedure Menu Pada Pascal

Tugas Program Komputer


uses crt;
var L,K,s,a,t,p,y,r:real;
pilih:byte;
const phi=3.14;
procedure input_lingkaran;
begin
writeln (‘ini adalah sebuah program untuk menghitung luas dan keliling lingkaran’);
writeln (‘masukkan nilai r’);
readln (r);
end;
procedure input_segitiga;
begin
writeln(‘Menentukan Luas segitiga’);
write(‘Masukkan nilai alas :’);read(a);
write(‘Masukkan nilai tinggi :’);read(t);
end;
procedure input_persegipanjang;
begin
writeln(‘ Menentukkan Luas Persegi Panjang’);
write(‘Masukkan nilai panjang :’);read(p);
write(‘Masukkan nilai tinggi :’);read(y);
end;
procedure input_kubus;
begin
writeln(‘Menentukan Luas Kubus’);
write(‘Masukkan panjang sisi :’);read(s);
end;
procedure rumus_lingkaran;
begin
L:=3.14*r*r;
K:=2*3.14*r;
end;
procedure rumus_segitiga;
begin
L:=(a*t)/2;
end;
procedure rumus_persegipanjang;
begin
L:=p*y;
end;
procedure rumus_kubus;
begin
L:=6*s*s;
end;
procedure output_lingkaran;
begin
writeln (‘maka Luasnya adalah ‘);
writeln (L:2:2);
writeln (‘dan Kelilingnya adalah ‘);
writeln (K:2:2);
end;
procedure output_segitiga;
begin
write(‘Maka Luas Segitiganya adalah ‘);write(L:2:2);
end;
procedure output_persegipanjang;
begin
write(‘Maka Luas Persegi Panjang adalah ‘);write(L:2:2);
end;
procedure output_kubus;
begin
write(‘Maka Luas Kubusnya adalah ‘);write(L:2:2);
end;
procedure lingkaran;
begin
writeln;
input_lingkaran;
writeln;
rumus_lingkaran;
writeln;
output_lingkaran;
end;
procedure segitiga;
begin
writeln;
input_segitiga;
writeln;
rumus_segitiga;
writeln;
output_segitiga;
end;
procedure persegipanjang;
begin
writeln;
input_persegipanjang;
writeln;
rumus_persegipanjang;
writeln;
output_persegipanjang;
end;
procedure kubus;
begin
writeln;
input_kubus;
writeln;
rumus_kubus;
writeln;
output_kubus;
end;
begin
while true do
begin
writeln;
writeln;
clrscr;
write(‘***********************************************’);writeln;
write(‘***SELAMAT DATANG DI PROGRAM MENGHITUNG LUAS***’);writeln;
write(‘************* ROZAQ ACEWELL *************’);writeln;
write(‘************NIM : 2010.69.04.0062***************’);writeln;
write(‘***********************************************’);writeln;
write(‘=================== MENU ==================’);writeln;
write(’1. Lingkaran’);writeln;
write(’2. Segitiga’);writeln;
write(’3. Persegi Panjang’);writeln;
write(’4. Kubus’);writeln;
write(’5. Keluar’);writeln;
write(‘===============================================’);writeln;
pilih:=0;
while(pilih5) do
begin
write(‘ Silahkan pilih nomor : ‘);read(pilih);
if (pilih5) then
end;
case pilih of
1: lingkaran;
2: segitiga;
3: persegipanjang;
4: kubus;
5: exit;
end;
end;
end.