Tugas membuat program data mahasiswa menggunakan short pada pascal

 Sorting atau pengurutan data adalah proses untuk menyusun kumpulan data yang seragam menjadi susunan tertentu.  Berikut adalah coding untuk membuat program urutan data mahasiswa :

uses wincrt;

var

  npm: array[1..25] of string;

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

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

  a,b,c: integer;

  temp: string;

  T: boolean;

  jawab: char;

begin

repeat

  T:=false;

  clrscr;

  write('Masukkan Jumlah Data:');

  readln(c);

  for a:= 1 to c do

   begin

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

    write('npm   : ');readln(npm[a]);

    write('nama  : ');readln(nama[a]);

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

    writeln;

   end;

  for a:= 1 to c-1 do

begin

  for b:= a to c do

   begin

   if (kelas[b] < kelas[a]) then

    begin

     temp := npm[b];

     npm[b]   := npm[a];

     npm[a]   := temp;

     temp := nama[b];

     nama[b]  := nama[a];

     nama[a]  := temp;

     temp := kelas[b];

     kelas[b] := kelas[a];

     kelas[a] := temp;

    end;

   end;

end;

  writeln;

  writeln('Data Setelah diurutkan:');

  for a:= 1 to c do

begin

  writeln;

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

  writeln('-------------------------------');

  writeln('NPM        NAMA         KELAS');

  writeln('-------------------------------');

  for a:= 1 to c do

  begin

   writeln(npm[a]:0,nama[a]:10,kelas[a]:9);

  end;

end;

writeln('------------------------------------');

writeln;

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

until upcase(jawab)='T';

end.

Setelah itu tuliskan coding diatas seperti dibawah ini :

Add caption

Setelah program di compail apakah terjadi kesalah atau tidak,lalu jalan kan program dengan meng klik Run dan akan muncul gambar seperti dibah ini :

 

Add caption

Masukan npm,nama,kelas pada program diatas sampai data ke 15 lalu akan muncul output seperti dibawah ini :

Add caption