Penentuan skor A,B,C,D,E menggunakan percabangan if pada delphi / pascal

Assalamualaikum Wr. Wb.
Yaa sesuai dengan judul diatas, silahkan teman-teman lihat langsung syntax programnya dibawah ini:
Pada postingan ini saya ingin berbagi tentang pemrograman khususnya bahasa pemrograman delphi atau pascal, bedanya terletak pada usesnya... kalau pascal menggunakan uses crt; dan atau clrscr;  sedangkan untuk bahasa pemrograman delphi menggunakan uses SysUtils; pada console application dan tidak butuh clrscr; seperti pada pascal.
Oke langsung saja;

program skor_abcde;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
 Nilai : integer;

begin
 write ('Masukkan nilai ujian (0-100): ');
 readln (Nilai);
 if Nilai >= 90 then
    writeln ('Skor A')
    else
      if Nilai >= 70 then
      writeln ('Skor B')
      else
        if Nilai >= 60 then
        writeln ('Skor C')
        else
          if Nilai >= 40 then
          writeln ('Skor D')
            else
              writeln ('Skor E');
 readln; // Menunggu tombol Enter ditekan
  { TODO -oUser -cConsole Main : Insert code here}
end.
 

Selamat beraktivitas,
Have Fun
Sumber : Supriyono dan Farikhah Indriani. 2007. Modul Praktikum Algoritma Pemrograman. Yogyakarta: Universitas Islam Indonesia

Related Posts:

Tweet