PROGRAM PASCAL MENAMPILKAN BILANGAN GANJIL DARI 1 SAMPAI N DERET MENGGUNAKAN IF SERTA PERULANGAN FOR NEXT

PROGRAM PASCAL MENAMPILKAN BILANGAN GANJIL DARI 1 SAMPAI N DERET  MENGGUNAKAN IF SERTA PERULANGAN FOR NEXT

Berikut ini adalah contoh program pascal menampilkan bilangan ganjil dari 1 sampai n deret menggunakan if seta perulangan for next

1.Programnya
program ganjil;
uses crt;
var
   i,n : integer;
begin
     clrscr;
     write('batas=');readln(n);
     for i :=1 to n*2 do
     begin
          if i mod 2=1 then
          write(i,',');
     end;
     readln;
end.

2.Program dalam pascal

3.Hasil Program