Pengertian Percabangan Pascal Dan Contoh Program Percabangan Pascal

Percabangan if..else digunakan untuk pengujian sebuah kondisi. Jika kondisi yang diuji tersebut terpenuhi, maka program akan menjalankan pernyataan-pernyataan tertentu. Jika kondisi yang diuji salah, program akan menjalankan pernyataan yang lain.

Contoh versi 1 yang paling simple

Program IF_01;

uses crt;

var

  A,B:Integer;

Begin

   clrscr;

   write('Masukan Angka Pertama / A : ');readln(A);

   write('Masukan Angka Kedua / B : ');readln(B);

     If A < B then

    write ('A Lebih kecil dari B ')

    else

    write ('B Lebih kecil dari A ');

readln;

end.

Contoh versi 2 yang agak greget

Program IfThenElse;

uses crt;

var a,b:string;

c:char;

begin

clrscr;

 writeln('Untuk pilihan kelamin tolong gunakan satu huruf saja');

 write('Masukan Nama Anda    : ');readln(a);

 write('Masukan Kelas Anda   : ');readln(b);

 write('Masukan Kelamin Anda : ');readln(c);

 if (c='l') or (c='L') then

 write('',a,' adalah Anak Dari Kelas ',b ,' berkelamin Laki Laki') else

 if (c='p') or (c='P') then

 write('',a,' adalah Anak Dari Kelas ',b ,' berkelamin Perempuan') else

 if (c='g') or (c='G') then

 write('',a,' adalah Anak Dari Kelas ',b ,' berkelamin Ganda') else

 write('',a,' adalah Anak Dari Kelsa ',b,' tidak berkelamin');

 readln;

end.

Contoh versi 3 greget level kalkulator

Program Kalkulator;

uses crt;

var bil1,bil2,pilih,tambah,kurang,kali:integer;

    bagi:real;

begin

clrscr;

writeln('======== Program Kalkulator =========');

write('Masukan Angka Pertama = ');readln(bil1);

write('Masukan Angka Kedua   = ');readln(bil2);

writeln('');

writeln('=====================================');

writeln('Masukan Pilihan Yang Akan Dieksekusi');

writeln('');

writeln('1.Penjumlahan');

writeln('2.Pengurangan');

writeln('3.Pembagian');

writeln('4.Perkalian');

writeln('=====================================');

write('Silahkan Dipilih = ');readln(pilih);

writeln('=====================================');

if pilih=1 then

begin

tambah:=bil1+bil2;

writeln('Hasilnya Adalah = ',tambah);

end

else if pilih=2 then

begin

kurang:=bil1-bil2;

writeln('Hasilnya Adalah = ',kurang);

end

else if pilih=3 then

begin

bagi:=bil1/bil2;

writeln('Hasilnya Adalah = ',bagi:1:1);

end

else if pilih=4 then

begin

kali:=bil1*bil2;

writeln('Hasilnya Adalah = ',kali);

end

else

writeln('Tidak Ada Pada Pilihan');

readln;

end.

Sekian Postingan Dari Saya Bila Ada Yang Ditanyakan Silahkan Berkomentar Dan Happy Copying >_<