kendali case

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

 

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.