Source Code : Case-Of - Programing

CODE : CASE OF

Dulu saya pernah posting program tentang penentuan nilai grade dan keterangan dengan menggunakan Logika IF pada Latihan 3, dan pada postingan kali ini saya akan mengubah suatu program nilai grade tersebut yang sebelumnya menggunakan fungsi Logika IF dengan program yang sama tapi menggunakan fungsi Case - Of, okeh langsung saja kita mulai

Flowchart

1. Begin

2. Masukkan Nilai : A

3. Jika Nilai A = 0 - 25 maka mendapat predikat 'E' Jika Tidak

4. Jika Nilai A = 26 - 55 maka mendapat predikat 'D' Jika Tidak

5. Jika Nilai A = 56 - 70 maka mendapat predikat 'C' Jika Tidak

6. Jika Nilai A = 76 - 85 maka mendapat predikat 'B' Jika Tidak

7. Jika Tidak Nilai A mendapat predikat A

8. Cetak Predikat Nilai

9. End.

CODE SCRIPT : 

program Project5;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
nilai : integer;
ket1, grade : string;
begin
write ('Masukkan Nilai = ');readln(nilai);
Case nilai of

0 .. 25 : begin
grade:='E';
ket1:='TIDAK LULUS';
end;

26 .. 55 : begin
grade:='D';
ket1:='MENGULANG';
end;

56 .. 70 : begin
grade:='C' ;
ket1:='CUKUP';
end;

71 .. 85 : begin
grade:='B';
ket1:='BAIK';
end;
else
grade:='A';
ket1:='SANGAT BAIK';

end;
writeln ('Grade = ',grade);
write ('Keterangan = ',ket1);
readln;
end.

SCREENSHOOT

IF GRADE = A

IF GRADE = B

IF GRADE = C

IF GRADE = D

IF GRADE = E

Tutorial Delphi yang lain :
1.  Logika IF (1)
2. Logika IF (2)
3. Logika IF (3)

Terima Kasih atas kunjungannya, SEMOGA BERMANFAAT tutorial tentang fungsi Case of ini, Good Luck !!
Jika tutorial ini bermanfaat silahkan beri +1 Google ya, karena +1 kamu sangat berarti sekali untuk situs kami ini. Terimakasih :)