CONTOH SCRIPT DASAR PEMBUATAN PROGRAM PADA DELPHI 7 (Part 2)

Kali ini saya akan Beri Contoh Script Coding IF..ELSE..IF.
Sebulum itu kita simak dulu penjelasan sebagai berikut..

• Logika IF

Pada prinsip dasarnya logika IF digunakan untuk membuat suatu kondisi dimana komputer diminta untuk mengambil sebuah keputusan yang sesuai dengan input yang dimasukkan. Secara sederhana struktur dari logika IF adalah sebagai berikut :

Karena Langkah awal sudah saya jelas kan di Postingan sebelumnya jadi

• Langsung saja ke Script yang pertama.

Program Seleksi_Hansip;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var
tinggi:Integer;
begin
Write('Masukan tinggi badan=');Readln(tinggi);
If tinggi >169 then
Writeln('ANDA DITERIMA')
Else
Writeln('ANDA GAGAL');
REadln;
end.

Dan hasilnya seperti ini..

• Dan Contoh Script yang ke dua adalah sebagai berikut.

program Project2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

    t:integer;

begin

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

If t > 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.

Dan Hasilnya akan seperti ini..

Selanjutnya saya kasih contoh scrip coding Program Grade Nilai

Program Grade_Nilai;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
    nilai:integer;
    Grade:String;
begin
write('Masukkan nilai= ');
Readln(nilai);
If nilai >=90 then grade := 'A';
If (nilai >=80)and(nilai<=89) then grade :='B';
If (nilai >=70)and(nilai<=79) then grade :='C';
If nilai <70 then grade :='D';
Writeln ('GRADE=',GRADE);
Readln;
end.



Maka ini hasil Runing Scrip di atas..

Selamat Mencoba ^_^