CONTOH PROGRAM MENU

Program menu_coba;
uses wincrt;
var
pil, pil_u : string[1];
jari : integer;
luas, kel : real;

Procedure wd;
begin
clrscr;
Writeln('---------------------------------');
Writeln('Jari-jari Luas Keliling');
Writeln('---------------------------------');
jari:=10;
While jari < 20 Do
Begin
luas:=3.14*jari*jari;
kel:=2*3.14*jari;
Writeln(jari,' ',luas:4:2,' ',kel:4:2);
jari:= jari+2;
End;
end;

Procedure ru;
begin
clrscr;
Writeln('---------------------------------');
Writeln('Jari-jari Luas Keliling');
Writeln('---------------------------------');
jari:=8;
Repeat
jari:= jari+2;
luas:=3.14*jari*jari;
kel:=2*3.14*jari;
Writeln(jari,' ',luas:4:2,' ',kel:4:2);

Until jari=20;
end;

Procedure fd;
begin
clrscr;
Writeln('---------------------------------');
Writeln('Jari-jari Luas Keliling');
Writeln('---------------------------------');
For jari:=10 to 21 do
begin
luas:=3.14*jari*jari;
kel:=2*3.14*jari;
Writeln(jari,' ',luas:4:2,' ',kel:4:2);
jari:=jari+1;
end;
end;


Begin
repeat;
clrscr;
Writeln('-----------------------------------');
Writeln('PROGRAM LUAS DAN KELILING LINGKARAN');
Writeln('-----------------------------------');
Writeln('[1]. Dengan While Do ');
Writeln('[2]. Dengan Repeat Until ');
Writeln('[3]. Dengan For Do ');
Writeln('-----------------------------------');
Write('Pilih [1/2/3]');readln(pil);
if (pil='1') then
wd else
if (pil='2') then
ru else
fd;
Write('Kembali ke menu [Y/T]');readln(pil_u);
Until pil_u='T';
end.