Seleksi kondisi terbagi 4 bagian, yaitu :

If … then

Contoh :

If (kondisi) then
Statement;

If … then … else

Contoh :

If (kondisi1) then
Statement1
Else if (kondisi2) then
Statemen2
Else
Statement3;

If … then … if

Contoh :

If (kondisi) then
Begin
If (kondisi) then
Statement1
Else
Statement2;
End
Else
Statement3;

Case … of

Contoh :

Case nama variabel of
Kondisi1:statement1;
Kondisi2:statement2;
End.

Contoh Program

Source Code

uses crt;
var
jurusan,jenisbus: string;
total,diskon,bayar: integer;
harga:real;
begin
clrscr;
writeln(‘             Pemesanan Tiket Bus Online              ‘;
writeln(‘                Selamet Jaya Perkasa                 ‘;
writeln(‘      Jurusan Jakarta, Cianjur dan Majalengka        ‘;
writeln(‘+—————+———————–+———–+’;
writeln(‘| Kode  Jurusan |           AC          |  Ekonomi  |’;
writeln(‘+—————+———————–+———–+’;
writeln(‘|[1] Jakarta    | Rp.40.000 (Disc. 10%) | Rp.30.000 |’;
writeln(‘|[2] Cianjur    | Rp.25.000             | Rp.20.000 |’;
writeln(‘|[3] Majalengka | Rp.30.000 (Disc. 5%)  | Rp.25.000 |’;
writeln(‘+—————+———————–+———–+’;
writeln(”;
writeln(”;
writeln(‘Silahkan isi data dibawah ini :’;
begin
write(‘- Kode Jurusan : ‘;readln(jurusan);
write(‘- Jenis Bus    : ‘;readln(jenisbus);
write(‘- Jumlah Tiket : ‘;readln(total);
write(‘- Harga bayar  : ‘;
if (jurusan=’1′ and (jenisbus=’ac’then harga:=40000-(40000*0.1);
if (jurusan=’1′ and (jenisbus=’ekonomi’then harga:=30000;
if (jurusan=’2′ and (jenisbus=’ac’then harga:=25000;
if (jurusan=’2′ and (jenisbus=’ekonomi’then harga:=20000;
if (jurusan=’3′ and (jenisbus=’ac’then harga:=30000-(30000*0.05);
if (jurusan=’3′ and (jenisbus=’ekonomi’then harga:=25000;

writeln(‘Rp.’,total*harga:0:2);
writeln(”;
writeln(‘Terimaksih atas pemesanannya’;
writeln(‘Data Anda sedang kami proses…’;
readln;
end;
end.

Moga Bermanfaat..