DNS MAHASISWA DENGAN VASKAL

SELAMAT DATANG DI BLOG ABANG PABUNOBUNO, (ABANG BEDE XIXIXIXIXIXIXI)
 Sebagai makanan pembuka, saya akan membagi-bagikan apa-apa yang sudah saya dapat dari pembelajaran saya teman-teman

 YANG PERTAMA ;

saya akan membagikan kepada teman-teman hasil dari pembelajaran saya sendiri tentang contoh sederhana dengan vaskal(Algoritma) menampilkan hasil nilai persemester mahasiswa, seperti DNS anda
 berikut adalah listingnya;



uses crt;
type
    dns = record
    sks,bbt,jum:byte;
    end;
var mhs:array [1..50] of dns;
a,b,c,d,e,g:byte;
f:real;
    stb,smtr:string[7];
    nm,mk   :string[30];
    jur,kd  :string[25];
    nh      :char;
begin
clrscr;
c:=4;
writeln('=================================');
write('masukkan nama anda              = ');readln(nm);
write('masukkan STB anda               = ');readln(stb);
write('masukkan jurusan anda           = ');readln(jur);
write('semester sekarang(ganjil/genap) = ');readln(smtr);
writeln('=================================');
write('masukkan jumlah SKS anda (max 22 SKS) = ');readln(d);
if (d >= 23) then
BEGIN
write('MAAF, SKS YANG ANDA INPUT TERLALU BENYAK, OOOOOO NDA BICCA')
END
else
BEGIN
write('masukkan jumlah matakuliah anda ( 2 SKS/ 1 MATAKULIAH) = ');readln(b);
f:= d / 2;
if (f <> b) then
begin
write('MAAF JUMLAH SKS MUNGKIN KURANG ATAU LEBIH,PASTIKAN 2 SKS / 1 MATAKULIAH')
end
else
begin
clrscr;
writeln('================================================================');
writeln('| KODE | NAMA MATAKULIAH | SKS | NIL.HURUF | BOBOT | BOBOT*SKS |');
for a:=1 to b do
begin
writeln('----------------------------------------------------------------');
write('|');gotoxy(3,c);readln(kd);
gotoxy( 8,c);write('|');gotoxy(10,c);readln(mk);
gotoxy(26,c);write('|');gotoxy(28,c);readln(mhs[a].sks);
gotoxy(32,c);write('|');gotoxy(38,c);readln(nh);
gotoxy(44,c);write('|');
begin
  if (nh='a') or (nh='A') then
   mhs[a].bbt:=4
  else if (nh='b') or (nh='B') then
   mhs[a].bbt:=3
  else if (nh='c') or (nh='C') then
   mhs[a].bbt:=2
  else if (nh='d') or (nh='D') then
   mhs[a].bbt:=1
  else
   mhs[a].bbt:=0;
   end;
   gotoxy(48,c);writeln(mhs[a].bbt);
   gotoxy(52,c);write('|');
   gotoxy(58,c);
   mhs[a].jum:= mhs[a].sks * mhs[a].bbt;
   writeln(mhs[a].jum);
   gotoxy(64,c);writeln('|');
   c:= c + 2;
   e:= mhs[a].jum + e;
   g:= mhs[a].sks + g;
   end;
writeln('----------------------------------------------------------------');
write('|  TOTAL                 |');gotoxy(28,c);write(g);
gotoxy(32,c);write('|');
gotoxy(52,c);write('|');
gotoxy(58,c);write(e);
gotoxy(64,c);writeln('|');

writeln('----------------------------------------------------------------');
if g <> d then
begin
write('TOTAL SKS YANG ANDA INPUT TIDAK SAMA DENGAN JUMLAH SKS YANG ANDA INPUT')
end
else
begin
writeln('NAMA     = ',nm);
writeln('STB      = ',stb);
writeln('JURUSAN  = ',jur);
writeln('SEMESTER = ',smtr);
writeln('jumlah SKS anda semester ini adalah = ',d);
writeln('jumlah BOBOT*SKS anda adalah        = ',e);
writeln('=========================================');
write('INDEKS PRESTASI SEMESTER (IPS) Anda   = ',e/d:2:2);
end;
END;
end;
readln;
end.



semoga bermanfaat buat pembelajaran anda (by pabunobuno (viant). )