Array 1 Dimensi

Salah satu struktur data yang teramat penting adalah array atau larik. Array merupakan bagian dasar, yang disebut blok, guna keperluan pembentukan suatu struktur data lain yang lebih kompleks. Hampir setiap jenis struktur data kompleks dapat disajikan secara logik oleh array.
Kita dapat mendefinisikan array sebagai suatu himpunan hingga elemen, terurut dan homogen. Terurut, kita artikan bahwa elemen tersebut dapat diidentifikasi sebagai elemen pertama, elemen kedua, dan seterusnya sampai elemen ke-n. Sedangkan pengertian elemen yang homogen adalah bahwa setiap elemen dari sebuah array tertentu haruslah mempunyai tipe data yang sama.

Sebagai Contoh berikut ini :

  • program urutkan_data;
  • uses wincrt;
  • type
  •     urtdata=string;
  • var
  •    i,j:byte;
  •    temp:urtdata;
  •    lagi:char;
  •    data:array[1..10] of urtdata;
  •    k:integer;
  • procedure kop;
  • begin
  • gotoxy(21,1);writeln('------------------------------------');
  • gotoxy(21,2);writeln('>> Program Pengurutan Data Unisla <<');
  • gotoxy(21,3);writeln('-                                  -');
  • gotoxy(21,4);writeln('------------------------------------');
  • writeln;
  • end;
  • begin
  • lagi:='y';
  • while (lagi='y') or (lagi='Y') do
  • begin
  • clrscr;
  • kop;
  • write('Masukkan Jumlah Data : ');readln(k);
  • writeln;
  • for i:=1 to k do
  • begin
  •      write('Masukkan Data ke - ',i,' : ');readln(data[i]);
  • end;
  • for i:= 1 to k-1 do
  • for j:= i to k do
  • if data[i]>data[j]  then
  • begin
  •      temp:=data[i];
  •      data[i]:=data[j];
  •      data[j]:=temp;
  • end;
  • clrscr;
  • kop;
  • writeln(' Data Setelah di urutkan');
  • writeln('-------------------------');
  • writeln;
  • writeln;
  • for i:=1 to k do
  •     writeln(i:2,'. ',data[i]);
  • writeln;
  • write('Ulangi ? (Y/T) : ');readln(lagi);
  • end;
  • end.


Share this post!

Bookmark and Share

My Blog List