Kamis, 12 April 2012

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,,,,

Tidak ada komentar:

Poskan Komentar

Diberdayakan oleh Blogger.

Out Sponsor