Statement IF di Turbo Pascal

Kali ini saya akan posting tentang Statement IF di Turbo Pascal
IF merupakan salah satu struktur kendali dalam bahasa pemrograman dan di dalam program yang dibuat
pasti banyak menggunakan statement IF, oleh karena itu IF sangatlah berguna dalam membuat program

Ada beberapa penggunaan IF diantaranya adalah

• IF Tunggal
• IF Ganda
• IF Bersarang

Contoh penggunaan IF Tunggal

program if_tunggal;

uses crt;
var
 bil:integer;
 ket:char;
begin
 clrscr;
 write('Masukan Bilangan : ');readln(bil);
 if (bil=2) then
  begin
   writeln('Anda menginputkan angka 2');
  end;
 readln;
end.

Jika dijalankan maka akan seperti gambar dibawah ini
Ketikan angka 2 maka akan muncul text 'Anda menginputkan angka 2' jika tidak maka tidak akan terjadi apa apa

Contoh penggunaan IF Ganda

program if_ganda;
uses crt;
var
 bil:integer;
 ket:char;
begin
 clrscr;
 write('Masukan Bilangan : ');readln(bil);
 if (bil=1) then
  begin
  writeln('Anda mengetikan angka 1');
  end
 else
  begin
  writeln('Anda tidak mengetikan angka 1');
  end;
 readln;
end.

Jika dijalankan maka akan seperti gambar di bawah ini

Ketikan angka 1 maka akan muncul text bertuliskan 'Anda mengetik angka 1' jika anda mengetikan angka selain 1 maka akan muncul text bertuliskan 'Anda tidak mengetikan angka 1'

Contoh Penggunaan IF Bersarang

program if_bersarang;
uses crt;
var
 nilai,absensi:integer;
begin
 clrscr;
 write('Masukan nilai siswa : ');readln(nilai);
 write('Masukan absensi siswa : ');readln(absensi);
 if (nilai>=70) then
  begin
  writeln('Anda berhasil lulus');
  end
 else
  begin
   if (absensi>50) then
    begin
    writeln('Anda berhasil lulus');
    end
   else
    begin
    writeln('Anda tidak lulus');
    end;
 end;
 readln;
end. 

Jika dijalankan maka akan seperti gambar dibawah ini
Jika anda menginputkan nilai 70 maka akan muncul text 'anda berhasil lulus' jika nilai kurang dari 70 namun absensi yang anda ketikan lebih dari 50 maka akan muncul text 'anda berhasil lulus' namun jika nilai kurang dari 70 dan absensi kurang dari 50 maka akan muncul text 'anda tidak lulus

Semoga berhasil

Terima kasih atas kunjungan anda, jangan lupa untuk memberikan komentar anda