Pages - Menu

Kamis, 15 Desember 2011

Program Else If


program mencari_nilai_mata_kuliah;
uses wincrt;
var  a:integer;
begin
  readln (a);
  if ((80<a) and (a<100)) then writeln ('a=A')
  else if a>=76 then writeln ('a=AB')
  else if a>=71 then writeln ('a=B')
  else if a>=66 then writeln ('a=BC')
  else if a>=61 then writeln ('a=C')
  else if a>=41 then writeln ('a=D')
  else writeln('a=E');
end.

Tidak ada komentar:

Posting Komentar