Statemen sederhana adalah statemen yang tidak mengandung statemen yang lainnya.
Statemen terstruktur adalah statemen yang dibentuk dari komposisi beberapa statemen.
Statemen adalah perintah pengerjaan program
•Statemen pengerjaan adalah statemen yang digunakan untuk memasukan suatu nilai tertentu kedalam suatu variabel.
Contoh :
nilai := 5;
nilai := nilai + 1
D := B * B – 4*A*C;
lulus := (nilai>65.5);
benar := true;
lolos := (kode = sandi);
Statemen prosedur
•Digunakan untuk mengaktifkan suatu prosedur yang telah didefinisikan oleh pemakai.
•Contoh :
cari (nama, alamat);
tambah (2, 3, z);
urutkan (nilai);
writeln (celcius);
Statemen GOTO
•Statemen GOTO diawali dengan kata GOTO yang di ikuti oleh pengenal label.
Statemen jamak
•Statemen jamak di gunakan untuk lebih dari sebuah statemen yang harus dikerjakan.
•Contoh :
begin
keterangan := ‘lulus’;
komentar := ‘memuaskan’;
end;
Statemen penyeleksian kondisi
•Statemen ini menunjukan bahwa suatu statemen akan di kerjakan bila suatu kondisi adalah BENAR. Jika kondisi salah maka statemen yang lainnya / statemen setelah kata cadangan ELSE yang akan di kerjakan.
•Contoh :
if kondisi1 then
if kondisi2 then
statemen1 tidak boleh diakhiri dgn ( ; ) krn titik koma menunjukan akhir dr statemen
else
statemen2;
Statemen perulangan
•Statemen ini di gunakan untuk memproses statemen-statemen tertentu berulang kali.
•Bila jumlah perulangan di ketahui, maka statemen FOR yang tepat di gunakan.
Sebalik nya bila jumlah perulangan belum di ketahui maka statemen WHILE atau REPEAT lah yang di gunakan.
Bentuk Perulangan dan Penyelesaian Kondisi
• Materi ini memberikan penjelasan mengenai struktur perulangan dengan statement For,
termasuk didalamnya :
1. Pengertian dan contoh perulangan statement For Positif.
2. Pengertian dan contoh perulangan statement For Negatif.
3. Pengertian dan contoh perulangan tersarang (Nested Loop).
•Memberikan Penjelasan dan contoh mengenai struktur perulangan dengan statement While-Do termasuk didalamnya penjelasan mengenai While-Do tersarang (nested While-Do).
•Memberikan penjelasan dan contoh mengenai perulangan dengan Statement Repeat-Until termasuk di dalamnya penjelasan mengenai Repeat -Until tersarang .
•Memberikan penjelasan dan contoh mengenai penyeleksian kondisi dengan :
1. Statement If - Then
2. Statement If - Then - Else
3. Statement If tersarang (Nested IF)
4. Statement Case - Of
5. Statement Case - Of – Else
Bentuk-bentuk Perulangan
Dalam hampir setiap program yang kompleks mutlak memerlukan suatu rulangan dan percabangan. Tujuan perulangan disini adalah untuk mengulang statement atau blok statement berulang kali sesuai sejumlah yang ditentukan pemakai. Dalam materi ini akan memberikan gambaran konsep dasar dari pengertian diatas.
Statement For
1. Perulangan For.
Perulangan dengan statemen For digunakan untuk mengulang statemen atau suatu blok statemen berulang kali. Perulangan dengan statemen For dapat berupa perunlangan positif dan perulangan nega-tif.
2. Perulangan For positif
Contoh Program :
Program Perulangan_positif_untuk_satu_statement ;
uses wincrt;
var i :integer;
begin
clrscr;
Writeln ('UCAPKAN THE SPIRIT OF 1997 7x....');
for i:= 1 to 7
do writeln (i,' THE SPIRIT OF 1997');
readln;
end.
3. Contoh dengan menggunakan blok statement:
Cara penulisannya dengan pada awal blok diawali dengan Begin dan pada akhir blok diakhiri dengan End;
Contoh Program :
uses wincrt;
var i :integer;
begin
clrscr;
Writeln ('KATAKAN THE SPIRIT OF 1997 4x....');
for i:= 1 to 4 do
Begin
writeln (i,' THE SPIRIT OF 1997 ');
end;
readln;
end.
Hasil yang akan didapat akan sama dengan contoh yang pertama, tapi yang harus diingat disini untuk penggunaan blok pada perula-ngan For biasanya mempunyai banyak statement [lebih dari 1 statement]
Penggunaan perulangan For dalam blok statement untuk membuat tabel
Contoh Program :
Uses Crt;
Var a,b,c : Integer;
bagi : Real;
Begin
clrscr;
Writeln('-------------------------------------');
Writeln(' a a*a a*a*a I/a ');
Writeln('-------------------------------------');
For a := 1 To 10 Do
Begin
b:= a*a;
c:=a*a*a;
bagi := 1/a;
Writeln(a:4,b:10,c:10,bagi:12:3);
End;
Writeln ('-------------------------------------');
readln;
End.
0 komentar:
Posting Komentar