Membuat Program Beasiswa Dengan PASCAL

Selamat Pagi sobat Imaginers. Jumpa lagi dengan saya yg kece badai ini :v, Oke cuss
Bahasan Kali ini adalah Membuat Program Beasiswa Dengan Pascal,..
yang sebelum nya juga telah dibahas Program2 PascaL yang Lain nya..

Bisa Download Pascal nya disini

Langsungs aja Lah Qta buat Program Nya:

program beasiswa;
uses wincrt;

var
nama: string;
x, teori, praktek: real;

begin
writeln(' BEASISWA ');
writeln('--------------------------------------------------------------');
write('Masukkan Nama             :');readln(nama);
write('Masukkan Nilai Teori      :');readln(teori);
write('Masukkan Nilai Praktek   :');readln(praktek);
writeln('--------------------------------------------------------------');
x:= (teori+praktek)/2;
writeln('Nilai Anda : ', x:6:2);

writeln('--------------------------------------------------------------');

if x >= 85 then
writeln(nama ,' Mendapatkan Beasiswa Selama 2 Semester ')else
if x >= 75 then
writeln(nama ,' Mendapatkan Beasiswa Selama 1 Semester ')else
writeln(nama ,' Tidak Mendapatkan Beasiswa' );

writeln('--------------------------------------------------------------');
if x >= 80 then
writeln(' Dengan Nilai Grade : A ')else
if x >= 70 then
writeln(' Dengan Nilai Grade : B ')else
if x >= 60 then
writeln(' Dengan Nilai Grade C ')else
if x >= 50 then
writeln(' Dengan Nilai Grade D ')else
if x < 50 then 

writeln(' Dengan Nilai Grade E ');

end.

Setelah di RUN maka Hasilnya Seperti ini,



























Selamat Mencoba

Lihat juga: Info Terbaru Bitcoin di Digital currency exchange listing 

"Semoga Bermanfaat", Terima Kasih telah berkunjung diblog kami. nantikan update artikel selanjutnya sobat.