Struktur Kendali Fungsi IF dan fungsi Case(switch) pada pascal

Struktur Kendali Fungsi IF dan fungsi Case(switch) pada pascal |

Lanjut dari postingan kemarin tentang contoh program pascall sederhana, kali ini saya akan membahas mengenai Stuktur kendali. Semua bahasa pemrograman pasti memiliki struktur kendali atau yang disebut juga dengan decision dan begitu juga pada pemrograman pascal. Didalam pascal terdapat 2 tehnik decision yaitu fungsi IF dan Fungsi Case/Switch

Sebelumnya apa sih itu Struktur kendali??

Dalam bahasa sehari-hari Struktur kendali percabangan dapat diartikan sebagai suatu proses yg  digunakan untuk menyelesaikan masalah yang berbentuk keputusan berdasarkan kondisi.

Nah jadi udah tau kan struktur kendali itu apa!!

Baik seperti yang sudah saya singgung diatas bahwa pascal memiliki 2 tehnik decision. Terus bagaimana tehniknya? Oke disimak!

1. Fungsi IF

Penggunaan Fungsi IF ini  digunakan  ketika inigin menguji suatu kondisi, apabila kondisi bernilai benar atau terpenuhi maka program akan mengeksekusi statetment atau tugasnya dan sebaliknya jika bernilai salah maka statement tidak dijlankan.

Fungsi IF terbagi menjadi 3 yaitu fungsi IF tunggal, IF ganda, dan  fungsi IF majemuk.

a. fungsi IF tunggal  = satu kondisi satu statement.

Sintax : If kondisi then statement

Contoh : if ratarata >=60 then

        Keterangan:=’lulus’

b. fungsi IF Ganda = satu/lebih kondisi dan dua/lebih statement

c. IF majemuk = bentuk pengujian yang lebih dari satu niai kondisi dan statement

2. Fungsi Case / Switch

Fungsi case digunakan ketika hendak menselect / memilih sauatu proses. Apabila case label seseuai dengan input yang dimasukkan maka akan ditampilakn

Sintax

case kondisi of

caselabel-a:statement;

caselabel-b:statement;

caselabel-c:statement;

end;

berikut saya berikan contoh pada kedua Fungsi diatas

1. Penggunaan fungsi IF "menentukan kategori nilai"

uses wincrt;
var
  nilai : integer;
begin
  clrscr;
  writeln ('Program Penilaian');
  writeln ('============');
  writeln;
  write ('Masukkan Nilai Anda =  ');
  readln (nilai);
  if nilai > 85 then
    writeln ('Kategori Nilai Anda =  A')
  else
    if nilai > 70 then
      writeln ('Kategori Nilai Anda =  B')
    else
     if nilai > 60 then
       writeln ('Kategori Nilai Anda =  C')
     else
      if nilai > 50 then
        writeln ('Kategori Nilai Anda =  D')
      else
        writeln ('Kategori Nilai Anda =  E');
end.

2.penggunaan fungsi Case "memilih menu minuman"

uses wincrt;
var
  pilihan:integer;
begin
     writeln('Program Case memilih menu miuman');
     writeln('________________________________');
     writeln('1.Jus Terong');
     writeln('2.Jus Alpukat');
     writeln('3.Jus Orage');
     writeln('4.Jus Jambu');
     write('masukkan pilhian anda = ');readln(pilihan);
     case pilihan of
     1:write('Pilihan Anda Jus Terong, mohon ditunggu..');
     2:write('Pilihan Anda Jus Alpukat, mohon ditunggu..');
     3:write('Pilihan Anda Jus Orange, mohon ditunggu..');
     4:write('Pilihan Anda Jus Jambu, mohon ditunggu..');
     end;
end.

itulah macam macam struktur kendali pada pascal dan contoh programnya, bagi kalian yang masih kurang jelas silahkan bertanya!!!

Share this post