program mau_lagi;
uses crt;
var
tanya:char;
angka1,angka2,jumlah:integer;
begin
repeat;
clrscr;
writeln('PROGRAM MENGHITUNG JUMLAH');
writeln('=========================');
write('masukkan angka1:'); readln(angka1);
write('masukkan angka2:'); readln(angka2);
repeat
write('mau lagi?[y/t]'); readln(tanya);
tanya:=upcase(tanya);
until tanya in['T','Y'];
until tanya='T';
readln;
end.
Senin, 07 Desember 2009
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar