PROGRAM SORTIR PADA PASCAL

Langkah-langkah membuat program sortir  data mahasiswa menurut kelas dengan menggunakan  Turbo Pascal for Windows V1.5

PROGRAM SORT;

uses wincrt;

var

  nama: array[1..50] of string;

  NPM: array[1..50] of string;

  kelas: array[1..50] of string;

  s,d,n: byte;

  temp: string;

  T: boolean;

  jawab: char;

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

begin

repeat

  T:=false;

  clrscr;

  write('Masukkan Jumlah Data:');

  readln(n);

  for s:= 1 to n do

   begin

    write('Data ke-',s:2,':');readln;

    write('Nama  : ');readln(nama[s]);

    write('NPM   : ');readln(NPM[s]);

    write('Kelas : ');readln(kelas[s]);

    writeln;

   end;

  for s:= 1 to n-1 do

begin

  for d:= s to n do

   begin

   if (kelas[d] < kelas[s]) then

    begin

     temp := nama[d];

     nama[d] := nama[s];

     nama[s] := temp;

     temp := NPM[d];

     NPM[d] := NPM[s];

     NPM[s] := temp;

     temp := kelas[d];

     kelas[d] := kelas[s];

     kelas[s] := temp;

    end;

   end;

end;

  writeln;

  writeln('Data Setelah diurutkan:');

  for s:= 1 to n do

begin

  writeln;

  writeln('===DATA MAHASISWA===');

  writeln(garis);

  writeln('NAMA        NPM         KELAS');

  writeln(garis);

  for s:= 1 to n do

  begin

   writeln(nama[s]:0,NPM[s]:16,kelas[s]:9);

  end;

end;

writeln(garis);

writeln;

write('Akan memproses lagi [Y/T] ?');readln(jawab);

until upcase(jawab)='T';

end.

OUTPUT:

Buat coding seperti gambar diatas.

lalu di compile (Alt+F9), jika berhasil lalu di run (ctrl+F9)

lalu masukan data (Nama, NPM, Kelas), contoh seperti gambar diatas sampai 15 data.

jika sudah memasukan data maka akan muncul seperti gambar diatas, akan tersusun Data Mahasiswa menurut kelas.

untuk download coding klik disini

~SELESAI~