Tugas Pascal hari ini

Berikut script tugas pascal yang telah di kerjakan, semoga bermanfaat :

program data_mhs;
uses crt;
{Andina Nur || http:\\udinzuhuy.blogspot.com}
type
nilai=record
tugas,quiz,uts,uas : real;

end;
mhs=record
nama : string[50];
matkul : string;
namadsn : string[60];
na : nilai;

end;
var
datamhs : mhs;
nakhir : real;
hm : char;

begin
clrscr;
writeln('======INPUT NILAI MAHASISWA=====');
writeln('================================');
with datamhs do
begin
write('Nama Mahasiswa   : ');readln(nama);
write('Nama Mata Kuliah : ');readln(matkul);
write('Nama Dosen       : ');readln(namadsn);
write('Nilai Tugas      : ');readln(na.tugas);
write('Nilai Quiz       : ');readln(na.quiz);
write('Nilai UTS        : ');readln(na.uts);
write('Nilai UAS        : ');readln(na.uas);
nakhir:=(na.tugas*0.2)+(na.quiz*0.1)+(na.uts*0.3)+(na.uas*0.4);
end;
if (nakhir>=80) and (nakhir<=100) then
                hm:='A'
        else if (nakhir>=70) and (nakhir<80 else="" hm:="B" if="" nakhir="" then="">=60) and (nakhir<70 else="" hm:="C" if="" nakhir="" then="">=50) and (nakhir<60 else="" hm:="D" if="" nakhir="" then="">=0) and (nakhir<50 :="" akhir="" ama="" begin="" clrscr="" datamhs="" do="" dosen="" else="" end.="" end="" hm:="0" hm="" ilai="" kuliah="" mahasiswa="" mata="" matkul="" mutu="" na.quiz:0:2="" na.tugas:0:2="" na.uas:0:2="" na.uts:0:2="" nakhir:0:2="" nama="" namadsn="" nilai="" pre="" quiz="" readln="" then="" tugas="" uas="" uruf="" uts="" with="" writeln="">