Program Menggunakan if

1. Listing Program

program penilaian;

uses wincrt;

var

nilai:integer;

begin

write('Masukan nilai anda:');readln(nilai);

if nilai>=85 then writeln('Nilai A')

else if nilai>=75 then writeln('Nilai B')

else if nilai>=65 then writeln('Nilai c')

else if nilai>=55 then writeln('Nilai D')

else writeln ('Nilai E');

readln;

end.

2. Output

3. Flowchart