Tugas membuat program menampilkan nilai di pascal Tugas membuat program menampilkan nilai di pascal

uses wincrt ;

var

nama_siswa      :string;

nama_kul        :array[1..10] of string;

nil_hdr         :array[1..10] of integer;

nil_UTS         :array[1..10] of integer;

nil_UAS         :array[1..10] of integer;

nil_TGS         :Array[1..10] of integer;

Jum_Nil         :Array[1..10] of integer;

Rata            :Array[1..10] of real;

Huruf           :Array[1..10] of integer;

a,n : Integer;

begin

clrscr;

writeln('program hitung nilai');

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

writeln('masukan banyaknya Mata Kuliah :');

readln(n);

write('Nama Mahasiswa  : ');Readln(nama_siswa);

writeln;

for a:=1 to n do

begin

writeln('Mata Kuliah ke - ',a:3);

write('Nama Mata Kuliah: ');Readln(nama_kul[a]);

write('Nilai Kehadiran : ');Readln(nil_hdr[a]);

write('nilai UTS       : ');Readln(nil_UTS[a]);

write('nilai UAS       : ');Readln(nil_UAS[a]);

write('nilai Tugas     : ');Readln(nil_TGS[a]);

end;

writeln;

clrscr;

writeln('daftar nilai');

Writeln('Nama Mahasiswa :  ', nama_siswa);

writeln('========================================================');

writeln('|          |       Nilai     |Jumlah|      NILAI    |   |');

writeln('|MataKuliah|-----------------|Nilai |---------------|KET|');

writeln('|          |KHD|Tugas|UTS|UAS|      |Rata-rata|Huruf|   |');

writeln('========================================================');

writeln;

for a:=1 to n do

Begin

Jum_Nil[a] := nil_hdr[a]+nil_TGS[A]+nil_UTS[a]+nil_UAS[a];

begin

rata[a] := Jum_Nil[a]/4;

GoToXY(1,A+7); write('|');

GoToXY(5,A+7); write(Nama_kul[A]);

GoToXY(12,A+7); Write('|');

GoToXY(14,A+7); Write(Nil_hdr[A]);

GoToXY(16,A+7); Write('|');

GoToXY(20,A+7); Write(Nil_TGS[A]);

GoToXY(22,A+7); Write('|');

GoToXY(24,A+7); Write(Nil_UTS[a]);

GoToXY(26,A+7); Write('|');

GoToXY(28,A+7); Write(Nil_UAS[a]);

GoToXY(30,A+7); Write('|');

GoToXY(34,A+7); Write(Jum_nil[a]);

GoToXY(37,A+7); Write('|');

GoToXY(40,A+7); Write(rata[a]:1:2);

GoToXY(47,A+7); Write('|');

GoToXY(51,A+7);

begin

if ((rata[a] >= 0) and (rata[a] <=45)) then

Write ('E');

if ((rata[a] >= 46) and (rata[a] <=55)) then

Write ('D');

if ((rata[a] >= 56) and (rata[a] <=69)) then

Write ('C');

if ((rata[a] >= 70) and (rata[a] <=79)) then

Write ('B');

if ((rata[a] >= 80) and (rata[a] <=100)) then

Write ('A');

GoToXY(53,A+7); Write('|');

GoToXY(57,A+7); Write('|');

end

end

end

end.

Writeln;

Writeln('================================================================================');

Readln;

end.