Program Menghitung Nilai Mahasiswa Dalam Bahasa Pascal

Sebenarnya Program Menghitung Nilai Mahasiswa adalah tugas mata kuliah Pemrograman semester 1 saya, namun disini saya akan membagikan sedikit ilmu tentang membuat program menggunakan bahasa pascal dan menggunakan software Free Pascal Compiler, kalian bisa download gratis disini Free Pascal Compiler 3.0.0 i386

Ingat !! disini saya tidak bermaksud untuk memilih jalan pintas untuk mengerjakan tugas seseorang namun artikel disini sekedar untuk belajar.

copy syntax dibawah ini ke compiler free pascal :

program menghitung_nilai_mahasiswa;
uses crt;
var
nim, nilai, nilai_huruf, ket : string;
nilai_akhir, niilai : integer;

begin
clrscr;
writeln (‘ PROGRAM MENGHITUNG NILAI MAHASISWA ’);
writeln (‘====================================’);
writeln;
write (‘Masukkan NIM : ‘); readln (nim);
write (‘Masukkan Nama : ‘); readln (nama);
write (‘Nilai Pmerograman : ‘); readln (nilai_pemrograman);

nilai_akhir := nilai;

if (nilai_akhir >= 85) and (nilai_akhir <= 100) then
nilai_huruf := ‘A’
else
if (nilai_akhir >= 70) and (nilai_akhir <= 85) then
nilai_huruf := ‘B’
else
if (nilai_akhir >= 55) and (nilai_akhir <= 70) then
nilai_huruf := ‘C’
else
if (nilai_akhir >= 40) and (nilai_akhir <= 55) then
nilai_huruf := ‘D’
else
if (nilai_akhir >= 0) and (nilai_akhir <= 39) then
nilai_huruf := ‘E’
else
nilai_huruf := ‘F’;

case nilai_akhir of
60..100 : ket := (‘LULUS’);
else
ket := (‘TIDAK LULUS’);
end;

writeln;
writeln (‘   MAKA HASILNYA ADALAH    ‘);
writeln (‘===========================’);
writeln ;
writeln (‘NIM : ‘,nim);
writeln (‘Nama : ‘,nama);
writeln (‘Nilai Akhir : ‘, nilai_akhir);
writeln (‘Nilai Huruf : ‘,nilai_huruf);
writeln (‘Keterangan : ‘,ket);
writeln;

writeln (‘========================’);
writeln (‘  Developed by Sanjaya  ’);
writeln (‘========================’);
readln;
end.