Membuat DNS dengan Pascal

Hari ke hari, minggu ke minggu and semester ke semester........
Tugas kuliah makin numpuk , karna tidak bisa mengatur waktu.

kali ini saya mau share cara membuat DNS dengan bahasa Pascal.
sebenarnya tidak terlalu sulit, selama logika yang kita gunakan lancar.

berikut ini adalah Source code nya :
uses crt;

type mahasiswa = RECORD

KMK     : String;

Nama    : String;

Nilai: integer;

ket     : String;

end;

var

mhs : Array[1..5] of mahasiswa;

x,y,z:Integer;

begin

clrscr;

writeln('--Created By Dito Endero Nakresna--------------');

writeln('                      DNS                      ');

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

write  (' banyak data mahasiswa yang akan dimasukkan: ');

readln (x);

writeln('');

for y:=1 to x do

begin

with mhs[y] do

begin

write(' Kode Mata Kuliah   : ');

readln(KMK);

write(' Nama mata kuliah  : ');

readln(Nama);

write(' nilai     : ');

readln(nilai);

writeln(x);

end;

end;

clrscr;


writeln('                        DAFTAR NILAI SISWA                         ');

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

writeln('| NO |    KODE   |        MATA KULIAH       |     NILAI    |    KET  |');

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

for y:=1 to x do

begin

gotoxy(1,y+5);write('|');

gotoxy(3,y+5);write(y);

with mhs[y] do

begin

gotoxy(6,y+5);write('|');

gotoxy(8,y+5);

write(KMK);

gotoxy(18,y+5);write('|');

gotoxy(20,y+5);

write(Nama);

gotoxy(45,y+5);write('|');

gotoxy(51,y+5);

write(nilai);

gotoxy(60,y+5);write('|');

z := 10 - nilai;
         if z=0 then ket := 'A' else
         if z=1 then ket := 'B' else
         if z=2 then ket := 'C' else
         if z=3 then ket := 'D' else


ket:='E';

gotoxy(63,y+5);

write(ket);

gotoxy(70,y+5);write('|');

end;

end;


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

readln;

end.




Maka output  program diatas seperti gambar dibawah ini :