Pascal - Data Baru

program DNS;
{Membuat Program Pembuatan DNS dalam Bahasa Pascal}
uses crt;
type

    mhs=record
        NPM:string[8];
        nama:string[30];
        jumlahmk,jumlahsks,jumlahmutu:integer;
        ipk:real;
end;
{Membuat Type Record Datamhs Pada Bahasa Pascal}
var datamhs:mhs;
    matkul:array[1..8] of string;
    var totalsks,totalmutu,total,x,m,a,n,sem:integer;
    sks:array[1..8] of integer;
    nilai:array[1..8] of string;
    kode:array[1..8] of string;
    mutu:array[1..8] of integer;
    totalnilai:real;
    jenis,valid:string;
label 10,20;
{Mendeklarasikan Variabel dan Target Label}
begin
10:clrscr;

matkul[1]:='ALGORITMA PEMROGRAMAN 1';
matkul[2]:='BAHASA INGGRIS 1';
matkul[3]:='FISIKA DAN KIMIA DASAR';
matkul[4]:='ILMU BUDAYA DASAR';
matkul[5]:='MATEMATIKA DASAR 1';
matkul[6]:='PENDIDIKAN KEWARGANEGARAAN';
matkul[7]:='PENG.TEKNOLOGI SISTEM INFORMASI';
matkul[8]:='PRAKTIKUM ALGORITMA & PEMROGRAMAN';
sks[1]:=3;kode[1]:='IT011302';
sks[2]:=1;kode[2]:='IT011104';
sks[3]:=3;kode[3]:='IT011306';
sks[4]:=1;kode[4]:='HM011102';
sks[5]:=3;kode[5]:='IT011310';
sks[6]:=2;kode[6]:='PP000207';
sks[7]:=4;kode[7]:='IT011416';
sks[8]:=1;kode[8]:='IT011119';
sem:=59;
n:=9;
{Memasukkan Variabel Ber-Index Dalam Bahasa Pascal}
with datamhs do
        begin
          nama:='Hifshan Riesvicky';
          writeln('Masukkan Record Nilai Mahasiswa Dengan nama ',nama);
          write('Nama MataKuliah');gotoxy(45,2);writeln('Nilai(UpperCaseInput)');
          gotoxy(1,3);writeln('-----------------------------------------------------------------');
          m:=4;
          total:=0;
          for a:=1 to 8 do
          begin
              gotoxy(1,m);write(matkul[a]);
              gotoxy(56,m);readln(nilai[a]);
              if nilai[a]='A' then
                   x:=4
              else if nilai[a]='B' then
                   x:=3
              else if nilai[a]='C' then
                   x:=2
              else if nilai[a]='D' then
                   x:=1
              else if nilai[a]='E' then
                   x:=0
              else begin
                writeln('DATA INVALID');readln;
                totalsks:=0;
                totalnilai:=0;
                totalmutu:=0;
              goto 10;
              end;
              mutu[a]:=x*sks[a];
              total:=total+1;
              totalsks:=totalsks+sks[a];
              totalmutu:=totalmutu+mutu[a];
              m:=m+1;
              NPM:='13110310';
              jumlahmk:=8;
              jumlahsks:=totalsks;
              jumlahmutu:=totalmutu;
          end;write('TOTAL DATA');
          gotoxy(56,m);writeln(total);
          Write('Apakah Data ini sudah benar?(y/t)');readln(valid);
          if valid='y' then goto 20
          else if valid='t'then
          begin
                writeln('Input Data Akan Diulangi Dalam 5 Detik...');
                delay(5000);
                totalsks:=0;
                totalmutu:=0;
                totalnilai:=0;
                goto 10;
          end
          else begin
                writeln('DATA YANG ANDA MASUKKAN INVALID');
                totalsks:=0;
                totalmutu:=0;
                totalnilai:=0;
                goto 10;
          end;
20:end;
{menggabungkan Perintah Record dengan kondisi agar mencapai Nilai
yang dimaksud}
clrscr;
writeln('Nama Mahasiswa    :',datamhs.nama);
writeln('NPM Mahasiswa     :',datamhs.NPM);
writeln('Jumlah Mata kuliah:',datamhs.jumlahmk);
writeln('Jumlah SKS        :',datamhs.jumlahsks);
writeln('Jumlah Mutu       :',datamhs.jumlahmutu);
{Mencetak kedalam layar,format record dari Datamhs dengan
perintah bertitik}
GotoXY(2,6);write('------------------------------------------------------------------------');
GotoXY(2,7);write('KODE');
GotoXY(12,7);write('NAMA MATAKULIAH');
Gotoxy(49,7);write('JENIS');
gotoxy(55,7);write('SKS');
gotoxy(59,7);write('NILAI');
Gotoxy(65,7);write('MUTU');
Gotoxy(70,7);write('SEM');
gotoxy(2,8);writeln('------------------------------------------------------------------------');
{Membuat Layout Spasi Pada Layar monitor dengan GotoXY}

for a:=1 to 8  do
begin
          if a=1 then
         begin
                jenis:='U';
                sem:=111;
         end
         else begin
                jenis:='W';
                sem:=59;
         end;
         gotoxy(2,n);write(kode[a]);
         gotoxy(12,n);write(matkul[a]);
         gotoxy(51,n);write(jenis);
         gotoxy(56,n);write(sks[a]);
         gotoxy(61,n);write(nilai[a]);
         gotoxy(67,n);write(mutu[a]);
         gotoxy(71,n);write(sem);
         totalnilai:=totalmutu/18;
         n:=n+1;
end;
{Membuat tampilan pada layar tentang matakuliah dan SKS-nya}
Gotoxy(2,n);writeln('------------------------------------------------------------------------');
gotoxy(2,n+1);write(total,'data');
gotoxy(56,n+1);write(totalsks);
gotoxy(59,n+1);write(totalnilai:3:2);
gotoxy(67,n+1);writeln(totalmutu);
gotoxy(2,n+2);write('------------------------------------------------------------------------');
gotoxy(30,20);write('JURUSAN SISTEM INFORMASI');
gotoxy(30,21);write(' FAKULTAS ILMU KOMPUTER ');
gotoxy(30,22);write('  UNIVERSITAS GUNADARMA');
gotoxy(35,24);write('Dosen Pengajar  : Rina Refianti Mutiara');
readln;
{memasukkan Perintah untuk Totality dari semua data record}
end.