Minggu, 06 Desember 2009

PROGRAM MENU;

uses wincrt;
VAR
R,A,S,T,JAWAB:INTEGER
LUAS:REAL;
answer:CHAR;
label 10;
BEGIN
clrscr;
WRITELN (' PILIHAN ');
WRITELN;
WRITELN (' 1. MENGHITUNG LUAS LINGKARAN’);
writeln (' 2. MENGHITUNG LUAS SEGITIGA’);
writeln (' 2. MENGHITUNG BUJUR SANGKAR’);
writeln (' 3. FINISH');
writeln;
write ('pilihan anda 1-4? ');readln (JAWAB);
case (JAWAB) of
1: begin
write('JARI-JARI LINGKARAN : '); readln(R);
LUAS:=3.14*R*R
writeln('LUAS LINGKARAN :',LUAS:8:2);
end;
2: begin
write('ALAS SEGI TIGA : '); readln(A);
write('TINGGI SEGI TIGA :'); readln(T);
LUAS:=0.5*alas*tinggi;
writeln('LUAS SEGI TIGA :',LUAS:8:2);
end;
3:begin
Writeln ('THANK’s SEE YOU NEXT TIME!');
writeln;
writeln('tekan sembarang tombol');
END;
END
writeln ( 'akan menghitung lagi (Y/T)? '); readln(answer);
If (answer ='Y') or (answer ='y') then goto 10;
End;
end.

the power of love