paskal 2

paskal 2 sebuah program yang berjalan pada paskal ini program menghitung sebuah nilai 

program tugas2;

uses crt;

var N :integer;

Nilai : string [20];

begin

clrscr;

write('Masukan nilai anda :');

readln(N);

if N > 80 then Nilai :='A'

else if 70 <= N then Nilai :='B'

else if 60 <= N then Nilai :='C'

else if 40 <= N then Nilai :='D'

else Nilai :='E';

writeln (Nilai);

readln;

end.

Title Post: paskal 2
Rating: 100% based on 99998 ratings. 5 user reviews.
Author: bagashp

Terimakasih sudah berkunjung di blog BagZT , Jika ada kritik dan saran silahkan tinggalkan komentar dibawah