Materi ALGORITMA PEMROGRAMAN 2A - PERTEMUAN 5 (STRUKTUR KONTROL IF, SELECT CASE DAN STATEMENT GOTO)

Struktur IF
Bentuk Umum :
A.    IF kondisi THEN statement
B.    IF kondisi THEN statement_1 ELSE statement_2
C.    IF kondisi_1 THEN
         IF kondisi_2  THEN statement_1
         ELSE statement_2
D.    IF kondisi_1 THEN
BEGIN
    IF kondisi_2 THEN statement_1 ELSE statement_2
END

Bentuk Flowchart :

    IF – THEN                               IF – THEN - ELSE








IF TERSARANG






   
Contoh : If - Then

Var
        NilaiUjian    : real;
        Ket        : string[11];
Begin
        Ket := ‘Tidak Lulus’;
        Write(‘Nilai yang didapat ? ‘);
        Readln(NilaiUjian);
          If  NilaiUjian > 60 Then Ket :=’Lulus’;
          Writeln(Ket);
End.



Hasilnya :

    Nilai yang didapat ? 70
Lulus
FlowChart :




Contoh : If - Then - else
Var
        NilaiUjian    : real;
        Ket        : string[11];

Begin
        Write(‘Nilai yang didapat ? ‘);
        Readln(NilaiUjian);
          If  NilaiUjian > 60 Then
              Writeln(‘Lulus’);
          Else
            Writeln(‘Tidak Lulus’);   
End.

Hasilnya :

    Nilai yang didapat ? 70
Lulus


FlowChartnya :








Struktur CASE
   
    Bentuk Umum :   Case – Of
   
    CASE ekspresi OF
                    Case label list 1 : statement_1;
                    Case label list 2 : statement_2;
                           
                           
                    Case label list  n : statement_n;
                END;
   
    Bentuk Umum :    Case - Of…Else
       
                   CASE ekspresi OF
                    Case label list 1 : statement_1;
                    Case label list 2 : statement_2;
                           
                           
                    Case label list  n : statement_n;
                ELSE                 statement;   
    END;
   
   
   
   
   
   
   
   
    Bentuk proses (flow chart)  :
   

   
      
       Perbedaan antara CASE dengan IF adalah jika statement if menyeleksi suatu kondisi dan terpenuhi,  setelah memproses statement dalam lingkungan yang terpenuhi tersebut, proses penyeleksian masih dilakukan terhadap statement if berikutnya yang lain. Sedangkan pada struktur CASE-OF bila salah satu kondisi terpenuhi dan statement tersebut telah diproses, selanjutnya statement-statement yang lainnya dalam lingkungan CASE tidak akan diseleksi lagi.
    Daftar case label dapat berupa sebuah konstanta, atau range dari konstanta yang bukan bertipe real.
    Contoh :
    1:
    1,2,3,4:
    1..5:
    ‘A’:
    ‘A’,’B’:
    ‘A’..’D’:
    Contoh :
        Var Nilai :char;
    Begin
            Write(‘Nilai huruf yang didapat’);readln(Nilai);
            CASE  Nilai  OF
                ‘A’ : writeln (‘T-shirt’);
                ‘B’ : writeln (‘Sepatu’);
                ‘C’: writeln (‘Topi’);
            End;
    End.
   
    Contoh :
    Var Nilai :char;
    Begin
            Write(‘Nilai huruf yang didapat’);readln(Nilai);
            CASE  Nilai  OF
                ‘A’ : writeln (‘T-shirt’);
                ‘B’ : writeln (‘Sepatu’);
                ‘C’: writeln (‘Topi’);
            Else Writeln(‘Pilihan hanya A,B,C’);
    End.
   
   
Struktur GOTO

Bentuk Umum : GOTO label statement;




Contoh :

    Label    10,selesai;
    Begin
        Writeln(‘Bahasa’);
        Goto 100;
        Writeln(‘Basic’);
    100;
        Writeln(‘Pascal’);
        Goto selesai;
        Writeln(‘Cobol’);
    Selesai;
    End.