Halo pemirsa! Kali ini DanKus akan membagikan sebuah program pascal untuk mencari nilai akhir. Program ini akan meminta user untuk memasukan nilai dari kehadiran, nilai tugas, nilai UTS, dan nilai UAS.

Setelah menghitung nilai akhir dari keempat nilai di atas, program ini juga bisa menentukan grade dari nilai yang telah didapatkan.

Langsung saja, berikut script untuk program penghitung nilai akhir dengan pascal :

program menentukan_kelulusan;
uses wincrt;
var
nilai:real;
nm:string;
ab,tgs,uts,uas:integer;
n:integer;
begin
write('masukan nama:');read(nm);
write('masukan nilai absensi:');read(ab);
write('masukan nilai tugas:');read(tgs);
write('masukan nilai uts:');read (uts);
write('masukan nilai uas:');read (uas);
writeln;
nilai:=(ab*20/100)+(tgs*15/100)+(uts*25/100)+(uas*40/100);
Write('hasil nilainya adalah=',round(nilai));
writeln;
writeln;

begin
n:=round(nilai);
if (nilai>=85) then
writeln('grade A:')else
if (nilai>=75)then
writeln ('grade B:')else
if (nilai>=65) then
writeln('grade C:')else
if (nilai>=55)then
writeln('grade D:')else
writeln('grade E:');
begin
case n of
0..64     :Writeln ('TIDAK LULUS');
65..74    :writeln ('LULUS CUKUP');
75..84    :writeln('LULUS BAIK');
85..100   :writeln ('LULUS MEMUASKAN');
end;
end;
end;
end.

Jalankan programnya, maka hasilnya adalah sebagai berikut :

 Yang malas ngetik bisa download file-nya di sini.

Sekian postingan kali ini, semoga berguna.

「Dani Kustiawan」