Program Array+Record

Program kali ini adalah dari mata kuliah Pemrograman Dasar, yaitu tentang materi Array dan Record. Program ini dibuat menggunakan bahasa pemrograman Turbo Pascal, jadi tidak perlu banyak penjelasan. Langsung saja kita lihat sourcee code'nya, atau syntax'nya, atau scriptnya, atau apa lah, pasti uda maksud, hehe
Ini coding'nya (hehe, beda lagi namanya) :

uses wincrt;

type karyawan=record

     nama:string[40];

     umur:integer;

     jekel:string[40];

     gaji:integer;

     end;

var

kry:array[1..50] of karyawan;

s,l,o:integer;

sort:karyawan;

begin

 write('masukkan banyaknya data yang akan di masukkan = ');readln(l);

 for s:=1 to l do

  begin

   write(s,'. Masukkan nama karyawan = ');readln(kry[s].nama);

   write('   Masukkan umur karyawan = ');readln(kry[s].umur);

   write('   Masukkan jenis kelamin = ');readln(kry[s].jekel);

   write('   Masukkan gaji karyawan = ');readln(kry[s].gaji);

   writeln('=================================================');

  end;

   clrscr;

   for s:=1 to l-1 do

   begin

        for o:=s+1 to l do

        if (kry[s].gaji) < (kry[o].gaji) then

        begin

        sort:=kry[s];

        kry[s]:=kry[o];

        kry[o]:=sort;

        end;

   end;

   writeln('                 PT. MISKIN-MISKIN SEJAHTERA                ');

   writeln('____________________________________________________________');

   writeln('[NO]         [Nama]   [Umur]    [Jenis Kelamin]    [Gaji]  ');

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

    for s:=1 to l do

     begin

      writeln(s:4,kry[s].nama:15,kry[s].umur:9,kry[s].jekel:19,'':4,'U$.',kry[s].gaji);

     end;

     writeln;

   writeln('<+=+=+Data Karyawan Di atas Ditampilkan');

   writeln('Diurutkan Berdasarkan Besar Gaji=+>');

  

end.

Dan ini dia printscreen dari program tersebut yang sedang dieksekusi.

 Gambar.1

  Gambar.2

Kedua gambar tersebut aslinya gabung dalam satu tampilan programnya. Bisa dilihat contoh data yang diinputkan adalah 4, lha setelah input data itu, bisa dilihat pada syntax di atas, bahwa di bawah perulangan untuk input data, terdapat fungsi clear, jadi ketika input udah selesai, kita tean Enter, maka tampilan input tadi dihapus, diganti dengan hasil/outputnya. Jadi gambarnya ada dua, yaitu gambar pas inputnya dan pas outputnya. Terima kasih. Oya, untuk inputnya itu data diurutkan berdasarkan besar gajinya, dari yang terbesar ke yang terkecil. Terima kasih lagi deh, hehe