Program Pascal Raport

program raport;
uses crt;
type identitas = record
                 nama,nim             :string[20];
                 mat,fisika,bio,rata  :real;
                 end;
var mhs  :array[1..100] of identitas;
    x,o,s,c:byte;
    angka,rkm,rkf,rkb,rk :real;
    label a,b;

begin
clrscr;
gotoxy(25,1);
writeln('===========================');
gotoxy(25,2);
writeln('DATA NILAI RAPORT MAHASISWA');
gotoxy(25,3);
writeln('===========================');
writeln;
writeln;
write('masukan jumlah mahasiswa yang akan dilihat datanya = ');
readln(o);
writeln;
gotoxy(3,6);write('===========================================================================');
gotoxy(3,7);write('³ NO ³     NIM     ³ NAMA MAHASISWA ³  MAT  ³  FISIKA  ³  BIO  ³ RATA-RATA³');
gotoxy(3,8);write('===========================================================================');

for x:=1 to o do
    begin
         gotoxy(3,8+x);write(chr(179));
         gotoxy(5,8+x);write(x);
         gotoxy(8,8+x);write(chr(179));
         gotoxy(10,8+x);readln(mhs[x].nim);
         gotoxy(22,8+x);write(chr(179));
         gotoxy(24,8+x);readln(mhs[x].nama);
         gotoxy(39,8+x);write(chr(179));
         gotoxy(42,8+x);readln(mhs[x].mat);
         rkm:=mhs[x].mat+rkm;
         gotoxy(47,8+x);write(chr(179));
         gotoxy(52,8+x);readln(mhs[x].fisika);
         rkf:=mhs[x].fisika+rkf;
         gotoxy(58,8+x);write(chr(179));
         gotoxy(62,8+x);readln(mhs[x].bio);
         rkb:=mhs[x].bio+rkb;
         gotoxy(66,8+x);write(chr(179));
         mhs[x].rata:=(mhs[x].mat+mhs[x].fisika+mhs[x].bio)/3;
         gotoxy(69,8+x);write(mhs[x].rata:3:2);
         rk:=rk+mhs[x].rata;
         gotoxy(77,8+x);write(chr(179));
    end;
    rkm:=rkm/o;
    rkf:=rkf/o;
    rkb:=rkb/o;
    rk :=rk/o;

writeln;
writeln('=============================================================================');
writeln('               RATA-RATA              ³  ',rkm:3:2, ' ³   ',rkf:3:2 , '   ³ ',rkb:3:2,  '  ³  ', rk:3:2 ,'    ³');
writeln('=============================================================================');
writeln;
write('silahkan tekan ENTER untuk melihat data individu');
readln;
begin
clrscr;
writeln('DATA INDIVIDU MAHASISWA');
b:
clrscr;
write('masukkan nomer yang akan dilihat = ');
readln(o);
for x:= 1 to o do
begin

    begin
    gotoxy(3,2);write('nama mahasiswa : ',mhs[x].nama);
    gotoxy(3,3);write('NIM            : ',mhs[x].nim);
    gotoxy(3,4);writeln('======================================');
    gotoxy(3,5);writeln('³ NO ³    MK    ³ NILAI ³ RATA KELAS ³');
    gotoxy(3,6);writeln('======================================');
    gotoxy(3,7);write(chr(179));
    gotoxy(3,8);write(chr(179));
    gotoxy(3,9);write(chr(179));
    gotoxy(5,7);write('1');
    gotoxy(5,8);write('2');
    gotoxy(5,9);write('3');
    gotoxy(8,7);write(chr(179));
    gotoxy(8,8);write(chr(179));
    gotoxy(8,9);write(chr(179));
    gotoxy(19,7);write(chr(179));
    gotoxy(19,8);write(chr(179));
    gotoxy(19,9);write(chr(179));
    gotoxy(19,11);write(chr(179));
    gotoxy(27,7);write(chr(179));
    gotoxy(27,8);write(chr(179));
    gotoxy(27,9);write(chr(179));
    gotoxy(27,11);write(chr(179));
    gotoxy(40,7);write(chr(179));
    gotoxy(40,8);write(chr(179));
    gotoxy(40,9);write(chr(179));
    gotoxy(40,11);write(chr(179));
    gotoxy(21,7);write(mhs[x].mat:3:2);
    gotoxy(21,8);write(mhs[x].fisika:3:2);
    gotoxy(21,9);write(mhs[x].bio:3:2);
    gotoxy(32,7);write(rkm:3:2);
    gotoxy(32,8);write(rkf:3:2);
    gotoxy(32,9);write(rkb:3:2);
    gotoxy(10,7);write('MAT');
    gotoxy(10,8);write('FISIKA');
    gotoxy(10,9);write('BIOLOGI');
    gotoxy(3,10);write('====================================');
    gotoxy(10,11);write('RATA2');
    gotoxy(21,11);write(mhs[x].rata:3:2);
    gotoxy(32,11);write((rkm+rkf+rkb)/3:3:2);
    gotoxy(19,12);write('====================');
    end;
    s:=s+11;
    end;
    readln;
    writeln('tekan enter');
    readln;
    begin
    clrscr;
    writeln('tekan sembarang angka');
    angka:= 1;
    write('masukkan angka 1 untuk keluar ');
    readln(angka);
    while angka=1 do goto a;goto b;
    readln;
    end;
    end;
    readln;
    a:
    clrscr;
    sound(300);
    sound(270);
    gotoxy(12,1);
    writeln('ITULAH NILAI ANDA');
    delay(2000);
end.

Artikel Terkait