TUGAS Struktur & Organisasi Data 1

Nama : Nurma Yulia Cahyani
NPM  : 15111366
Kelas: 2KA04

coding:

uses crt;

const

garis='--------------------------------------';

var

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

Nama      :array[1..100]of string[15];

Kelas     :array [1..100]of string[5];

a,b,baris,bagian,tempatnya_min,pilihan: Integer;

min,temp:string;

label Menu;

label exit;

begin

clrscr;

write('Berapa data yang mau diisi?');

readln(a);

for b:= 1 to a do

begin

clrscr;

gotoxy(30,4);write('DATA KE-',b:2);

gotoxy(10,7);write('NPM  :') ; readln(NPM[b]);

gotoxy(10,8);write('NAMA :'); readln(NAMA[b]);

gotoxy(10,9);write('KELAS:'); readln(KELAS[b]);

end;

menu:

clrscr;

writeln('Masukan Pilihan Anda :');

writeln('1.Urutkan Berdasarkan Kelas');

writeln('2.Urutkan Berdasarkan Nama');

writeln('3.Exit');

write ('Pilih Pilihan Anda :');readln(pilihan);

case pilihan of

1:for bagian := 1 to a do

begin

min:= kelas[bagian];

for b:= bagian to a do

begin

if (kelas[b] <= min) then

begin

min:= kelas[b];

tempatnya_min:= b;

end;

end;

temp := kelas[bagian];

kelas[bagian]:=kelas[tempatnya_min];

kelas[tempatnya_min]:=temp;

temp:= nama[bagian];

nama[bagian]:=nama[tempatnya_min];

nama[tempatnya_min]:=temp;

temp :=npm[bagian];

npm[bagian]:= npm[tempatnya_min];

npm[tempatnya_min]:= temp;

end;

2:for bagian := 1 to a do

begin

min := nama [bagian];

for b:= bagian to a do

begin

if (nama[b] <=min)then

begin

min:= nama[b];

tempatnya_min:= b;

end;

end;

temp:=kelas[bagian];

kelas[bagian] :=kelas[tempatnya_min];

kelas[tempatnya_min]:=temp;

temp:=nama[bagian];

nama[bagian]:=nama[tempatnya_min];

nama[tempatnya_min]:=temp;

temp:=npm[bagian];

npm[bagian]:=npm[tempatnya_min];

npm[tempatnya_min]:=temp;

end;

3: GOTO EXIT;

end;

clrscr;

gotoxy(15,3);write('DATA MAHASISWA');

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

gotoxy(7,5);write('No');

gotoxy(10,5);write ('NPM');

gotoxy(25,5);write('Nama');

gotoxy(40,5);write('Kelas');

gotoxy(51,5);write ('Paraf');

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

baris:=7;

for b:=1 TO a DO

begin

gotoxy(6,baris);writeln(b:2);

gotoxy(10,baris);writeln(npm[b]);

gotoxy(25,baris);writeln(nama[b]);

gotoxy(40,baris);writeln (kelas[b]);

gotoxy(51,baris);writeln(b,'............');

baris:=baris + 1;

end;

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

readln;

goto menu;

exit:

end.

BERDASARKAN NAMA

BERDASARKAN KELAS