Struktur Kontrol If, Select Case Dan Statement Goto
STRUKTUR KONTROL IF, SELECT CASE
DAN STATEMENT GOTO
STRUKTUR IF
Bentuk Umum :
1. IF kondisi THEN statement
2. IF kondisi THEN statement_1 ELSE statement_2
3. IF kondisi_1 THEN
IF kondisi_2 THEN statement_1
ELSE statement_2
4. IF kondisi_1 THEN
BEGIN
IF kondisi_2 THEN statement_1 ELSE statement_2
END
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
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
STRUKTUR CASE
Bentuk Umum : Case – Of
CASE mulut 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 mulut OF
Case label list 1 : statement_1;
Case label list 2 : statement_2;
Case label list n : statement_n;
ELSE statement;
END;
Contoh;
PROGRAM nilai;
VAR
nil : CHAR;
BEGIN
WRITE('Nilai Numerik yang didapat :');
READLN(nil);
CASE nil OF
'A': WRITELN('SANGAT BAIK');
'B': WRITELN('BAIK');
'C': WRITELN('CUKUP');
'D': WRITELN('KURANG');
'E': WRITELN('SANGAT KURANG ');
END;
END.
hasil :
Nilai Numerik yang didapat : B
BAIK
Var Nilai :char;
Begin
Write(‘Nilai karakter 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.
