Sekilas Tentang Turbo Pascal

Apa sihhh Turbo Pascal Ituuu ???

 

Pascal merupakan suatu bahasa komputer tingkat tinggi (high level language)  yang dibuat sekitar tahun 1970 oleh Niklaus Wirth dari Technical University di Zurich, Switzerland dan digunakan untuk pendidikan komputer. Nama Pascal diambil dari seorang ahli matematika yang bernama Blaise Pascal yang menemukan mesin hitung pertama. Bahasa Pascal dirancang untuk menyelesaikan masalah dari berbagai kalangan pemakai, mulai dari para mahasiswa, pendidik, dan ilmuwan. Salah satu kompiler pascal yang terkenal dan tercepat adalah Turbo PASCAL yang dibuat oleh perusahaan Borland (http://www.borland.com).

Struktur Program Pascal

• Struktur program pascal yang paling sederhana adalah :

uses ....;

var ......;

begin

......  {Program anda disini}

end.

     Contohnya :

Uses wincrt;

begin

Writeln('Turbo Pascal');

end.      

• Struktur dasar suatu program pascal yang kompleks adalah sebagai berikut :

program ......         ; { Program heading }

uses ...                    ; { Uses clause(bagian deklarasi) }

label ...                   ; { Deklarasi Label }

const ...                  ; { Deklarasi Konstanta }

type ...                   ; { Deklarasi Tipe }

var ...                     ; { Deklarasi Variabel }

procedure ...         ; { Procedures }

function ...            ; { Functions }

begin

statement             ; { Berisi Pernyataan }

...

end.

Program Heading (Kepala Program)

Judul program dalam Turbo Pascal bersifat optional dan tidak ada pengaruhnya dalam

program. Jika ditulis akan memberikan nama program dan suatu daftar parameter

optional dimana program itu berkomunikasi. Daftar itu terdiri dari sederetan

indentifier yang diakhiri dengan tanda kurung dan dipisahkan dengan tanda koma.

Contoh            :       Program Perhitungan_Luas;

                               Program Faktorial;

Uses Clause (Bagian Deklarasi)

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 *)

                                   Uses Wincrt;         (*menggunakan Unit Wincrt*)

Perhatian :

Unit system merupakan unit yang secara otomatis akan disertakan dalam setiap

program, unit inilah mengatur semua perintah dasar input dan output pada Pascal .

Sedangkan unit-unit lain hanya akan disertakan bila kita pilih pada bagian uses.

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 Declaration

Setiap variabel yang digunakan dalam program harus didefinisikan terlebih dahulu

sebelum digunakan. Cara penulisan ini adalah :

Var

<nama var> : <type variable>;

Contoh  :  Var

hitung : integer;

angka : real;        

Macam tipe Variabel

Ada beberapa macam tipe data dalam Pascal, diantaranya adalah :

1. Integer, adalah susunan angka yang tidak mengandung koma. Disebut juga bilangan bulat. Nilainya terletak antara -32768 s/d 32767.

2. Byte, adalah merupakan bagian dari integer. Nilainya terletak antara 0 s/d 255.

3. Real, merupakan tipe bilangan yang mengandung pecahan. Nilainya terletak antara 1E-38 s/d 1E+38.

4. Boolean, berhubungan dengan dua keadaan logika. Dapat bernilai True atau False.

5. Char, merupakan tipe yang hanya terdiri dari sebuah simbol karakter ASCII

6. String, merupakan tipe yang terdiri dari sejumlah karakter.

Macam Operasi Hitung

Simbol Operasi	Fungsi	Contoh
+	Penjumlahan	A + B
-	Pengurangan	A - B
*	Perkalian	A * B
/	Pembagian	A  / B
DIV	Hasil bagi	A DIV B
MOD	Sisa bagi	A MOD B

Operator dalam Pascal mempunyai hirarki. Tabel berikut ini menunjukkan prioritas atau hirarki pengerjaan operator dalam Pascal.

Kelompok Operator	Prioritas
NOT	1
* / DIV MOD AND	2
+ - OR	3
= <> <= >=	4

Program Membuat Pola Berbentuk Segitiga

program segitiga;
uses wincrt;
var
n,i,j:integer;
begin
n:=1;
for i:=1 to 4 do
    begin
         for j:=1 to i do
         begin
         write(n,' ');
         n:=n+1;
         end;
         writeln(' ');
         end;
end.

Tampilan program ini ketika di run adalah sebagai berikut :

Program ln(1-x)

program len;
uses wincrt;
var
x,y:array[1..1000] of real;
i,j,n: longint;
a,p,sum:real;
begin
write('masukkan jumlah looping =');
readln(n);
write('masukkan nilai -x =');
readln(a);
sum:= 0;
for i:= 1 to n do
begin
x[i]:= -1/i;
p:=1;
for j:=1 to i do
p:=p*a;
y[i]:=p;
sum:=sum+x[i]*y[i];
end;
writeln('hasil =', sum:0:5);
writeln('asli =',ln(1-a):0:5);
writeln('eror =',ln(1-a)-sum:0:5);
end.

Berikut ini adalah tampilan ketika program di run :

Program Konversi Bilangan Biner Ke Desimal

program konversi;
uses wincrt ;
var
   biner,desimal,sisa,b: integer ;
begin
     desimal:=0; b:= 1;
     writeln('Masukkan bilangan biner :');
     readln(biner);
     repeat
           sisa := biner mod 10;
           biner := biner div 10;
           desimal := desimal + sisa * b;
           b:= b*2;          
     until
     biner =0;
writeln('Hasil konversi ke desimal adalah sebagai berikut :');
writeln(desimal);
end.

Tampilan ketika program ini di run adalah sebagai berikut :

Program Binomial

program binomial;
uses wincrt;
var
    n,x,i: integer;
    f,g,n_x,c,px,qx,b,p,q,r:real;
begin
    write ('Masukkan nilai n='); read(n);
    write ('Masukkan nilai x='); read(x);
    write ('Masukkan nilai p='); read(p);
    f:=1;
    g:=1;
    q:=(1-p);
    r:=n-x;
    n_x:=1;
    for i:=2 to n do
     f:=f*i;
    for i:=2 to x do
     g:=g*i;
    for i:=2 to (n-x)do
     n_x:=n_x*i;
     c:=f/(g*n_x);
     px:=1;
    for i:=1 to abs (x) do
     px:=p*px;
     qx:=1;
    for i:=1 to abs (n-x) do
     qx:=q*qx;
     b:=c*px*qx;
     write (c,px,qx);
     writeln('b=',b);
end.

Program Untuk Memasukkan Nilai Dalam Array

Program Array_Input;
Uses wincrt;
Var
Bilangan : array[1..50] of Integer;
Begin
ClrScr;
Bilangan[1]:=3;
Bilangan[2]:=29;
Bilangan[3]:=30;
Bilangan[4]:=31;
Bilangan[5]:=23;
Writeln('nilai varibel bilangan ke 3 =',Bilangan[3]);

End.

Program Menghitung Matrik

program matrik_kali;
uses wincrt;
var a,b,c: array[1..10,1..10] of real;
    i,j,k,baris1,kolom1,baris2,kolom2:integer;

begin
writeln('ukuran matrik A ');
read(baris1,kolom1);
write('masukan nilai matrik');
for i:=1 to baris1 do
  for j:=1 to kolom1 do
    read(a[i,j]);

write('ukuran matrik B ');
read(baris2,kolom2);
writeln('masukan nilai matrik');
for i:=1 to baris2 do
  for j:=1 to kolom2 do
    read(b[i,j]);


if kolom1=baris2 then
for i:=1 to baris1 do
  for j:=1 to kolom2 do
    begin
    c[i,j]:=0;
    for k:=1 to kolom1 do
    c[i,j]:=c[i,j]+a[i,k]*b[k,j];
    end
else
write('ukuran matrix tidak sesuai syarat');

writeln('hasil perkalian');
for i:=1 to baris1 do
  begin
  for j:=1 to kolom2 do
  write(c[i,j]:0:0,' ');
  writeln
  end;
begin if (baris1=baris2) and (kolom1=kolom2) then
   begin
   for i:=1 to baris2 do
     for j:=1 to kolom2 do
       c[i,j]:= a[i,j]+b[i,j]
   end
   else
   writeln('ukuran matrik tidak sama');

writeln('hasil penjumlahan');
for i:=1 to baris1 do
   begin
   for j:=1 to kolom1 do
   write(c[i,j]:0:0,' ');
   writeln;
   end;
end;
begin if (baris1=baris2) and (kolom1=kolom2) then
   begin
   for i:=1 to baris2 do
     for j:=1 to kolom2 do
       c[i,j]:= a[i,j]-b[i,j]
   end
   else
   writeln('ukuran matrik tidak sama');

writeln('hasil pengurangan');
for i:=1 to baris1 do
   begin
   for j:=1 to kolom1 do
   write(c[i,j]:0:0,' ');
   writeln;
   end; end; end.