TUGAS 1 (PROGRAM SORTIR)

TUGAS 1 (PROGRAM SORTIR)

Agung Priyadi Nugraha  (30111352)

A_Pnugraha@ymail.com

agung.priyadi.n@student.gunadarma.ac.id

BOGOR | 2DBO1 MANAJEMEN INFORMATIKA


program sort_report;
uses crt;
var
   npm       : array[1..20] of string[8];
   kelas     : array[1..20] of string[5];
   nama      : array[1..20] of string[30];
   m, a      : string;
   banyak, i, input, n, z : integer;
begin
     clrscr;
     write('Isi berapa data yang diperlukan : '); readln(banyak);
     writeln;
     for i := 1 to banyak do
     begin
     write('NPM   = '); readln(npm[i]);
     write('KELAS = '); readln(kelas[i]);
     write('NAMA  = '); readln(nama[i]);
     writeln;
     end;

     {cetak inputan data mahasiswa}
     textcolor(red);
     writeln ('------------------DATA MAHASISWA------------------');
     writeln ('==================================================');
     writeln ('NO.     NPM       KELAS             NAMA          ');
     WRITELN ('==================================================');
     for i := 1 to banyak do
     begin
     writeln (i:2,npm[i]:11, kelas[i]:10, nama[i]:27);
     end;
     writeln ('==================================================');

     {menyortir data}
     for input := 1 to banyak do
         begin
         m := nama[input];
           for n := input to banyak do
           begin
                if (kelas [n] <= m) then
                begin
                m := kelas[n];
                z := n;
                end;
           end;
         a := npm[input];
         npm[input] := npm[z];
         npm[z] := a;

         a := kelas[input];
         kelas[input] := kelas[z];
         kelas[z] := a;

         a := nama[input];
         nama[input] := nama[z];
         nama[z] := a;
         end;

     {mencetak data mahasiswa perkelas}
     writeln;
     textcolor(green);
     writeln ('Data Setelah Disortir');
     writeln ('--------------------------------------------------');
     writeln ('NO.     NPM       KELAS             NAMA          ');
     writeln ('--------------------------------------------------');
     for i := 1 to banyak do
     begin
          writeln (i:2, npm[i]:11, kelas[i]:10, nama[i]:27);
     end;
     writeln ('--------------------------------------------------');

     readln;
end.

donwload link dibawah untuk 4shared

http://www.4shared.com/rar/a3X00wZl/TUGAS_1_APN_agung_2db01_.html

donwload link dibawah untuk ziddu

http://www.ziddu.com/download/20528043/TUGAS1APNagung2db01.rar.html

Penulis : Agung Priyadi Nugraha ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel TUGAS 1 (PROGRAM SORTIR) ini dipublish oleh Agung Priyadi Nugraha pada hari Jumat, 05 Oktober 2012. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan TUGAS 1 (PROGRAM SORTIR)