Wednesday, December 4, 2013

PROGRAM MENENTUKAN JENIS BILANGAN BULAT POSITIF & NEGATIF DENGAN PASCAL

program Menentukan_Jenis_Bilangan;
uses wincrt;
var
bilangan : integer;
begin
write ('Masukkan bilangan = '); readln (bilangan);
write ('jadi ' , bilangan , ' adalah : ');
if bilangan > 0 then
writeln ('bilangan positif')
else
if bilangan < 0 then
writeln ('bilangan negatif')
else
writeln ('bilangan nol');
readln;
end.

No comments:

Post a Comment