Delphi : Percabangan Logika

Nama        : ANDI KHOIRUDIN
Kelas        :  I-B SMT 1
Jurusan     : Teknik Informatika
STIMIK YADIKA BANGIL 2014

Assamualaikum Wr. Wb.

           Pada kesempatan yang lalu saya membagikan program sederhana menghitung bangun, maka pada kesempatan ini saya akan sedikit menjelaskan percabangan logika dari si Delphi. oke cekidot

ada beberapa bentuk logika ini :

1. If - Then 
    merupakan sebuah kondisi yang menghasilkan nilai True jika benar dan False     jika salah.
    biasanya perintah If - Then ini untuk program tunggal.
    Format :        If (Kondisi) Then 
                              (Perintah)

2. If - Then - Else

    merupakan perintah yang akan dijalankan pada then jika kondisi pada If           terpenuhi, sedangkan pada 
    pada Else akan dilakukan jika kondisi tidak terpenuhi. Biasanya perintah ini       untuk kondisi ganda.
    Format :     If (Kondisi) then
                       (Perintah)
                       Else
                       (Perintah)

3. If - Then - Else bersarang
    Apabila ada perintah if dalam perintah If yang lain. Kondisi ini dibutuhkan 
    pada saat kriteria yang akan dimasukkan lebih dari satu.
    Format :        if (Kondisi 1) then 
                         if (Kondisi 2) then  
                              (Proses 1) 
                                  else 
                              (Proses 2);

Kesempatan kali ini saya akan menjelaskan yang ke 2 langsung ke TKP aja dah. . . 

Contoh 1 : Program Seleksi Calon Polisi 
Ini Screenshot programnya :  

Script Programnya: 

program Seleksi_Calon_Polisi;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
tinggi: integer;
begin 
writeln ('Nama      : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Program Seleksi Calon Polisi <<<');
writeln ;
write('Masukkan Tinggi Badan Anda = ');readln (tinggi);
if tinggi<170 then
writeln ('Maaf, Anda Gagal')
else
writeln('Selamat, Anda diterima');
writeln;
writeln;
writeln;
writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
readln;
end.

Pada contoh yang kedua hampir sama dengan yang pertama namun terdapat perbedaan dalam scriptnya pada yang pertama outputnya hanya 1 kalimat tetapi pada contoh yang kedua lebih dari 1 kalimat anda dapat membedakan pada scriptnya.

Contoh : Program Seleksi Calon Hansip
Ini Screenshot programnya :

Script Programnya: 

program Seleksi_Calon_Hansip;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
tinggi:integer;

begin
writeln ('Nama      : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Program Seleksi Calon Hansip <<<');
writeln;
write('Masukkan Tinggi Badan = '); Readln(tinggi);
if tinggi <170 then
begin
writeln('Tinggi anda hanya ',tinggi,' cm');
writeln('Tidak layak untuk jadi hansip');
writeln('ANDA TIDAK DITERIMA');
end
Else
begin
writeln('Tinggi badan ',tinggi,' cm');
writeln('Pantas untuk jadi hansip');
writeln('ANDA DITERIMA');
end;
writeln;
writeln;
writeln;
writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
readln;
end.

Pada contoh yang ketiga disini kondisi akan lebih dari satu berbeda dengan contoh sebelumnya yang hanya 2 kemungkinan disini saya akan mengambil contoh grade nilai
Ini Screenshot programnya :

Script Programnya:  

program Entry_Data_Nilai_Mahasiswa;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
nilai:integer; 
grade:string;

begin
writeln ('Nama      : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Entry Data Nilai Mahasiswa <<<');
writeln;
write('Masukkan Nilai Anda = ');Readln(nilai);
if nilai>90 then grade:='' else
if nilai>=80 then grade:='B' else
if nilai>=70 then grade:='C' else
grade:='D';
writeln('GRADE = ',grade);
writeln;
writeln;
writeln;
writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
Readln;
end.

Pada contoh keempat disini saya akan menggunakan ( if and then ) sedikit berbeda dengan contoh yang ketiga namun hasilnya sama saja
Ini dia Screenshot programnya :

Script Programnya :  

program Entry_Data_Nilai;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
nilai: integer;
grade:string;

begin
writeln ('Nama      : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Program Entry Data Nilai <<<');
writeln;
write('Masukkan Nilai Ujian Anda = '); read(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;
writeln;
writeln;
writeln;
writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
readln;
end.

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Kurang lebihnya mohon maaf dan terima kasih suda berkunjung 

Wassalamualaikum Wr. Wb.