Contoh Array
Pada source array berikut ini, dibuat suatu program untuk menyimpan array sebanyak 100 (max), pada awalnya program akan meminta jumlah data yang akan di masukkan. Dalam memberikan nilai pada array, akan dilakukan pengacak-an serta pengecekan nilai yang dihasilkan. Nilai yang dihasilkan kemudian ditampilkan.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | uses wincrt; var X : array[1..100] of integer; a,b,n,r : integer; beda : boolean; begin write('Banyaknya data : ');readln(n); if n > 100 then begin writeln('Melebihi batas, (tidak boleh lebih dari 100)'); exit; end; for a:=1 to n do begin repeat r:=random(100)+1; b:=1;beda:=true; repeat if r=x[b] then beda:=false else inc(b); until (b>a-1) or (beda=false); until (beda); x[a]:=r; end; writeln; for a:=1 to n do write(X[a],' '); end. |
Mmm..
saya pnah dsuruuh mmbuat proram seperti ini :
input 1 : array
input 2 : tidak
input 3 : susah
output : susah tidak array
disuruuh mnggunakan array of string..
bgaimnaa mmbwt prgramnyaa,, mhon pnjelasan,,
terimaa kasiih
@takirey
Coba di lihat di :
Program dengan Array of String
@takirey
untuk membaliknya perlu sedikit perubahan pada Program dengan Array of String, yaitu pada baris 13 :
for a := 1 to 3 do
menjadi
for a := 3 downto 1 do
semoga membantu…