Wednesday, December 4, 2013

PROGRAM MENENTUKAN NILAI TERBESAR DENGAN PASCAL

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