Monday, October 22, 2012

PASCAL PROGRAM MENENTUKAN JENIS BILANGAN POSITIP, NEGATIP DAN NOL


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