ANGKA BERURUTAN

PROGAM ANGKA BERURUTAN DAN ANGKA GANJIL

Saya baru sempet nge blog lagi nih .. ^^

mo berbagi script lagi nih tentang pemrogaman Delphi7 ...

kali ini membahas tentang mencoba membuat angka berurutan.

yaudah .. langsung capcus aja .. ^^

1. langkah awal buka progam borland delphi7
2. klik file - new - other - Console Application.

1. Angka berurutan

    

MENCOBA ANGKA BERURUTAN 

program Project2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

Var

i,A : integer;

begin

  I:=1;

  while I<= 10 do

  begin

  A:=I;

  writeln(A);

  I:=I+1;

  end;

  readln;

end.

Nah itu salah satu contoh script dasar pemrogaman Delphi7.

Selamat menconba ^^