CONTOH DASAR PEMBUATAN SCRIP PADA DELPHI 7 (PART 2)

Saya akan memberikan contoh script coding IF...ELSE...IF

Pertama kita tulis dulu scriptnya
contohnya:

program seleksi_hansip

{$APPTYPE CONSOLE}

uses  SysUtils;

var

    tinggi:integer;

begin

write('Masukkan Tinggi Badan Anda = '); readln(t);

If tinggi > 169 then

begin

  writeln('Tinggi Anda',t,'cm');

  writeln('Anda Layak Bekerja di Kantor Kami...!!!');

  writeln('SELAMAT ANDA DITERIMA...!!!');

end;

else

begin

  writeln('Tinggi Anda',t,'cm');

  writeln('Maaf Tinggi Badan Anda Kurang Mencukupi Persyaratan Kami...!!!');

  writeln('MOHON MAAF ANDA TIDAK DITERIMA...!!!');

end;

  readln;

end.

 setelah itu klik F9 maka akan muncul seperti ini

Selamat mencoba^_^