Algoritma Pemilihan (Selection) - Program N Kasus

kasus_n.pas

program kasus_2;

var
  nilai: real;
  indeks: char;
  
begin
  write('Masukkan nilai: ');
  readln(nilai);
  
  { Pemilihan - N Kasus }
  if nilai > 80 then
    indeks := 'A'
  else if nilai > 70 then
    indeks := 'B'
  else if nilai > 60 then
    indeks := 'C'
  else if nilai > 40 then
    indeks := 'D'
  else
    indeks := 'E'
    
  writeln(indeks);
end.