Contoh Program Pascal Nilai Mahasiswa Dan Grade yang Didapat

halo ...
Kali ini saya akan membagikan sebuah contoh dari program pascal , yaitu sebuah program yang memiliki input nilai , dan menghasilkan output yang didapat , dan untuk itu anda bisa melihat contoh dari hasil programnya yang telah saya buat , seperti pada gambar dibawah ini .


dan jika anda tidak ingin repot untuk mengetikan program tersebut , anda bisa mendownload file dari program tersebut pada link berikut ini :
Download File Disini

Dan untuk programnya anda bisa mengcopy-paste nya ke notepad , lalu save dengan format .pas , lalu buka Free Pascal dan Cari File program yang telah anda buat tadi .

Programnya sebagai berikut :

  program nilaimhs;
uses crt;
var     mtk,bi,bing,ag:integer;
        total:integer;
begin
writeln('===HITUNG NILAI DAN GRADE YANG DIDAPAT===');
writeln('Masukan Nilai MTK');readln(mtk);
if (mtk>=90) then
writeln('Grade A')
else if (mtk>=80) then
writeln('Grade B')
else if (mtk>=70) then
writeln('Grade C')
else if (mtk<=70) then
writeln('Grade D');
writeln('=========================================');
writeln('Masukan Nilai B.Indonesia');readln(bi);
if (bi>=90) then
writeln('Grade A')
else if (bi>=80) then
writeln('Grade B')
else if (bi>=70) then
writeln('Grade C')
else if (bi<=70) then
writeln('Grade D');
writeln('=========================================');
writeln('Masukan Nilai B.Ing');readln(bing);
if (bing>=90) then
writeln('Grade A')
else if (bing>=80) then
writeln('Grade B')
else if (bing>=70) then
writeln('Grade C')
else if (bing<=70) then
writeln('Grade D');
writeln('=========================================');
writeln('masukan Nilai Agama');readln(ag);
if (ag>=90) then
writeln('Grade A')
else if (ag>=80) then
writeln('Grade B')
else if (ag>=70) then
writeln('Grade C')
else if (ag<=70) then
writeln('Grade D');
total:=(mtk+bi+bing+ag) div 4;
writeln('maka total rata-rata nilai adalah ',total);
if (total>=90) then
writeln('Grade A')
else if (total>=80) then
writeln('Grade B')
else if (total>=70) then
writeln('Grade C')
else if (total<=70) then
writeln('Grade D');
readln;
end.

Jalankan program tersebut dengan menekan CTRL + F9 , dan silahkan dipergunakan untuk kebutuhan anda , terima kasih .

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel