TKJ PENULISAN BAHASA PEMOGRAMAN

Struktur Penulisan Bahasa Pemrograman Pascal

. . . .

1.Deklarasi

. . . .

Sebagai bahasa pemrograman terstruktur, Pascal memiliki aturan dalam penulisan programnya. Dan secara garis besar sebuah program Pascal dapat dibagi atas dua bagian utama yaitu:

• Blok Deklarasi, dan 
• Blok Program Utama (Main Program)

Pada blog deklarasi dapat dideklarasikan berbagai keperluan, seperti; deklarasi nama program unit, variabel, konstanta, prosedur dan fungsi yang akan digunakan dalam program utama. Segala sesuatu yang akan digunakan di dalam program utama harus dideklarasikan pada blog deklarasi.

Berikut ini adalah kata cadangan yang digunakan pada blok deklarasi untuk mendeklarasikan hal-hal yang diperlukan di dalam blok program utama.

Program, digunakan untuk mendeklarasikan judul program. Jika menggunakan compiler Pascal seperti Turbo Pascal, deklarasi judul program sifatnya optional artinya judul program boleh dideklarasi atau tidak. Sebuah file program Pascal memiliki satu judul program. Dan memiliki ketentuan sebagai berikut:

- Tidak boleh ada spasi

- Boleh menggunakan underscore tetapi tidak boleh ada simbol-simbol khusus

- Diawali dengan kata cadangan program dan diakhiri dengan tanda titik koma (;)

Uses, digunakan untuk mendeklarasikan unit yang akan dipakai di dalam program. Jika kita ingin menampilkan output program ke layar, kita harus mendeklarasikan unit crt. Sedangkan jika ingin mencetak hasil program ke printer, kita harus mendeklarasikan unit printer.

Var, digunakan untuk mendeklarasikan variabel.

Const, digunakan untuk mendeklarasikan konstanta.

Procedure, digunakan untuk mendeklarasikan prosedur,

Function, digunakan untuk mendeklarasikan fungsi.

Sebuah program Pascal, selain memiliki blok deklarasi juga memiliki blok program utama. Untuk menandakan blok program utama, pada program Pascal di awali dengan Begin dan diakhiri dengan End. (end titik).

{program utama}

Begin

. . . . .

End.

Susunannya berupa :

Program nama_program;

Uses;

. . . .     {unit yang dipakai}

Label;

. . . .     {label-label yang dipakai}

Const;

. . . .     {pendefinisian konstanta yang dipakai}

Type;

 . . . .    {pendefinisian tipe-tipe data}

Var;

 . . . .    {pendefenisian peubah}

Procedure nama_prosedur;

Begin

End;

 

2.Statement

 

Statement – Statement dalam Pascal :

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.


4. Perulangan For negatif

Perulangan negatif adalah perulangan dengan menghitung (counter) dari besar kekecil.

Statement yang digunakan adalah For-DownTo-Do

Contoh Program :

Uses wincrt;
Var
i : Integer;
Begin
clrscr;
For i := 10 DownTo 1 Do
{Write (i:34); <- pengaturan jarak -> Hasil Harizontal}
writeln (i:34);
readln;
End.
Hasil :

10
9
8
7
6
5
4
3
2
1

5. Perulangan For tersarang

Perulangan For tersarang adalah perulangan For yang berada pada perulangan yang lainnya. Perulangan yang lebih dalam akan diproses terlebih dahulu sampai habis, kemudian perulangan yang lebih luar baru akan bertambah, mengerjakan perulangan yang lebih dalam lagi mulai dari nilai awalnya dan seterusnya.

Contoh Program :

uses wincrt;
Var
a,b : Integer;
Begin
clrscr;
For a := 1 To 13 Do
Begin
For b := 1 To 2 Do
Write (a :4,b:2);
Writeln;

End;
readln;
End.

Statement While Do

1. Perulangan While - Do

Penyeleksian kondisi digunakan untuk agar program dapat menyeleksi kondisi, sehingga program dapat menentukan tindakan apa yang harus dikerjakan, tergantung dari kondisi yang diseleksi tersebut. Perulangan While - Do tidak dilakukan jika kondisi tidak terpenuhi.

Contoh Program :

Uses wincrt;
Var i : Integer;
Begin
clrscr;
i := 0;
While i<= 10 do
Begin
Write (i:3);
Inc (i); { sama dengan i:=i+1 }
End;
readln;
End.

Hasilnya :

0 1 2 3 4 5 6 7 8 9 10


2. Perulangan While - Do tersarang

Perulangan While - Do tersarang (nested While - Do) merupakan perulangan While - Do yang satu di dalam perulangan While - Do yang lainnya.

Contoh Program :

Uses wincrt; Var
a, b : Integer;
Begin
ClrScr;
a:=1;
b:=1;
While a <=3 Do{ loop selama a masih lebih kecil dari 4 }
Begin
a := a+1;
While b <>
Begin
Writeln (a:5,b:5);
b:=b+2;
End;
End;
Readln;
End.


Statement Repeat Until

1. Repeat - Until.

Repeat - Until digunakan untuk mengulang statement-statemen atau blok statement sampai
(Until) kondisi yang diseleksi di Until tidak terpenuhi.

Sintak dari statement ini adalah :

Contoh Program :

uses wincrt;
Var
i : Integer;
Begin
clrscr;
i:=0;
Repeat
inc(i);
writeln(i);
Until i=5;
readln;
End.


2. Repeat - Until tersarang

Repeat - Until tersarang adalah suatu perulangan Repeat - Until yang satu berada didalam perulangan Repeat - Until yang lainnya.

Contoh Program :

uses wincrt;
Var a,b,c : Real;
Begin
clrscr;
Writeln('================================');
Writeln(' sisi A Sisi B Sisi C ');
Writeln('================================');
a:= 1;
Repeat { perulangan luar}
b := 0;
Repeat{ perulangan dalam }
c:=Sqrt (a*a+b*b);
Writeln (a:6:2, b:9:2, c:9:2);
b:=b+5;
Until b>25;
{ berhenti jika b lebih besar dari 5 untuk perulangan dalam }
a:=a+1; Until a>3;
{berhenti jika a lebih besar dari 3 untuk perulangan luar }
Writeln('=================================');
readln;
End.


Statement If

1. Percabangan If - Then

Bentuk struktur If - Then adalah sebagai berikut :

If Kondisi Then Statement

Ungkapan adalah kondisi yang diseleksi oleh statement If. Bila kondisi yang diseleksi terpenuhi, maka statement yang mengi-kuti Then akan diproses, sebaliknya bila kondisi tidak terpenuhi, maka yang akan diproses statement berikutnya. Misalnya :

If Pilihan = 2 Then

Begin{ jika kondisi terpenuhi, Yaitu jika pilihan = 2 }

End

Else{ jika kondisi tidak terpenuhi, yaitu jika pilhan

tidak sama dengan 2}
Begin

End;

Contoh Program :

Uses wincrt;
Var Nilai : Real;
Begin
clrscr;
Write ('Jumlah Nilai :');
Readln (nilai); { Pemasukan data }
If nilai > 50 Then { seleksi kondisi variabel nilai }
Writeln('Lulus') { Dilaksanakan jika nilai lebih besar dari 60 }
Else
Writeln('Tidak lulus'); { Dilaksanakan jika variabel nilai lebih kecil
dari 60 }
readln;
End.

Hasil :

Masukan 50 pada varibel nilai, Maka program diatas
akan mencetak Tidak lulus.


2. If tersarang (nested If)

Struktur If tersarang merupakan bentuk dari suatu statement If berada di dalam lingkungan statemen If yang lainya. Bentuk statement If tersarang sebagai berikut :

If kodisi1 Then atau If Kondisi1 Then

If kondisi2 Then Begin

statemen 1 IF kondisi2 Then

Else statemen 1

statemen2; Else

statemen2 End;


Case – Of

Struktur Case - Of mempunyai suatu ungkapan logika yang disebut dengan selector dan sejumlah statemen yang diawali dengan suatu label permasalahan (case label) yang mempunyai tipe sama dengan selector.

Statement yang mempunyai case label yang bernilai sama dengan case label yang bernilai sama dengan nilai selector akan diproses sedang statemen yang lainya tidak. Bentuk struktur dari Case - Of:

Case Variabel Kondisi Of Case - Label 1; Statement 1; Case - Label 2; Statement 2;
Case - Label 3; Statement 3; Case - Label 4; Statement 4;
Case - Label n ; Statement n ;
End ; { end dari case }

Daftar Case label dapat berupa konstanta, range dari konstanta yang bukan bertipe real.

Contoh program :

Program nilai;

uses wincrt;
Var n : char ;
Begin
clrscr;
Writeln ('ISI DENGAN HURUF BESAR');
Writeln ('');
Write ('Nilai Numerik yang didapat adalah:');
Readln (n);
Case n Of
'A': Writeln ('Sangat Baik');
'B': Writeln('Baik');
'C': Writeln('Cukup');
'D': Writeln('Kurang');
'E': Writeln('Sangat Kurang');
End;
readln;
End.


Simbol dasar dalam Pascal :

Simbol dasar terdiri atas :
1. Simbol huruf, yaitu hruf A sampai dengan Z atau a sampai z.
2. (huruf besar huruf kecil)
3. symbol angka atau digit, yaitu : 0, 1, 2, 3, 4, 5, 6, 7, 8, 9.
4. symbol khusus, yaitu : + - * / ; : = , ‘ = < > <= >= <> : { } ( ) [ ]