Penerapan fungsi pencabangan IF

Tugas Delphi ke 2.1

MEMBUAT PROGRAM MENAMPILKAN "GRADE NILAI" MENGGUNAKAN DELPHI7

    1. klik start ====pilih  all program pilih borland delphi 7.Atau pilih dekstop ==== Pada icon, lalu klik 2 kali/tekan enter pada keyboard, tungu proses kemudian  akan muncul program delphi 7. Lalu Kemudian buat document baru degan memilih   ( file – new – other  -  Console Application )

 

    2. setelah itu Masukkan script seperti di bawah ini : 

program Project2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

 nilai: integer;

 grade: string;

 ket:string;

begin

 write ('masukkan nilai = ');readln(nilai);

 CASE nilai OF

 0..25:

 begin

 grade:='E';

 ket:='mengecewakan';

 end;

 26..55:

 begin

 grade:='D';

 ket:='buruk';

 end;

 56..75:

 begin

 grade:='C';

 ket:='cukup';

 end;

 76..85:

 begin

 grade:='B';

 ket:='baik';

 end;

 ELSE

 grade:='A';

 ket:='memuaskan';

end;

      WRITELN('grade=',grade,' keterangan=',ket);{ TODO -oUser -cConsole Main : Insert code here }

      READLN

end.

3. setelah selesai menulis scrip di atas langsung saja kita coba pilih   untuk menjalankan program. jika scrip benar maka akan muncul tampilan dibawah ini, lalu kita langsung mencobanya (klik Run (F9) untuk 

melihat apakah script itu dapat berjalan atau tidak)

Tampilan nilai A

Tampilan nilai B

Tampilan nilai C

Tampilan nilai D

Tampilan nilai E

GAMBAR FLOW CHARTNYA