Scritp Code : Logika IF pada Delphi(1)

22.42

Percobaan Pertama, Latihan Pertama dalam pembuatan program di Delphi dalam Bentuk Aplikasi Console/Text Mode, mari langsung saja di lihat langkah demi langkahnya ....

Script Logika IF untuk Nilai Ujian .....

Flowcart
1. Begin
2. Masukkan Nilai : A
3. Jika Nilai A > 60 maka dinyatakan "LULUS"
4. Jika Tidak maka dinyatakan "TIDAK LULUS"
5. End.

SCRIPT :

program Project2;

uses

SysUtils;

var

nilai : integer;

begin

write('Masukkan Nilai = ');readln(nilai);

if nilai > 60 then

write('LULUS')

else

write('TIDAK LULUS');

readln;

end.