PASCAL

SEJARAH PASCAL

Pascal merupakan bahasa tingkat tinggi (high level language) yang orientasinya pada segala tujuan, dirancang oleh Professor Niklaus Wirth dari Technical University di Zurich, Switzerland. Nama pascal diambil sebagai penghargaan terhadap Blaisse Pascal, ahli matematik dan philosophi terkenal abad 17 dari Perancis.

Professor Niklaus Wirth memperkenalkan kompiler bahsa pascal pertama kali untuk komputer CDC 6000 (Control Data Corporation) yang dipublikasikan pada tahun 1971 dengan tujuan untu membantu mengajar program komputer secara sistematis, khususnya untuk memperkenalkan pemrograman yang terstruktur (structured programming). Jadi Pascal adalah bahasa yang ditujukan untuk mebuat program terstruktur.

STRUKTUR PROGRAM PASCAL

Struktur program pascal yang paling sederhana adalah :

uses ...;

var ...;

begin

.... {Your program is here}

end.

Adapun struktur dasar suatu program pascal adalah sebagai berikut :

program ... ; { Program heading }

uses ... ; { Uses clause }

label ... ; { Labels }

const ... ; { Constants }

type ... ; { Types }

var ... ; { Variables }

procedure ... ; { Procedures }

function ... ; { Functions }

begin

statement; { Statements }

...

end.

USES CLAUSE

Bagian uses clause digunakan untuk menentukan library yang dibutuhkan saat proses

program. LIBRARY merupakan file penyimpan subroutine yang secara berulang

digunakan saat proses program. Library ini diistilahkan sebagai unit dalam Turbo

PASCAL yang terdiri dari SYSTEM, OVERLAY, GRAPH, DOS, CRT yang ditempatkan

dalam file TURBO.TPL.

Contoh :

Uses Crt; (*menggunakan Unit Crt *)

DECLARATION

Bagian ini meliputi deklarasi untuk label, const, type, var, procedure dan function.

Syarat terpenting dalam pembentukan suatu program adalah, bahwa setiap variabel,

type non-standard, label, procedure non-standard, serta function non-standard yang

dipakai didalamnya harus nyatakan (deklarasi) terlebih dahulu pada bagian deklarasi.

Setiap deklarasi tersebut harus bersifat unik (tidak boleh serupa satu sama yang lain).

Penulisan nama dalam deklarasi tersebut harus memenuhi syarat-syarat sebagai

berikut :

- panjang nama maximum 63 character, diawali dengan alphabet

- tidak ada special character kecuali tanda garis bawah ("_")

- tidak boleh serupa dengan reserved word (kata tercadang)

- tidak boleh serupa dengan indentifier lainnya.

Variabel Deklarasi

Setiap variabel yang digunakan dalam program harus didefinisikan terlebih dahulu

sebelum digunakan. Cara penulisan ini adalah :

Var

<nama var> : <type variable>;

STATEMENT

Bagian ini merupakan inti dari program. Seluruh perintah dan urutannya serta proses

Input/Output dalam program perlu disusun secara teratur oleh penyusun program.

Segala yang ada pada bagian uses maupun deklarasi merupakan pendukung terhadap

isi program.

PROGRAM PASCAL

CONTOH PROGRAM DERET

DERET

program deret;

uses wincrt;

var n,d:integer ;

begin

     d:=2;

     for n:=2 to 6 do

     begin

     write (d, ' ');

     d:=d+2

     end;

end.

CONTOH PROGRAM PEMGULANGAN ANGKA

PENGULANGAN ANGKA

Program pengulangan_angka_dari_1_sampai_13;

uses wincrt;

var    

   i:integer;

   hasil : integer;

begin

     i:=2;

     repeat

    write (i, ' ');

     i:= i+2;

    until i>10;

end.

CONTOH PROGRAM SEGITIGA

PROGRAM SEGITIGA

program segitiga_pascal_kombinasi;

uses wincrt;

var   a,b,c,n:integer;

function fkom(n:integer; m:integer): real;

var x,y,z,i: integer;

begin

x:=1; y:=1; z:=1;

for i:=1 to n do x:=x*i;

for i:=1 to m do y:=y*i;

for i:=1 to (n-m) do z:=z*i;

fkom:=x/(y*z);

end;

begin

write('masukkan nilai n = '); readln(n);

if n>=0 then

for a:=0 to n do

    begin

    for b:=n downto a do write('*');

        begin

        for c:=0 to a do write(fkom(a,c):3:0);

        writeln;

        end;

    end;

end.

CONTOH PROGRAM PERPANGKATAN

PANGKAT

program perpangkatan;

uses wincrt;

var

   i,o,p,hasil:longint;

begin

     writeln ('a pangkat b');

     write('masukkan a='); read (o);

     write ('masukkan  b=');read (p);

     hasil:=1;

     for i:=1 to abs(p) do

     hasil:=o*hasil;

      if (p<0) then

      begin

       write (1/hasil);

       end

     else

     begin

     write('hasil= ', hasil);

     end

    

end.

CONTOH PROGRAM MEDIAN

MEDIAN

Program median;

Uses Wincrt;

Var

x: array [1..100] of integer;

n,i,pos:integer;

md:real;

lagi:char;

Begin

lagi:='y';

while lagi='y' do

begin

writeln('=============');

Writeln('Program median');

Writeln('=============');

Writeln;

writeln('*dalam program mini ini, data yang harus dimasukkan nanti harus sudah urut*');

writeln;

Write('Masukkan Jumlah Data (n): ');

readln(n);

clrscr;

Writeln;

For i:= 1 to n do

Readln(x[i]);

Writeln;

For i:= 1 to n do

if (n mod 2 = 1) then

begin

pos:=(n div 2)+1;

md:=x[pos];

end

else

begin

pos:=(n div 2);

md:=(x[pos]+x[pos+1])/2;

end;

writeln;

Writeln('Median dari data berjumlah ', n,' tadi adalah : ',md:4:2);

writeln;

writeln('*terimakasih sudah menggunakan program ini*');

writeln('hitung lagi?');

readln(lagi);

end;

end.