[Pascal] Percabangan atau Seleksi Kondisi

8

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

input

output

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.. :)

Discussion8 Comments

  1. Pingback: Blog Ku Penyelamat UTS | Ciebal Site - Just a Simple Blog

Leave a Reply