Berlatih Membuat Program Pascal Bagian 7

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:
Berlatih Membuat Program Pascal Bagian 7
Hasil .exe dari program diatas dapat anda unduh disini

Posting Komentar