PASCAL : Mencari Grade Nilai dengan If Then Else
Sebuah LPK ternama di Purwokerto mengadakan test program computer yang akan diadakan tiga kali test(terdiri dari program visual basic, Delphi, java). Test ini diadakan untuk menentukan grade dan besarnya biaya kursus. Bila siswa tsb ingin melanjutkan ke tingkat yang lebih tinggi, ketentuan nilai : Nilai Grade Besar biaya 91-100 A 50000 76-90 B 150000 60-75 C 250000 40-59 D 350000 01-39 E 450000 0 0 550000 Saya mencoba mengerjakannya dengan menggunakan if then else uses crt; type nilai=array[1..100] of byte; var basic : real; del : real; jav : real; tot,t : real; i : integer; begin clrscr; write('Nilai Visual Basic anda : ');readln(basic); write('Nilai Delphi anda : ');readln(delphi); write('Nilai Java anda ...