DEKLARASI PERCABANGAN

DEKLARASI PERCABANGAN

          Struktur percabangan atau  memungkinkan programmer untuk membuat suatu program yang dapat memilih satu kondisi di antara beberapa kondisi untuk dikerjakan. Dalam Pascal disediakan 2 buah struktur kontrol seleksi, yaitu:

1. Statemen IF

    A. Struktur IF……Then…..

Bentuk : if kondisi then statemen;

             Else statement

             End.

Contoh :

uses crt;

var

a,b:string;

begin

 clrscr;

  write('masukan nama = ');

 readln(a);

 write('masukkan password = ');

 readln(b);

 if (a='aku')or(b='123') then

 begin

  clrscr;

  delay(800);

  writeln('selamat  datang di website ku...');

  delay(1000);

  writeln('//==============//');

 end

 else

 begin

  clrscr;

   writeln('login yg anda masukkan slah');

  writeln('//=============//');

 end;

readln;

end.

    B. Struktur IF Tersarang

         Merupakan struktur kontrol di mana suatu aksi dilaksanakan berdasarkan kondisi logikanya (benar atau salah).

Bentuk if  (kondisi) then statemen

Else if (kondisi) then statemen

Else

Contoh:

uses crt;

var

 nm,ni,jb,U:string;

 gp,tj,lb,tgj,jl,glm1,gaji,total:real;

begin

        clrscr;

        writeln('======= GAJI KARYAWAN ========');

        writeln('     PT. GUDANG TEMBAKAU');

        WRITELN('******************************');

        write('Nama             :');

        readln(nm);

        write('NID      :');

        readln(ni);

        write('Jabatan:');

        readln(jb);

        write('Jumlah Jam Lembur:');

        readln(jl);

        glm1:=jl*15000;

        if (jb='manager') then

         begin

          gaji:=1200000;

          tj:=100000;

          lb:=glm1;

         end

         else

         if (jb='karyawan') then

         begin

         gaji:=1000000;

         tj:=100000;

         lb:=glm1;

         end

        else

         if (jb='cleaningservices') then

         begin

         gaji:=750000;

         tj:=100000;

         lb:=glm1;

         end;

        writeln('************************');

        writeln('Gaji Pokok',gaji);

        writeln('Tunjangan',tj);

        writeln('Lembur',glm1);

        total:=gaji+tj+glm1;

        writeln('************************');

        writeln;

        writeln('TOTAL GAJI',total);

        writeln('====================');

        readln;

end.

Catatan: Jika anda menggunakan else, perlu diingat bahwa satu baris sebelum else tidak diperkenankan mengandung tanda “ ; ” atau sebelum statemen atau pernyataan tidak bolehdi akhiri dengan “;”.

2. Statemen Case

    a.  Struktur Case…Of…

         Merupakan peluasan dari struktur IF. Karena kalau dalam struktur IF hanya disediakan dua pilihan (berdasarkan kondisi logikanya) maka dalam struktur Case..of dimungkinkan untuk memilih satu pilihan di antara banyak pilihan yang ada. Statement case berisi ungkapan (pemilih) dan sederetan statement yang masing-masing diawali dengan satu atau lebih konstanta (disebut konstanta case).Bentuk umumnya : 

Case  var_CAS  of   

Pilih1 : Aksi Pertama ;     

Pilih2 : Aksi Kedua ;

Else

Statement

End;

End.     

Contoh:

uses crt;

var

        ayo,U:char;

        b,c,d,e,f:integer;

begin

clrscr;

        writeln('**************************');

        writeln('[1].luas persegi panjang');

        writeln('[2].luas persegi');

        writeln('**************************');

        writeln;

        textcolor(yellow);write('masukkan pilihan 1-2 = ');

        readln(ayo);

        clrscr;

        case ayo of

        '1':

        begin

                gotoxy(10,10);textcolor(green);writeln('=== luas persegi panjang ===');

                writeln;

                textcolor(3);write('inputkan lebar = ');

                readln(b);

                textcolor(brown);write('inputkan panjang = ');

                readln(c);

                writeln('*********************************');

                d:=b*c;

                textcolor(green);writeln('hasilnya adalah ',d);

                readln;

        end;

        '2':

        begin

                gotoxy(10,10);textcolor(yellow);write('======= luas persegi =======');

                writeln;

                textcolor(green);write('inputkan  = ');

                readln(b);

                textcolor(17);write('inputkan sisi = ');

                readln(e);

                writeln('*********************************');

                f:=e*e;

                writeln('hasilnya adalah ',f);

                readln;

        end;

     else

         writeln('Status Tidak Ada....!; ');

     end;

     readln;

end.

 Catatan : Percabangan ini tidak ada perbedaan dengan  struktur percabangan  IF.

Tips: Agar seorang programer atau pemula mengerti alur jalannya program yang di buat, bisa memberikan komentar dengan memberikan garing “ // ” sebelum memberi komentar.