Array
Untuk latihan kali ini, kita akan mempelajari data yang dikumpulkan dalam satu variabel yang disebut array. Array di Pascal memiliki ciri khas yaitu terdiri dari sekumpulan data dalam satu type data. Agar array dapat dimanfaatkan maka array terlebih dulu harus dideklarasikan dengan suatu identifier dan ditentukan dulu tipe datanya serta indexnya.
Contohnya:
Nilai : array[1..10] of integer;
Array sebenarnya membuat proses data lebih cepat dari pada variabel yang dipanggil satu persatu. Array menempati memory komputer dalam satu jenis tipe data yang sama dengan nilai yang dapat berbeda-beda. Array biasa juga disebut sebagai tipe data larik yang bisa dibuat lebih dari satu dimensi. Setiap elemen array ditandai dengan index.
Langsung saja kita ke contoh programnya:
program latih7;
uses crt;
var
i,j,k : integer;
a,b : array[1..10] of integer;
BEGIN
clrscr;
writeln('Program Pengurutan Nilai');
writeln('------------------------');
for i:=1 to 10 do
begin
write('Masukkan nilai ke ',i,' :');readln(a[i]);
end;
b:=a;
repeat
j:=1;
repeat
if a[j]>a[j+1] then
begin
k := a[j];
a[j] := a[j+1];
a[j+1] := k;
end;
if b[j]<b[j+1] then
begin
k := b[j];
b[j] := b[j+1];
b[j+1] := k;
end;
inc(j);
until j=10;
dec(i);
until i=1;
writeln;
writeln('------------------------');
writeln('Setelah diurutkan dari kecil ke besar');
write('adalah: ');
for i:=1 to 10 do write(a[i]:5);
writeln;
writeln;
writeln('Setelah diurutkan dari besar ke kecil');
write('adalah: ');
for i:=1 to 10 do write(b[i]:5);
readln;
END.
Maka bila dijalankan tampilan dari program diatas sebagai berikut:
Hasil .exe dari program diatas dapat anda unduh disini
Posting Komentar