Rabu, 05 Oktober 2011

Program sort Data Mahasiswa


PROGRAM SHORT MAHASISWA
program sort_DATA_MAHASISWA;
uses crt;
type
    dataMHS=string;
var
    nama,NPM,kelas: array[1..15] of dataMHS;
    z,a,n: byte;
    temp: string;
const garis='================================';
begin
    clrscr;
    write('masukkan data:');readln(n);
    writeln('data awal:');
    for z:= 1 to n do
     begin
        write('nama:');readln(nama[z]);
        write('NPM:');readln(NPM[z]);
        write('kelas:');readln(kelas[z]);
        writeln;
     end;
    for z:=1 to n-1 do
begin
    for a:=z to n do
    begin
    if (kelas[a] < kelas[z]) then
    begin
     temp := nama[a];
     nama[a] := nama[z];
     nama[z] := temp;
     temp := NPM[a];
     NPM[a] := NPM[z];
     NPM[z] := temp;
     temp := kelas[a];
     kelas[a] := kelas[z];
     kelas[z] := temp;
    end;
    end;
end;
    writeln;
    writeln('setelah diurutkan:');
    for z:= 1 to n do
begin
    writeln;
    writeln('DATA MAHASISWA');
    writeln;
    writeln(garis);
    writeln('nama        NPM          kelas');
    writeln(garis);
    for z:= 1 to n do
    begin
        writeln(nama[z]:0,NPM[z]:16,kelas[z]:9);
    end;
end;
readln
end.


Tidak ada komentar:

Posting Komentar