Scritp Code : Logika IF pada Delphi(3)

Dasar dari Script Logika IF sudah saya terapkan pada Latihan 1 dan Latihan 2, sekarang saya akan membuat Program Nilai ujian disertai dengan Nilai Grade dalam artian kita akan mendapatkan predikat nilai A, B, C, D dan E sesuai nilai yang kita dapatkan !!

Flowchart

1. Begin

2. Masukkan Nilai : A

3. Jika Nilai A > 85 maka mendapat predikat A Jika Tidak

4. Jika Nilai A > 75 maka mendapat predikat B Jika Tidak

5. Jika Nilai A > 65 maka mendapat predikat C Jika Tidak

6. Jika Nilai A > 55 maka mendapat predikat D Jika Tidak

7. Jika Tidak Nilai A mendapat predikat E

8. Cetak Predikat Nilai

9. End.

SCRIPT

program Project3;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

nilai : integer;

grade : string;

begin

 write ('Massukkan Nilai : ');readln(nilai);

 begin

 if nilai > 85 then

  grade:='A' else

 if nilai > 75 then

  grade:='B' else

 if nilai > 65 then

  grade:='C' else

 if nilai > 55 then

  grade:='D' else

  grade:='E'

 end;

 write('Nilai Anda Adalah : ');writeln(nilai);

 write('Masuk Kategori : ');Write(grade);

 readln;

end.

SCREENSHOOT

Grade A

Grade B

Grade C

Grade D

Grade E