STRUKTUR KONTROL IF, SELECT CASE DAN STATEMENT GOTO

a. 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 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;

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

sContoh :

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.