Dalam bahasa pemograman khususnya pascal dikenal struktur percabangan yang menggunakan "if...then...else, case...of"
I. IF...Then...Else
Bentuk umum : IF kondisi THEN { statement1 }
ELSE { statement2 } Contoh kasus : Sebuah aturan untuk menonton sebuah film tertentu adalah sebagai berikut, jika usia penonton lebih dari 17 tahun maka penonton diperbolehkan dan apabila kurang dari 17 tahun maka penonton tidak diperbolehkan nonton. Buatlah dalam bahasa pascal untuk permasalahan tersebut dengan menggunakan IF...Then...Else.
Penyelesaian : Permasalahan diatas merupakan ciri permasalahan yang menggunakan struktur percabangan. Hal ini ditandai dengan adanya pernyataan jika ..maka ...(atau If ... Then dalam Bahasa Inggris. )
uses crt;
var a : integer;
begin
clrscr;
write('Masukkan usia anda = ');
readln(a);
if a >= 17 then
begin
write('Anda boleh masuk')
else
write('Anda TIDAK BOLEH masuk');
end;
readkey;
end.
II. Case...Of
Bentuk umum : CASE ungkapan Of
statement1
statement2
dst.
Contoh kasus : Tampikan kalimat sesuai dengan kode kalimat, contoh : jika memasukkan angka 1 maka yang keluar "satu", jika memasukkan 2 maka yang keluar "dua", dst sampai 5.
Penyelesaian :
uses crt;
var a : integer;
begin
clrscr;
write('Masukkan angka pilihan anda anda 1 sampai 5 = ');
readln(a);
Case a Of
1 : begin
write('Satu');
end;
2 : begin
write('Dua');
end;
3 : begin
write('Tiga');
end;
4 : begin
write('Empat');
end;
5: begin
write('Lima');
end;
readkey;
end.
case...of biasanya digunakan untuk percabangan yang lebih dari 2 pilihan
I. IF...Then...Else
Bentuk umum : IF kondisi THEN { statement1 }
ELSE { statement2 } Contoh kasus : Sebuah aturan untuk menonton sebuah film tertentu adalah sebagai berikut, jika usia penonton lebih dari 17 tahun maka penonton diperbolehkan dan apabila kurang dari 17 tahun maka penonton tidak diperbolehkan nonton. Buatlah dalam bahasa pascal untuk permasalahan tersebut dengan menggunakan IF...Then...Else.
Penyelesaian : Permasalahan diatas merupakan ciri permasalahan yang menggunakan struktur percabangan. Hal ini ditandai dengan adanya pernyataan jika ..maka ...(atau If ... Then dalam Bahasa Inggris. )
uses crt;
var a : integer;
begin
clrscr;
write('Masukkan usia anda = ');
readln(a);
if a >= 17 then
begin
write('Anda boleh masuk')
else
write('Anda TIDAK BOLEH masuk');
end;
readkey;
end.
II. Case...Of
Bentuk umum : CASE ungkapan Of
statement1
statement2
dst.
Contoh kasus : Tampikan kalimat sesuai dengan kode kalimat, contoh : jika memasukkan angka 1 maka yang keluar "satu", jika memasukkan 2 maka yang keluar "dua", dst sampai 5.
Penyelesaian :
uses crt;
var a : integer;
begin
clrscr;
write('Masukkan angka pilihan anda anda 1 sampai 5 = ');
readln(a);
Case a Of
1 : begin
write('Satu');
end;
2 : begin
write('Dua');
end;
3 : begin
write('Tiga');
end;
4 : begin
write('Empat');
end;
5: begin
write('Lima');
end;
readkey;
end.
case...of biasanya digunakan untuk percabangan yang lebih dari 2 pilihan
