Head LELY D.B PRATIWI 1311100012: Desember 2011

Apa itu turbo pascal?

TURBO PASCAL






Turbo Pascal adalah sebuah sistem pengembangan perangkat lunak yang terdiri atas kompiler dan lingkungan pengembangan terintegrasi atas bahasa pemrograman pascal untuk sistem operasiCP/M, CP/M-86, dan MS-DOS, yang dikembangkan oleh Borland pada masa kepemimpinan Philippe Kahn. Nama Borland Pascal umumnya digunakan untuk paket perangkat lunak tingkat lanjut (dengan kepustakaan yang lebih banyak dan pustaka kode sumber standar) sementara versi yang lebih murah dan paling luas digunakan dinamakan sebagai Turbo Pascal. Nama Borland Pascal juga digunakan sebagai dialek spesifik Pascal buatan Borland.Borland telah menembangkan tiga versi lama dari Turbo Pascal secara gratis disebabkan karena sejarahnya yang panjang khusus untuk versi 1.0, 3.02, dan 5.5 yang berjalan pada sistem operasi MS-DOS.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

ALL ABOUT PASCAL'S THEORY

Struktur Bahasa Pascal

Program dalam bahasa pascal, ditulis dengan struktur sebagai berikut:

Kepala Program

Program <Nama> (<Daftar parameter>)

Bagian Deklarasi

USES
<deklarasi unit>
LABEL
<deklarasi label>
CONST
<deklarasi konstanta>
TYPE
<deklarasi tipe>
VAR
<deklarasi variabel>
<deklarasi fungsi dan prosedur>

Bagian Pernyataan

BEGIN
<Pernyataan>
END.



Tipe Data dalam Pascal

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.


Operator dan Operand
Berikut ini adalah operator yang ada dalam bahasa Pascal :



PERNYATAAN BERSYARAT
Pernyataan bersyarat adalah pernyataan yang akan menjalankan pernyataan yang
mengikutinya sesuai dengan syarat tertertentu. Ada 2 buah pernyataan bersyarat, yaitu IF
dan CASE
1. Pernyataan IF



Bentuk pernyataan IF:
IF <syarat logika> THEN <Pernyataan>;


IF <syarat logika> THEN <Pernyataan-1>
ELSE <Pernyataan-2> ;


Jika syarat logika bernilai Benar maka yang akan dijalankan adalah pernyataan yang
mengikuti THEN, dan sebaliknya jika syarat logika bernilai Salah maka yang akan
dijalankan adalah pernyataan yang mengikuti ELSE. Jika pernyataan yang mengikuti
THEN atau ELSE lebih dari satu maka harus diawali oleh Begin dan diakhiri oleh End.
Statement End sebelum ELSE tidak boleh ada tanda titik koma (;).
IF <syarat logika> THEN begin
<Pernyataan-11>;
<Pernyataan-12>;
.
.
<Pernyataan-1n>;
end
ELSE begin
<Pernyataan-21>;
<Pernyataan-22>;
.
.
<Pernyataan-2m>;
end;

2. Pernyataan IF Bersarang (nested)
Jika ada dua pernyataan IF atau lebih, dimana pernyataan IF yang satu berada di dalam
pernyataan IF yang lain, maka pernyataan tersebut disebut Bersarang (nested).
Contoh bentuk pernyataan IF Bersarang:
IF <syarat logika-1> THEN <Pernyataan-1>
ELSE IF <syarat logika-2> THEN <Pernyataan-2>
ELSE IF <syarat logika-3> THEN <Pernyataan-3>
ElSE <Pernyataan-4>;

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Contoh Program Pascal sederhana

Pembagian
Inputan di turbo pascal:
program pelajar;
uses wincrt ;
var
A,B,hasil :real;
begin
write ('A:'); readln (a);
write ('B:'); readln (b);
hasil:=(A/B);
writeln('hasil:'); write(hasil);
end.
Hasil inputan :



Perpangkatan




  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Rumus-Rumus Menggunakan Pascal

Modus
program data_sering_muncul;
uses wincrt;
var i,n,j,modus:integer;
a,frek:array[1..100] of integer;
begin
write ('banyaknya data:');readln(n);
for i:=1 to n do
readln(a[i]);
writeln;
for i:=1 to n-1 do
begin
for j:=i+1 to n do
if a[i]=a[j] then
frek[i]:=frek[i]+1;
end;
modus:=1;
for i:=1 to n do
begin
if frek[modus]<frek[i] then
modus:=i;
end;
write('modus: ',a[modus],' sebanyak ',frek[modus]+1);
end.

Hasil :





Rata-rata,Varian, Standar Deviasi, Nilai max min dan Range

Program :
program plus2;
uses wincrt;
var i,n:integer;
    rata,vars,jml,jml1, sd, max, min, range:real;
    x:array [1..100] of real;
begin
readln (n);
if n<0 then write ('tidak terdefinisi') else if n>0 then
begin
for i:=1 to n do
readln (x[i]);
begin
     jml:=0;
     for i:=1 to n do
     jml:=jml+(x[i]);
     rata:=jml/n;
     writeln ('rata-rata= ',rata);
end;
begin
     jml1:=0;
     for i:=1 to n do
     jml1:=jml1+((x[i]-rata)*(x[i]-rata));
     vars:=jml1/(n-1);
     writeln ('varian= ',vars);
end;
begin
     sd:= sqrt (vars);
     writeln ('standar deviasi= ',sd);
end;
begin
max:= (x[i]);
min:=(x[i]);
for i:=1 to n do
     if (x[i]) > max then max:=(x[i])
     else if (x[i]) < min then min :=(x[i]);
     writeln ('nilai minimum= ',min);
     writeln ('nilai maksimum= ',max);
     range:= max-min;
     writeln ('range= ',range);
     end;
end;
end.
Hasil :


  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Contoh pascal yang lain

Segitiga Pascal

program segitiga_pascal;
uses wincrt;
var input,i,j:word; isi:array[0..20,0..21] of word;
begin
writeln('Masukkan berapa tingkat segitiga pascal !');
readln(input);
isi[0,1]:=1;
for i:=1 to input do
begin
for j:=1 to i+1 do
begin
isi[i,j]:=isi[i-1,j]+isi[i-1,j-1];
write(isi[i,j],' ');
end;
writeln;
end;
end.
Ini dia Segitiga Pascalnya





Deret fibonaci

Bagi yang mencari program pasal deret fibonaci ini dia jawabannya!

program fibonaci;
uses wincrt;
procedure FIBO(key : string; k : integer);
var
x,y,z,i,n:longint;
baris : word;
begin
x:=1;
y:=1;
writeln(' *', key, '*');
for baris:=1 to k do
begin
writeln;
end;
write(' Masukkan banyaknya bilangan fibonacci = ');readln(n);
write(x, ' ');
write(y, ' ');
for i:=1 to n-2 do
begin
z:=x+y;
x:=y;
y:=z;
write(z, ' ');
end;
end;
begin
FIBO('Simple Fibonacci', 2);
end.

Ternyata Pascal gak Cuma buat rumus

Ini contohnya

program persegi;
uses wincrt;
procedure
gb (p,l:integer);
var
i,j:integer;
begin
for i:=1 to p do
begin
for j:=1 to l do
begin
if ((i=1)or(i=p)or(j=1)or(j=l))then
write ('*')
else write (' ');
end;
writeln;
end;
end;
var
x,y:integer;
begin
write ('panjang yang diinginkan= '); readln (y);
write ('lebar yang diinginkan= '); readln (x);
writeln ('ini dia perseginya');
gb (x,y);
end.


  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

ENJOY IT ^^

Read more: Cara Membuat Teks Berjalan di Tab dan Navbar Atas | Mas Bugie [dot] com http://www.masbugie.com/2010/04/cara-membuat-teks-berjalan-di-tab-dan.html#ixzz1iYEVcfQi