Menghitung Nilai Semester Dengan Delphi ~ Random Feed

Menghitung Nilai Semester Dengan Delphi

Selamat Sore, kali ini saya akan memposting Codingan untuk program menghitung nilai akhir semester. Program ini berguna untuk menghitung nilai akhir secara otomatis. oke langsung saja, berikut codingan programnya :

program NilaiSemester;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
h,nt,uts,uas: real;
na: real;
nama: string;
prodi: string;
npm: double;
begin
writeln('Aplikasi Menghitung Nilai Semester');
writeln('----------------------------------');
writeln('');
writeln('Nama : Adam Rahmatul Pasha ');
writeln('Prodi : Informatika');
writeln('NPM : 05201740039');
writeln('');
write('-----------------------------------');
writeln('');
write('Nilai Kehadiran : ');
readln(h);
write('Nilai Tugas : ');
readln(nt);
write('Nilai UTS : ');
readln(uts);
write('Nilai UAS : ');
readln(uas);

h:=h*10/100;
nt:=nt*20/100;
uts:=uts*30/100;
uas:=uas*40/100;
na:=h+nt+uts+uas;

writeln('Nilai Akhir : ', na:2:2);

write('Nilai Huruf : ' );

if na >= 80 then writeln('A')
else if (na <80) and (na>=70) then writeln('B')
else if (na <70) and (na>=55) then writeln('C')
else if (na <55) and (na>=39) then writeln('D')
else if na <39 then writeln('E');
writeln('');
if na<55 then writeln('Mahasiswa dinyatakan GAGAL')
else writeln('Mahasiswa LULUS');
readln;
end.

Berikut screenshoot hasil codingan diatas :

SELAMAT MENCOBA!