Array

nilairr.jpg

copy code start from here:

program latihan2;
Uses wincrt;
Var i, j, jumlah : integer;
    A : Array [1..10] of integer;

begin
     ClrScr;
     write(‘Berapa jumlah data yang diinginkan : ‘); readln(jumlah);
     FOR i:=1 to jumlah DO
     begin
          write(‘Nilai ke-‘,i,’ : ‘); readln(A[i]);
     end;

     writeln;writeln;
     FOR i:=1 to jumlah DO
     begin
          Write(A[i],’ : ‘);
          FOR j:=1 to A[i] DO Write(‘*’);
          writeln;
     end;
     Readkey;
end.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s