Program Sederhana dengan Pernyataan Kendali Case

Dengan contoh program yang sama untuk versi penyataan case dapat

dilihat pada program di bawah ini :

program P0202;

var

alas, tinggi, jejari, luas: Real;

pilih: Integer;

begin

Writeln('1. Segitiga 2. Lingkaran');

Readln(pilih);

case pilih of

1: begin

Readln(alas, tinggi);

luas := 1 / 2 * alas * tinggi;

Writeln('Luas Segitiga : ', luas);

End;

2: begin

Readln(jejari);

luas := pi * Sqr(jejari);

Writeln('Luas Segitiga : ', luas);

end;

end;

Readln;

end.

Dari bentuk-bentuk struktur kendali yang telah dijelaskan di atas

dapat terjadi dimana struktur kendali tertentu berada pada struktur

kendali yang lain, yang dikenal dengan struktur kendali bersarang.

Misalnya didalam pernyataan if terdapat pernyataan if lagi atau dalam

pernyataan case terdapat pernyataan if dan seterusnya.

Untuk lebih jelasnya salin program berikut :

program P0203;

var

nama, alamat: string;

nrp: string[8];

keterangan: string[2];

grade, pilih: Char;

nilai: Integer;

begin

Writeln('1. Memasukkan data mahasiswa 2. Keluar');

Write('Pilihan Anda : ');

Readln(pilih);

case pilih of

'1': begin

Modul 2 – Struktur Kendali Aliran 2-14

Write('Masukkan Nama Anda : ');

Readln(nama);

Write('Masukkan NRP Anda : ');

Readln(nrp);

Write('Masukkan Alamat Anda : ');

Readln(alamat);

Write('Masukkan Nilai Anda : ');

Readln(nilai);

{menentukan program studi}

if (copy(nrp, 3, 2)='11') then

keterangan := 'S1'

else

if (copy(nrp, 3, 2)='31') then

keterangan := 'D3';

{menentukan grade}

if (nilai >= 80) then

grade := 'A'

else

if (nilai >= 70) then

grade := 'B'

else

if (nilai >= 60) then

grade := 'C'

else

grade := 'D';

Writeln('Data mahasiswa yang diinputkan');

Writeln('Nama : ',nama);

Writeln('NRP : ',nrp);

Writeln('Program Studi : ',keterangan);

Writeln('Alamat : ',alamat);

Writeln('Nilai : ',nilai);

Writeln('Grade : ',grade);

end;

'2': begin

Writeln('Anda mengakhiri program !');

Exit;

end;

else

begin

Writeln('Pilihan Anda salah !');

Exit;

end;

end;

Readln;

end.

Nah,,,,selamat mencoba,,,,