Program Pascal Pemilihan

Penyeleksian dengan If then else

   Tujuan :

Mempelajari struktur kondisi dalam PASCAL yaitu Struktur If … Then …, If … Then … Else …

Teori Singkat

  •  If … Then … :

Statemen If … Then … mempunyai syntax :

If <syarat_logika> Then Statemen

Atau

If <syarat_logika> Then

    Begin

         Statemen1;  --à    disebut blok statemen

         Statemen2;  --à     disebut blok statemen

    End;

Keterangan

<syarat_logika> adalah operasi relasi (seleksi kondisi) yang apabila bernilai TRUE (benar) maka statemen atau blok statemen setelah Then akan dilaksanakan. Apabila statemen yang berkaitan dengan nilai TRUE lebih dari satu statemen maka blok statemen dipergunakan, jika hanya terdiri dari satu statemen maka blok statemen tidak perlu dipergunakan. Blok statemen ditandai dengan Begin …End; 

•  If … Then …Else … :

 Mirip dengan syntax If … Then, tata aturan if then else adalah :

If <syarat_logika> Then Statemen1 Else Statemen2;  Atau

If <syarat_logika> Then

    Begin

         Statemen1;

         Statemen2; blok jika syarat True

    End

Else

    Begin

         Statemen1;

         Statemen2; blok jika syarat False

End; 

 

Syarat:

      Jika <syarat_logika> bernilai TRUE maka statemen atau blok statemen seteleh Then akan dikerjakan, jika <syarat_logika> bernilai FALSE maka statemen atau blok statemen seeleh Else akan dkerjakan.

Untuk perintah if pemrograman pascal terdiri dari 3 jenis yaitu

1. IF Satu Kasus ( IF-THEN)
2. IF Dua Kasus (IF-THEN-ELSE)
3. IF Tiga Kasus Atau Lebih

Untuk Contoh Penerapannya Dalam Pemrograman pascal adalah sebagai berikut :

program ifsatukasus;

uses wincrt;

var

 tahun : integer;

begin

 write('Masukkan Tahun Yang Akan Diperiksa : '); readln(tahun);

 if (tahun mod 4 = 0) and (tahun mod 100 <> 0) or (tahun mod 400 = 0) then

 writeln('Tahun ',tahun, ' Merupakan Tahun Kabisat');

 readln

end.

 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

program ifduakasus;

uses wincrt;

var

 lampu : string;

begin

 write('Warna Lampu Lalu Lintas : '); readln(lampu);

 if lampu = 'merah' then

    write('Hentikan Kendaraan Anda')

 else

    write('Silahkan Jalan Dan Hati-Hati')

end.

 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

program sudut_segitiga;

uses wincrt;

var

 a, b , c : integer;

begin

 write('Masukkan Panjang Sisi A : ');readln(a);

 write('Masukkan Panjang Sisi B : ');readln(b);

 write('Masukkan Panjang Sisi C : ');readln(c);

 writeln;

 writeln;

 if (c = a+b) then begin

    writeln('Sisi Tersebut Membentuk : Segitiga Siku-Siku')end

 else if c > a + b then begin

    writeln('Sisi Tersebut Membentuk : Segitiga Tumpul');end

 else if c < a +b then

    writeln('Sisi Tersebut Membentuk : Segitiga Lancip');

 writeln;

 readln;

end.

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Penyeleksian Kondisi Dengan CASE

Tujuan :

Mempelajari struktur kondisi dalam PASCAL yaitu Struktur If … Then …, If … Then … Else … dan

Case … Of …

Statemen Case Nama_Var Of : 

 Statemen Case NamaVar Of dipakai untuk penyeleksian berganda. NamaVar adalah nama variabel yang harus bertype ordinal seperti Char, byte atau integer. Padanan dengan If … Then , misalnya kita memiliki varibel Pil yang bertipe Char, dan dihadapi seleksi pilihan :

  If Pil = ‘a’ Then Statemen2;

  If Pil = ‘b’ Then Statemen2;

  Dst ...

  Dapat ditulis dengan statemen Case … Of dengan syntax sbb :

Case Pil Of

‘a’ : Statemen1;

‘b’ : Statemen2;

End; 

 Berikut contoh program pemakaian seleksi case of pada pascal.

uses crt ;
var
   mtk    : string[30];
   nilai  : byte ;
   ket    : string[10];
Begin
     clrscr ;
     Write('Mata Kuliah   : '); readln(mtk) ;
     Write('Nilai         : '); readln(nilai) ;
     Case nilai of
    80..100: ket:='Lulus' ;
         70..79 : ket:='Lulus' ;
         60..69 : ket:='Lulus' ;
         50..59 : ket:='Lulus' ;
         0..49  : ket:='Gagal' ;
     end;

     Write('Keterangan    : ', ket);
     readln;
end.

Demikianlah artikel pemakaian seleksi if then dan case of pada pascal . Semoga bermanfaat dan anda semakin menyukai belajar bahasa pemrograman.