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.







Khoirony

Komentar