LOGIKA DAN PEMROGRAMAN (TUGAS 6)

PROGRAM MENENTUKAN BILANAGAN POSITIF DAN NEGATIF

 FLOWCHART

CODING

uses crt;

var a: integer;

      b: string;

begin

    clrscr;

    writeln('Program menentukan bilangan positif & negatif');

    writeln('=============================================');

    write('masukan bilangan :');

    readln(a);

    if a < 0 then

        b:='Bilangan negatif'

    else

    if a > 0 then

        b:='Bilangan positif'

    else
  
        b:='Nol';
  
    writeln('Bilangan tersebut adalah ',b);

    writeln;
    writeln('=============================================');

end.