Pernyataan Berstruktur

Posted on April 16, 2010. Filed under: Bahasa Pemrograman |

1. Pernyataan Majemuk
Penyataan majemuk adalah kumpulan beberapa pernyataan yang diawali dengan pernyataan BEGIN dan diakhiri dengan penyataan END. Sebuah program Pascal merupakan pernyataan majemuk.

Contoh:
begin
write(‘A : ‘);
readln(A);
write(‘A : ‘, A);
end.

2. Pernyataan Bersyarat (If-Then dan If-Then-Else)
Pernyataan bersyarat akan dilaksanakan jika syarat terpenuhi (bernilai TRUE). Bentuk pernyataan bersyarat ada dua, yaitu sebagai berikut:
 Pernyataan If-Then
Pernyataan ini memiliki dua macam sintaks, yaitu:
Sintaks 1:
If SyaratLogika Then Pernyataan;

Sintaks 2:
If SyaratLogika Then
Begin
Pernyataan1;
Pernyataan2;
. . . . . . . . . ;
PernyataanN;
End;

SyaratLogika adalah operasi relasi yang apabila syarat logika terpenuhi (TRUE), maka pernyataan atau blok pernyataan setelah Then akan dilaksanakan. Apabila kondisi syarat logika tidak terpenuhi (bernilai FALSE), maka pernyataan atau blok pernyataan tidak akan dikerjakan. Untuk setiap blok pernyataan harus dituliskan di antara BEGIN dan END.

Contoh:
Berikut adalah contoh program untuk menentukan kelulusan seorang siswa. Jika nilai di atas 55 maka lulus, jika tidak maka tidak lulus. Nama siswa dan nilai diinputkan dari keyboard.

program kelulusan;
var
Nama : string[30];
Nilai : real;
Ket : string[20];
begin
write(‘Nama Siswa : ‘);
readln(Nama);
write(‘Nilai Angka : ‘);
readln(Nilai);
Ket := ‘Anda Tidak Lulus’;
if (Nilai > 55) then
Ket := ‘Anda Lulus’;
writeln;
writeln(`Hasil : ‘,Ket);
readln;
end.

 Pernyataan If-Then-Else
Pernyataan If-Then-Else mirip dengan pernyataan If-Then, dan memiliki dua macam sintaks, yaitu:
Sintaks 1 :
If SyaratLogika Then
Pernyataan1;
Else
Pernyataan2;

Sintaks 2:
If SyaratLogika Then
Begin
Pernyataan_1;
Pernyataan_2;
……….;
End {tanpa tanda titik koma}
Else
Begin
Pernyataan_A;
Pernyataan_B;
………;
End;

Dalam pernyataan ini, jika SyaratLogika terpenuhi (bernilai TRUE), maka pernyataan atau blok pernyataan setelah Then akan dikerjakan, Tetapi apabila tidak terpenuhi (bernilai FALSE), maka maka pernyataan atau blok pernyataan setelah Else yang akan dikerjakan.

Contoh:
Berikut adalah contoh program untuk menentukan kelulusan seorang siswa. Jika nilai di atas 55 maka akan ditampilkan keterangan “Anda Lulus” dan sebuah pesan, sebaliknya jika nilai kurang dari 55 maka akan ditampilkan keterangan “Anda Tidak Lulus” dan sebuah pesan. Nama siswa dan nilai diinputkan dari keyboard.

program kelulusan;
uses crt;
var
Nama : string[30];
Nilai : real;
Ket, Pesan: string[20];
begin
clrscr;
write(‘Nama Siswa : ‘);
readln(Nama);
write(‘Nilai Angka : ‘);
readln(Nilai);
Ket := ‘Anda Tidak Lulus’;
Pesan := ‘Ulangi Tahun Depan…!’;
if (Nilai > 55) then
begin
Ket := ‘Anda Lulus’;
Pesan := ‘Selamat’…!;
end
else
begin
Ket := ‘Anda Tidak Lulus’;
Pesan := ‘Belajar Lagi…!‘;
end;
writeln;
write(‘Hasil : ‘);
writeln(Ket,’ ‘,Pesan);
readln;
end.

 Pernyataan If-Then-Else-If
Pernyataan If-Then-Else-If sebenarnya merupakan pernyataan bersyarat dalam pernyataan bersyarat yang lain. Pernyataan ini memiliki dua macam sintaks, yaitu:
Sintaks1 :
If SyaratLogika Then
Pernyataan1
Else If SyaratLogika Then
Pernyataan2
Else
Pernyataan3;

Sintaks.2:
If SyaratLogika Then
Begin
Pernyataan11;
Pernyataan12;
……..
End
Else If SyaratLogika Then
Begin
Pernyataan21;
Pernyataan22;
……… ;
End
Else
Begin
Pernyataan31;
Pernyataan32;
………… ;
End;

Pada bentuk ini jika SyaratLogika terpenuhi (bernilai TRUE), maka pernyataan atau blok pernyataan setelah THEN akan dikerjakan. Jika SyaratLogika bernilai FALSE maka program akan mengecek kondisi kedua, jika kondisi kedua bernilai TRUE, maka pernyataan atau blok pernyataan setelah THEN akan dikerjakan. Jika kondisi kedua bernilai FALSE, maka pernyataan atau blok pernyataan setelah ELSE akan dikerjakan.

Contoh:
Berikut adalah program untuk menentukan nilai huruf seorang siswa. Jika nilai angka > 75 maka nilai huruf adalah A, jika nilai antara 50 s/d 75 nilai huruf B, jika kurang dari 50 nilai huruf C

program nilai;
uses crt;
var
Nama : string[30];
NilaiAngka : real;
NilaiHuruf : char;
begin
clrscr;
write(‘Nama Siswa : ‘);
readln(Nama);
write(‘Nilai Angka : ’);
readln(NilaiAngka);
if (NilaiAngka>=75) then
NilaiHuruf := ‘A’
else
if NilaiAngka>=50) and (NilaiAngka<75) then
NilaiHuruf:= ‘B’
else
NilaiHuruf := ‘C
writeln(‘Nilai Huruf : ‘,NilaiHuruf);
readln;
end.
4. Penyataan Case-Of
Pernyataan Case-Of dipakai untuk seleksi ganda. Misal untuk membuat menu pilihan atau pilihan proses.
Sintaks:
Case NamaVar Of
Pernyataanl;
Pernyataan2;
………;
End;

NamaVar dalam pernyataan di sini adalah sebuah variabel yang harus bertipe ordinal seperti char, byte atau integer.

Contoh:
Program berikut digunakan untuk menghitung berbagai macarn luas bangun dengan menggunakan menu pilihan.

program pilihan;
uses crt;
label Pilihan;
Var
Pilih : char;
P, L, A, T, Jari, Luas_SE, Luas_ST, Luas_L : real;
begin
Pilihan: clrscr;
writeln(‘PILIHAN PROSES’);
writeln;
writeln(‘1. Luas Segi Empat’);
writeln(‘2. Luas Segi Tiga’);
writeln(‘3. Luas Lingkaran’);
writeln(‘4. S e 1 e s a i’);
writeln;
write(‘Masukkan Pilihan Anda : ‘);
readln(Pilih);
case Pilih of
‘1’: begin
write(‘Panjang : ‘);
readln(P);
write(Lebar : ‘);
readln(L);
Luas_SE:=P*L;
write(’Luas : ‘);
readln(Luas_SE:6:2);
readln;
end;
‘2’: begin
write(‘Alas : ‘);
readln(A);
write(‘Tinggi : ‘);
readln(T);
Luas_ST:=0.5*A*T;
write(‘Luas :’);
readln(Luas_ST:6:2);
readln;
end;
‘3’: begin
write(‘Jari jari :’);
readln(Jari);
Luas_L:=3.14*Jari*Jari;
write(‘Luas : ‘);
readln(Luas_L:6:2);
end;
‘4’ : halt;
end;
write(‘Selesai’);
goto Pilihan;
end.

Make a Comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Liked it here?
Why not try sites on the blogroll...

%d bloggers like this: