Bahasa Pemrograman

Beberapa aturan dalam program Pascal

Posted on July 6, 2010. Filed under: Bahasa Pemrograman |

• Akhir sebuah program Pascal ditandai dengan tanda baca titik ‘ . ‘ setelah END yang  paling akhir.
• Tanda titik koma ‘ ; ’ merupakan pemisah antar instruksi satu dengan lainnya.
• Beberapa statement boleh ditulis menjadi satu baris dipisahkan dengan tanda baca titk koma ’ ; ‘
• Baris komentar diletakkan diantara tanda ‘(*’ dan   ’*)’ atau diantara tanda ‘{‘ dan ‘}’

Contoh :     Var      a   : real;                (*nilai bilangan pertama*)

b  : real;                {nilai bilangan kedua}

STRUKTUR PROGRAM PASCAL

Posted on July 6, 2010. Filed under: Bahasa Pemrograman |

Struktur program Pascal terdiri dari sebuah judul program dan  badan program. Badan program dibagi lagi menjadi dua bagian, bagian deklarasi dan bagian pernyataan (statement).

Struktur program :

Judul Program                          PROGRAM nama-program;

Blok Program

Bagian deklarasi

deklarasi label                           LABEL nama-label;

deklarasi konstanta                   CONST…………..;

deklarasi tipe                            TYPE …………….;

deklarasi variabel                      VAR ………………;

deklarasi prosedur                    PROCEDURE nama-prosedur;

……………………………….;

deklarasi fungsi                         FUNCTION nama-fungsi;

………………………….;

Bagian Pernyataan

Begin

(statement)

…………;

…………;

end.

Contoh : Menghitung perkalian dua bilangan bulat

PROGRAM Perkalian;                                     {Judul}

VAR A,B,Hasil            : Integer;                       {Deklarasi variabel}

BEGIN

A := 2;                                                 {Statemant}

B := 3;                                                  {Statemant}

Hasil := A*B;                                       {Statement}

Writeln (A,B,Hasil);                              {Statement}

END.

Judul program sifatnya adalah optional, dan bila ditulis, harus terletak pada awal dari program dan diakhiri dengan titik koma.

Bagian deklarasi digunakan bila di dalam program digunakan pengenal ( identifier). Identifier dapat berupa label, konstanta, tipe, variabel, prosedur dan fungsi. Kalau suatu program menggunakan identifier, Pascal menuntut supaya identifier tersebut diperkenalkan terlebih dahulu sebelum digunakan, yaitu dideklarasikan terlebih dahulu pada bagian ini.

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.