Tugas 3 Algoritma dan Pemrograman

Pengertian Bilangan:
Positif adalah bilangan yang lebih besar dari pada nol (0) : {1,2,3,...)
Negatif adalah bilangan yang lebih kecil dari pada nol (0) : {-1,-2, -3,...}
1. Flow chart:

2. Algoritma Turbo Pascal

Program bilangan_positif;

Uses wincrt;

Var

     angka,hasil:integer;

Begin

     writeln(' menentukan bilangan positif dan negatif');

     writeln('masukan angka : ');read(angka);

     if angka >=0 then writeln (angka, 'adalah bilangan POSITIF')

     else writeln(angka, 'adalah bilangan NEGATIF');

end.