Monday, October 22, 2012

PASCAL PROGRAM UNTUK MENENTUKAN BILANGAN TERBESAR


program menentukan_bil_terbesar;
uses wincrt;
var angka1,angka2: integer;
begin
writeln ('PROGRAM MENENTUKAN BILANAGN YANG TERBESAR');
writeln ('=============================================');
writeln;
write('Masukkan angka pertama: '); readln(angka1);
write('Masukkan angka kedua : ');
readln(angka2);
write('jadi angka terbesar adalah : ');
if (angka1>angka2) then
writeln(angka1)
else writeln(angka2);
end.

No comments:

Post a Comment