Scritp Code : Logika IF pada Delphi(2)

Setelah pembuatan Latihan Untuk yang Pertama, sekarang kita lanjut untuk latihan saya yang keduaa. Tidak jauh berbeda dengan Latihan Pertama, Script kali ini hampir sama cuma ada penambahan sedikit .... yuk mari kita lihat sama-sama.

Flowcart

1. Begin

2. Masukkan Nilai = A

3. Jika Nilai > 70 maka dinyatakan LULUS dan DITERIMA

4. Jika tidak maka dinyatakan TIDAK LULUS

5. Cetak Penyataan

6. End.

SCRIPT

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
nilai : integer;
ket1, ket2 : string;
begin
  write('Masukkan Nilai: ');readln(nilai);
  If nilai > 70 then
  begin
  ket1:='LULUS';
  ket2:='ANDA DITERIMA'
  end else
  begin
  ket1:='TIDAK LULUS';
  ket2:='SILAKAN COBA LAGI';
  end;
  write('Hasil = ');writeln(ket1);
  write('Keterangan = ');write(ket2);
  readln;
end.

SCREENSHOOT

Jika Nilai diatas 70

Jika Nilai dibawah 70