sorting data

Sorting data adalah suatu proses pengelompokan suatu data yang di urutkan berdasarkan pertimbangan tertentu sesuai yang di inginkan. contoh: di urutkan berdasarkan jenis, banyak data, kelas, atau label.

Fungsi sorting adalah untuk mengurutkan data-data,sehingga terlihat rapih dan mudah membaca data.

contoh program sorting data dipascal: 

program tugas_table_sorting;

uses crt;

const

var

kelas: array [1..100] of string [6];

npm : array [1..100] of string [10];

nama : array [1..100] of string [20];

m,t: string;

a,n,brs,input,letak_m,pilih : integer;

label menu;

label exit;

begin

clrscr;

wrote ('isi berapa banyak data :');

readln (a);

for n :=1to a do

begin

clrscr;

gotoxy(20,6); write ('data ke-',n:2);

gotoxy(20,8); write ('nama:');readln(nama[n]);

gotoxy(20,9); write ('npm:'); readln (npm[n]);

gotoxy(20,10); write ('kelas:'); redaln (kelas[n]);

end;

menu:

clrscr;

writeln('pilihan:');

writeln('1.sort by name');

writeln('2.sort by class');

writeln('exit');

write ('pilihannya?:'); readln(pilih);

case pilih of

1: for input := 1 to 1 do

begin

m:= nama[input];

for n:= input to n do

begin

if(nama [a] <=m) theb

begin

m:=nama[n];

letak_m:= n;

end;

end;

t:=kelas [input];

kelas[input]:=kelas[letak_m];

kelas[letak_m]:=t;

t:=npm [input];

npm[input]:=npm[letak_m];

nama[letak_m]:=t;

end;

2: for input := 1 yoa do

begin

m:= kelas[input];

for n:= input to a do

begin

if(kelas[n]<=m) then

begin

m:=kelas[n];

letak_m:= n;

end;

end;

t:=kelas[input];

kelas[input]:=kelas[letak_m];

kelas[letak_m]:=t;

t:=npm[input];

npm[input]:=npm[letak_m];

npm[letak_m]:=t;

t:=nama[input];

nama[input]:=nama[letak_m];

nama[letak]_m:=t;

end;

3:goto exit;

end;

clrscr;

gotoxy(7,5); write(garis);

gotoxy(7,6); write('no');

gotoxy(12,6); write('npm');

gotoxy(22,6); write('nama');

gotoxy(43,6); write ('kelas');

gotoxy(51,6); write ('ttd');

gotoxy(7,7); write (garis);

brs:=8;

for n:= 1 to a do

begin

gotoxy(7,brs); writeln(n:2);

gotoxy(12,brs); writeln(npn[n]);

gotoxy(22,brs; writeln(nama[n]);

gotoxy(43,brs); writeln(kelas[n]);

gotoxy(51,brs); writeln(n,'...');

brs:=brs+1;

end;

gotoxy(7,brs+1); writeln(garis);

readln;

goto menu;

exit:

end.