STRUKTUR KONTROL IF, SELECT CASE DAN STATEMENT GOTO - Hallo sahabat SEPUTAR INFO MAPENDA, Pada Artikel yang anda baca kali ini dengan judul STRUKTUR KONTROL IF, SELECT CASE DAN STATEMENT GOTO, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel pemrograman web, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : STRUKTUR KONTROL IF, SELECT CASE DAN STATEMENT GOTO
link : STRUKTUR KONTROL IF, SELECT CASE DAN STATEMENT GOTO

STRUKTUR KONTROL IF, SELECT CASE DAN STATEMENT GOTO

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.

Demikianlah Artikel STRUKTUR KONTROL IF, SELECT CASE DAN STATEMENT GOTO

Sekianlah artikel STRUKTUR KONTROL IF, SELECT CASE DAN STATEMENT GOTO kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel STRUKTUR KONTROL IF, SELECT CASE DAN STATEMENT GOTO dengan alamat link https://informasimapenda.blogspot.com/2014/01/struktur-kontrol-if-select-case-dan.html

Subscribe to receive free email updates: