Program Menentukan Bilangan Positif, Negatif dan Nol

Menentukan Bilangan Positif, Negatif dan Nol

Dasar Pemograman Pascal

Coding untuk program pascal, menentukan suatu bilangan bernailai positif atau negatif atau nol.

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

bilangan:integer;

begin

writeln ('program positif/negatif/nol');

writeln ('------------------------');

writeln ('bilangan=');readln (bilangan);

if bilangan=0 then writeln ('nol')

else

if bilangan >0 then writeln ('positif')

else writeln ('negatif');

readln;

end.