PROGRAM PASCAL MENENTUKAN BILANGAN GENAP DAN GANJIL MENGGUNAKAN IF SERTA PERULANGAN FOR NEXT

PROGRAM PASCAL MENENTUKAN BILANGAN GENAP DAN GANJIL MENGGUNAKAN IF SERTA PERULANGAN FOR NEXT

Berikut ini adalah contoh program pascal menentukan bilangan genap dan ganjil menggunakan if serta perulangan for next

1.Programnya

program ganjilgenap;
uses crt;
var
   N,i : integer;
begin
     clrscr;
     writeln('program ganjil genap');
     for N :=1 to 10 do
     begin
          write(N,'.Input Bil = ');readln(i);
          if i mod 2 = 0 then
             writeln(' Keterangan = Genap')
          else
              writeln(' Keterangan = Ganjil')
     end;
     readln;

end.


2.Program dalam Pascal

3.Hasilnya