Struktur kendali aliran
Bila
di berikan kasus sederhana yg
memerlukian alur terkondisi, mahasiswa mampu membuat program untuk memecahkan
kasus tersebut.
Persiapan
Menjalankan
program Turbo Pascal,mengikuti percobaan yg diberikan sesuai dg urutanya. Mengerjakan
latihan – latihan yg di berikan.
Pekerjaan
Mengetikkan
coding dg menggunakan struktur kendali IF dan CASE, menjalaninya dan
menganalisa hasil.
Pengenalan Penyataan Kendali
(Conditional Statement).
Struktur
kendali aliran adalah suatu bentuk/struktur yg memiliki penalaran khusus untuk
mengatur aliran urutan pengerjaan operasi atau beberapa opersi tertentu.
Pernyataan
kendali terbagi menjadi dua yaitu : -
pernyataan IF dan Pernyataan CASE,.
Pernyataan IF ( statement ).
Pernyataan
IF ( statement ) akan memeriksa suatu persyaratan dan menentukan apakah
persyaratan tersebut benar atau salah, kemudian melakukan pekerjaan sesuaidg
pernyataan nilai tesebut.
Berikut
adalah bentuk – bentuk dari pernyataan If yg sering di gunakan :
If dg satu pernyataan ( Statement
).
If (kondisi) then pertanyaan ;
Dg dua atau lebih pernyataan
(statement).
If (kondisi) then
Begin
Pernyataan
1;
Pernyataan
2 ;
…….
End
If dan Else.
If (kondisi) then.
Begin
Pernyataan1
;
Pernyataan2
;
……..
End
Else
Begin
Pernyataan1
;
Pernyataan2
;
……..
End.
Dari bentuk – bentuk pernyataan
If diatas yg harus di perhatikan adalah untuk pernyataan If dan Else,
pernyataan – pernyataan setelah then tanpa menggunakan “;”. Dg kata lain jika
pernyataan setelah then hanya terdiri dari satu pernyataan saj, maka pernyataan
tersebut tanpa menggunakan “;”. Namun jika pernyataan setelah then terdiri
lebih dari satu pernyataan maka setelah End tanpa menggunakan “;”.
Program
sederhana dg pernyataan kendali IF.
Berikut
copntoh program sederhana untuk menghitung luas segitiga, dan lingkaran,.yg
mana prhitungan dua buah bangun tersebut digabung menjadi satu program, dan
pemakai dapat memilih masalah mana yg akan dipecahkan. Sebagimana diketahui
untuk menghitung luas segitiga adalahdgengan :
L = ½ . a . t
Dan luas lingkaran adalah dengan
:
L = ? r . r
Untuk lebih jelasnya salin
program berikut
Program P0301:
Var
Pilih : integer
Begin
Writeln(‘1.segitiga
2. Lingkaran’); Readln(pilih);
If pilih = 1 then
Begin
Readln(alas, tinggi);
Luas:=1/2* alas *tinggi;
Writeln(‘luas segitiga : ‘,
luas);
End
Else
Begin
Readln(jejari)
Luas;= pi * Sqr(jejari);
Writeln(‘luas
segitiga : ‘, luas);
End;
Readln
End.
Jalankan program tersebut. Pada
program tersebut di sajikan dua macam pilihan kepada pemakai untuk menghitung
luas segitiga dan luas lingkaran.peubah pilih digunakan untuk pemakai guna
menentukan pilihanya.
Pernyataan
Case (Case statement).
Perntyataan case (case
statement) berisi ungkapan memilih (selector) dan sederetan pernyataanyang
masing – masing diawali dg satu atau l;ebih tetapan (Case constant,) atau dg
kata kunci else.
Semua tetapan case harus khas
dan tipe berurutan yg digunakan harus sesuai dg tipe pemilih.sam halnya dg
pernyataan if, pada pernyataan case jika pernyataan tersebut harus diwakili dg
begin dan di akhiri dg End.
Berikut
bentuk pernyataan case :
Case <peubah> of
Tetapan1 : pernyataan1 ;
Tetapan 2 ; begin
Pernyataan1
;
Pernyataan2;
……
End;
Tetapan3, tetapan4: pernyataan1;
Tetapan5,……..tetapan8:
pernyataan2 ;
End;
Program
Sederhana dg pernyataan kendali Case.
Dengan
contoh program yang sama untuk versi pernyataan case dapatdilihat pada program
di bawah ini :
Progaram P0302;
Var
Alas, tinggi, jejari, luas: real;
plih: integer,
Begin
Writeln(‘1. Segitiga 2.
Lingkaran’);
Readln(pilih);
Case pilih of
Begin
Readln(alas,
tinggi);
Luas
:= ½* alas* tinggi;
Writeln(‘Luas
Segitiga: ‘, luas );
End;
Begin
Readln(jejari);
Luas := pi *Sqr(jejari);
Writeln(‘luas
segitiga : ‘, luas);
End;
End;
Readln;
End.
Dari bentuk – bentuk struktur
kendali yg telah di jelaskan diatas dapat terjadi dimana struktur kendali
tertentu berbeda pada struktur kendali yg lain, yg dikenal dg sturktur kendali
bersarang. Misalnya, didalam pernyataan if terdapat pernyataan if lagi, atau
dalam pernyataan case terdapat pernyataan if dan seterunya.
Untuk
lebih jelasnya salin program berikut :
Program P0303;
Var
Nama, alamat : string;
Nrp: sring[8];
Keterangan: string[2]; grade,
pilih: Char; nilai: interger;
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
:= ‘B’
else
if
(nilai >= 60) then
grade
:= ‘C’
else
grade
:= ‘D’
Writeln(‘data
mahasiswa yg diimputkan’); Writeln(‘Nama : ‘,nama);
Writeln(‘NRP
: ‘,nilai);
Writeln(grade
: ‘,grade);
End;
‘2’:
begin
Writeln(‘anda
mengakhiri program !’);
Exit;
End;
Else
Begin
Writeln(‘pilihan
anda salah !’); Exit;
End;
End;
Readln;
End.
Komentar
Posting Komentar