Pada dasarnya, percabangan IF THEN ELSE adalah tambahan dari percabangan IF THEN yang telah kita pelajari pada materi sebelumnya. Nah pada percabangan IF THEN ELSE ini bagian pada ELSE digunakan untuk menjalankan kode program apabila sebuah kondisi tidak terpenuhi. Selamat belajar.
MENGENAL PERCABANGAN IF THEN ELSE DI PASCAL
Didalam pemrpograman bahasa pascal di mana ada perintah untuk memilih membandingkan atau memeriksa program. Dalam sebuah program tidak selalu setiap baris dari program dilakukan dalam eksekusi, akan tetapi ada statemen yang di lakukan hanya jika kondisinya memenuhi dan untuk menguji kondisi ini dapat di lakukan dengan statemen IF THEN ELSE.
Baca Juga :
Dengan menggunakan statement ini suatu ekspresi logika bila “ Tidak Lulus “ pada pengujian yang pertama diuji kembali pada kondisi yang berikutnya dan seterusnya, anda dapat memahami konsep dasar dari percabangan IF THEN ELSE berikut ini.
(* Created by Budi Santoso *) IF (kondisi) THEN begin (Pilihan 1) end ELSE begin (Pilihan 2) end;
Jika kondisi terpenuhi maka program akan menjalankan blok begin end pilihan 1, bagian else akan dieksekusi jika bagian kondisi tidak dipenuhi, atau dengan kata lain, bagian else dieksekusi jika kondisi yang terjadi adalah komplemen dari kondisi di bagian IF.
CONTOH PROGRAM PERCABANGAN IF-THEN-ELSE DI PASCAL
Setelah anda paham dengan konsep dasar Percabangan IF THEN ELSE ini, maka saatnya kita membuat program, selamat mencoba.
(* Created by Budi Santoso *)
program Lat_if_then_else;
uses crt;
var
nilai: integer;
begin
clrscr;
writeln('KKM SEKARANG 70 ');
write('Masukan Nilai ? '); readln(nilai);
if (nilai >= 70) then
begin
writeln('SELAMAT ANDA LULUS, DENGAN POIN ', nilai);
end
else
begin
writeln('BELAJAR LAGI ANDA TIDAK LULUS, DENGAN POIN ', nilai);
end;
readln;
end.
Seperti biasa pada awal program saya membuat variabel “nilai” dengan Tipe data integer, pada kode write(‘Masukan Nilai ? ‘); readln(nilai); ini saya gunakan untuk menginput nilai yang akan di simpan sementara pada Variabel “nilai”.
Pada program selanjutnya saya memeriksa sebuah kondisi menggunakan perintah if (nilai >= 70) then yang mempunyai arti variabel “nilai” mempunyai nilai lebih besar atau samadengan 70 maka blok begin end sebelum ELSE akan di jalankan.
Misalkan saja saya input nilai 80, nah karena nilai 80 lebih besar dari 70 maka perintah writeln(‘SELAMAT ANDA LULUS, DENGAN POIN ‘, nilai); akan di jalankan.
Namun jika anda menginput nilai di bawah 70, misalkan saja 60 maka perintah ELSE pada bagian writeln(‘BELAJAR LAGI ANDA TIDAK LULUS, DENGAN POIN ‘, nilai); akan di jalankan.
Sekedar saran saja untuk memperjelas program, sebaiknya semua instruksi IF yang memiliki ELSE ditulis dengan komentar untuk menjelaskan kondisi apa yang ditangani oleh else kepada pembaca program.
Kalau anda sudah membaca dan memahami beetul materi sebelumnya pada TUTORIAL BELAJAR PASCAL 18 : MENGENAL PERCABANGAN IF THEN DI PASCAL, anda pastinya lebih mudah untuk memahami materi Percabangan IF THEN ELSE ini.
Karena menurut saya tidak jauh berbeda, asalkan anda paham konsep dasarnya insyaalloh tidak sulit, terus belajar ya dan tetap tersenyum.
