Suatu bentuk/struktur yang memiliki peranan khusus untuk mengatur aliran urutan pengerjaan operasi atau beberapa operasi tertentu. Pernyataan kendali terbagi menjadi dua, yaitu pernyataan if dan pernyataan case.
Pernyataan if akan memeriksa suatu persyaratan dan menentukan apakah syarat tersebut benar atau salah, kemudian melakukan pekerjaan sesuai dengan nilai pernyataan tersebut.
Berikut adalah bentuk-bentuk dari pernyataan if yang sering digunakan :
1.If dengan satu kondisi
if (kondisi) then
begin
pernyataan ;
end;
2. If dengan dua kondisi
if (kondisi) then
begin
pernyataan1 ;
pernyataan2 ;
end
else
begin
pernyataan1 ;
pernyataan2 ;
end;
3. IF Bersarang (Nested IF)
Struktur IF Bersarang merupakan bentuk dari suatu statement IF berada di dalam lingkungan statemen IF yang lainya. Bentuk statement IF Bersarang sebagai berikut:
IF (Kondisi) THEN
begin
If (kondisi) then
begin
pernyataan1 ;
pernyataan2 ;
end
else
begin
pernyataan1 ;
pernyataan2 ;
end;
end;
Berikut Contoh Program sederhana yang digunakan untuk menentukan nilai kelulusan dengan kondisi jika nilai yang diinput lebih besar sama dengan 65 maka Lulus dan jika lebih kecil dari 65 maka Gagal.
uses crt;
var a,b : integer;
nm : string;
begin
write('Masukkan nama : ');
readln(nm);
write('Masukkan nilai : ');
readln(a);
if a >= 65 then
begin
writeln(nm, ' LULUS');
writeln('Nilai anda = ',a);
end
else
begin
writeln(nm, ' GAGAL');
writeln('Nilai anda = ',a);
end;
readkey;
end.
Hasil Output :
Masukkan nama : Marthin
Masukkan nilai : 85
Marthin LULUS
Nilai anda = 85
Case of yaitu suatu ungkapan logika yang disebut selector dan sejumlah statement yang diawali dengan suatu label permasalahan (case label) yang mempunyai tipe sama dengan selector.
Struktur Penulisan :
Case variabel Of
Range1 : Statement1;
Range2 : Statement2;
Range3 : Statement3;
.....
Else Statement N;
End;
Berikut contoh program case of:
uses crt;
var pilih : integer;
begin
Clrscr;
write('Masukkan pilihan hari [1-3] : ');
readln(pilih);
case pilih of
1 :
begin
writeln('Hari Senin..');
end;
2 :
begin
writeln('Hari Selasa..');
end;
3 :
begin
writeln('Hari Rabu..');
end;
else
writeln('Are you kiding !!!');
writeln('Are you kiding !!!');
end;
readkey;
end.
Hasil Output :
Masukkan pilihan hari [1-3] : 3
Hari Rabu..
Read more...
