ICT Center: 2013

Monday, December 9, 2013

Manfaat Belajar Bahasa Pemrograman Turbo Pascal

PASCAL adalah bahasa pemrograman yang dirancang oleh Profesor Niclaus Wirth dari Technical University Zurich, Switzerland. Nama pascal sendiri adalah sebagai suatu bentuk penghargaan kepada Blaise Pascal, yaitu seorang ahli matematika dan Filsafat yang terkenal pada abad 17 yang berasal dari Perancis.

Profesor Niclaus Wirth memperkenalkan Compiler Bahasa pascal ini Pertama kali untuk komputer CDC 6000 (Control Data Comporation) yang dipublikasikan pada tahun 1971 dengan tujuan untuk membantu mengajarkan program komputer secara sistematis, khususnya untuk mengajarkan program yang terstruktur (structured programming).

Jadi pascal adalah bahasa yang ditujukan untuk membuat program yang terstruktur. Dalam waktu yang singkat pascal telah menjadi bahasa yang sangat populer dikalangan para pelajar universitas dan merupakan bahasa yang diajarkan di banyak perguruan tinggi.

Banyak profesional komputer yang beralih ke bahasa pascal. Kenyataannya, pascal merupakan bahasa yang paling cepat populer dibandingkan bahasa -bahasa pemerograman tingkat tinggi lainnya.

Bahasa pemrograman Pascal Mempunyai beberapa Kelebihan seperti:

1. Tipe Data Standar,

tipe-tipe data standar yang telah tersedia pada kebanyakan bahasa pemrograman. Pascal memiliki tipe data standar: boolean, integer, real,char, string,

2. User defined Data Types,

programmer dapat membuat tipe data lain yangditurunkan dari tipe data standar.

3. Strongly-typed,

programmer harus menentukan tipe data dari suatu variabel,dan variabel tersebut tidak dapat dipergunakan untuk menyimpan tipe data selain dari format yang ditentukan.

4. Terstruktur,

memiliki sintaks yang memungkinkan penulisan program dipecah menjadi fungsi-fungsi kecil (procedure dan function) yang dapat dipergunakan berulang-ulang.

5. Sederhana dan Ekspresif,

memiliki struktur yang sederhana dan sangat mendekati bahasa manusia (bahasa Inggris) sehingga mudah dipelajari dan dipahami.

Standard pascal adalah bahasa pascal yang didefinisikan oleh K. Jensen dan Niclaus Wirth. Penerapan dari standard pascal banyak yang berbeda seperti apa yang telah didefinisikan oleh K. Jensen dan Niclaus Wirth. Pascal di Eropa didefinisikan oleh ISO (International Standard Organization) dan di Amerika oleh kerjasama antara ANSI (America National Standard Institute) dan IEEE (Institute of Electrical and Electronic Engineers).

Bahasa PASCAL juga merupakan bahasa yang digunakan sebagai standar bahasa pemrograman bagi Tim nasional Olimpiade Komputer Indonesia (TOKI). Selain itu, Bahasa PASCAL masih digunakan dalam IOI (International Olympiade Informatics). Terdapat beberapa versi dari pascal yang telah berada di pasaran dan sampai saat ini untuk komputer-komputer micro personal Turbo Pascal merupakan yang paling populer dan banyak digunakan. Turbo Pascal banyak di gemari karena bersifat interaktif. Selain itu Turbo Pascal mengikuti definisi dari standar pascal yang didefinisikan oleh K. Jansen dan Niclaus Wirht di Pascal User Manual and Report. Turbo Pascal adalah copyright dari BORLAND Inc.

Berikut ini akan diberikan gambaran mengapa mesti belajar bahasa pascal.

1. Kecepatan (speed)

Kecepatan bahasa pascal untuk mengkompilasi baris program dapat dikatakan sekejap mata saja. Anda banyangkan kode baris program yang ribuan jumlahnya diterjemahkan dalam hitungan detik. Coba anda buktikan dengan bahasa pemrograman lainnya (C, C++, Java, dll)

2. Tipe data yang kuat

Pascal mengijinkan pemakainya untuk membuat tipe data sendiri, tetapi dengan beberapa batasan. Pascal tidak mengenal pengubahan tipe data (type casting) dan hal ini tentu saja memberi manfaat karena kemungkinan timbulnya kesalahan (error) kecil. Hal ini merupakan salah satu alasan utama yang dilakukan panitia ujian masuk mahasiswa untuk mata ujian komputer di Amerika.

3. Ukuran
Hasil compilasi dari program pascal hanya beberapa kilo byte saja. Sungguh kecil. Bila kita bandingkan dengan kapasitas ruang hard disk yang 40 mega byte, dapat dibanyangkan berapa besar program pascal yang dapat kita buat.

4. Portabilitas
Portabilitas berarti program pascal dapat berjalan pada jenis komputer yang berbeda, seperti : IBM, Apple, dll.

5. Produktivitas
Untuk belajar suatu bahasa pemrograman pada dasarnya sama, yaitu : harus mengenal aturan dan struktur data dari bahasa tersebut. Anda dapat bayangkan kalau tukang bangun tidak memiliki arsitektur yang jelas tentang bangunan rumah tersebut, tentu saja rumah yang akan dibangun tidak akan baik. Pascal menyediakan struktur data yang jelas, dengan demikian produktivitas hasil kerja kita tentu saja akan bertambah.

Contoh Penggunaan Procedure dalam Program Turbo Pascal

Listing Program

Program Hitung_Nilai;

Uses Wincrt;

Type Larik = array [1..100] of integer;

Var nilai,A,B,C,D,E : Larik;

n,i,tot : Integer;

mean,sdt,sd : real;

iA,iB,iC,iD,iE : Integer;

yt: char;

Procedure input;

Begin

Writeln('Program Hitung Nilai');

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

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

Writeln;

Randomize;

For i:= 1 to n do

Begin

Write('Masukan Nilai [0..100] ke-',i,' : ');Readln(nilai[i]);

End;

Writeln;

End;

Procedure hitung_mean_sd;

Begin

tot:=0;

sdt:=0;

For i:= 1 to n do

Begin

tot:=tot+nilai[i];

End;

mean:=tot/n;

For i:= 1 to n do

Begin

sdt:=sdt+sqr(nilai[i]-mean);

End;

sd:=sqrt(sdt/(n));

End;

Procedure cari_nilai;

Begin

iA:=0; iB:=0; iC:=0; iD:=0; iE:=0;

For i := 1 to n Do

Begin

If (nilai[i]>=(mean+(1.5*sd))) Then

Begin

Inc(iA);

A[iA]:=nilai[i];

End

Else If ((nilai[i]>=mean+(0.5*sd)) And (nilai[i]<mean+(1.5*sd)))

Then

Begin

Inc(iB);

B[iB]:=nilai[i];

End

Else If ((nilai[i]>=mean-(0.5*sd)) And (nilai[i]<mean+(0.5*sd)))

Then

Begin

Inc(iC);

C[iC]:=nilai[i];

End

Else If ((nilai[i]>=mean-(1.5*sd)) And (nilai[i]<mean-(0.5*sd)))

Then

Begin

Inc(iD);

D[iD]:=nilai[i];

End

Else

Begin

Inc(iE);

E[iE]:=nilai[i];

End;

Procedure urut_desc(z:Integer;Var X:Larik);

Var i,j,T: Integer;

Begin

For i:= 1 to z-1 Do

For j := 1 to z-1 Do

If X[j]<x[j+1] Then {kalau ascending X[j]>x[j+1]}

Begin

T:=X[j];

X[j]:=X[j+1];

X[j+1]:=T;

End;

Procedure tampil;

Begin

Writeln('Rata-Rata Nilai : ',mean:3:2);

Writeln('Standar Deviasi : ',sd:3:2);

Writeln;

Write('Nilai A: ');

urut_desc(iA,A);

For i:= 1 to iA Do

Write(A[i]:3,' ');

Writeln;

Write('Nilai B: ');

urut_desc(iB,B);

For i:= 1 to iB Do

Write(B[i]:3,' ');

Writeln;

Write('Nilai C: ');

urut_desc(iC,C);

For i:= 1 to iC Do

Write(C[i]:3,' ');

Writeln;

Write('Nilai D: ');

urut_desc(iD,D);

For i:= 1 to iD Do

Write(D[i]:3,' ');

Writeln;

Write('Nilai E: ');

urut_desc(iE,E);

For i:= 1 to iE Do

Write(E[i]:3,' ');

Writeln;

End;

procedure kembali;

Begin

write ('Ingin kembali ke menu awal? [Y/T]:');

readln(yt);

end;

Begin

Clrscr;

input;

hitung_mean_sd;

cari_nilai;

tampil;

kembali;

clrscr;

input;

while (yt = 'Y')do

input;

while (yt='y') do

input;

End.

Output Program

Contoh Penggunaan If dalam Program Turbo Pascal

Program Sewa Sepeda

Listing Program

program sewa_sepeda;

uses wincrt;

var

nama:string;

harga:real;

jam:real;

ket3:string;

begin

clrscr;

harga:=5000;

ket3:='data salah';

writeln('Harga Sewa Sepeda /jam = Rp. 5000');

write('Nama Penyewa : ');

readln(nama);

write('Jumlah Jam : ');

readln(jam);

if (jam<=1)then

begin

harga :=harga;