PROGRAM PASCAL MENGGUNAKAN LOOPING UNTUK MENENTUKAN BILANGAN GANJIL ATAU GENAP

Bissmillah....


Baiklah sahabat kita kita kali ini akan belajar membuat program pascal pascal menggunakan looping, disini kita akan mencoba menentukan  BILANGAN GENAP dan  BILANGAN GANJIL

baiklah langsung saja, dibawah ini merupakan kodingnya

-Pengulangan (LOOPING)

program pengulangan;

uses crt;

var

 i,n: integer;

begin

 clrscr;

writeln('looping bilangan ganjil');

write('batas angka :'); readln(n);

 i:=1;

while i<=n do

 begin

if(i mod 2=1) then

writeln('ini angka yang ke-',i);

  i:=i+1;

  end;

writeln;

writeln('looping bilangan genap');

write('batas angka :'); readln(n);

  i:=1;

  while i<=n do

  begin

  if(i mod 2=0) then

  writeln('ini angka yang ke-',i);

  i:=i+1;

  end;

  writeln;

  readln;

  end.

INI HASIL PROGRAMNYA KALO DI RUN

TERIMAKASIH. SEMOGA BERMANFAAT