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!