Categories

Budaya (3) Cerpen (2) Cooking (1) Curhat (29) Curug (1) Famz Story (4) fiktif (3) Film (14) Foto (36) Hiking (30) Indonesia (80) INDONESIA BAGUS (7) Info (111) Islam (3) Jepang (7) Kampus (83) Kartun (1) Kids (2) Komputer (34) Kopdar (1) Korean Fever (14) Listing Program (8) Look Alike (10) Maen (28) Multimedia (9) Musik (3) Muslimah (4) Ramadhan (1) Review (16) SAR (2) Sekedar Tulisan (49) Shout Out (6) SI (53) Situs Bersejarah (2) Team Mandalawangi (1) Trip (33) Tugas (86) Untuk Negeri (76) Video (3) Wisata (11)

Kamis, 16 Februari 2012

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.

Tidak ada komentar:

Posting Komentar