Oleh: lesmanaindra | 11 Mei 2011

Pascal (sorting)


ini dia soal yang tadi dikelas, suruh nampilin nim, nama, kelas, dari 4 orang. Lalu di sort menurut nim nya..

berikut source code yang ane buat :

program nama;
uses wincrt;
type data=record
     no:integer;
     nama:string;
     kelas:string;
     end;
var
ini:array[1..4] of data;
i,j:integer;
temp:data;

begin
clrscr;
for i:=1 to 4 do
 begin
 write(‘Masukan NIM ke-‘,i,’: ‘);
 readln(ini[i].no);
 write(‘Nama   : ‘);
 readln(ini[i].nama);
 write(‘Kelas  : ‘);
 readln(ini[i].kelas);
 end;
writeln(‘nim’:5,’nama’:10,’kelas’:10);
for i:=1 to 4 do
begin
writeln(ini[i].no:5,ini[i].nama:10,ini[i].kelas:10);
end;
{proses pengurutan}
begin
for i := 1 to 4 do
 for j := 1 to 3 do
 if ini[i].no < ini[j].no then
 Begin
 temp := ini[i];
 ini[i] := ini[j];
 ini[j] := temp;
 end;
writeln(‘Hasil yang telah diurutkan berdasar NIM :’);
writeln(‘—————————————–‘);
writeln(‘nim’:5,’nama’:10,’kelas’:10);
for i := 1 to 4 do
writeln(ini[i].no:5,ini[i].nama:10,ini[i].kelas:10);
end;
readln;
end.
end.

hasilnya seperti ini kalo di run :


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Kategori

%d blogger menyukai ini: