Program Deret dan Program Persegi

Berikut ini saya tuliskan beberapa contoh program pascal yang saya dapat dari berbagai sumber. Disini saya juga menyertakan hasil input dan output programnya sehingga kalian akan lebih mudah dalam mempelajarinya. Silahkan di coba .. :)

• Program Deret Pascal

program pascal;
uses wincrt;
var
x,y:array[1..100] of integer;
i,j,k:byte;
begin
write ('masukkan tingkatan pascal= '); readln (k);
writeln ('1');
x[1]:=1;
x[2]:=1;
writeln (x[1],' ',x[2]);
for i:=2 to k do
begin
y[1]:=1;
write (y[1],' ');
for j:=2 to i do
begin
y[j]:=x[j-1]+x[j];
write (y[j],' ');
end;
y[i+1]:=1;
write (y[i+1],' ');
move (y,x,sizeof (x));
writeln;
end;
end.


Tuliskan dalam program pascal seperti ini :

Hasilnya setelah di run :

• Program Persegi

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.

Tuliskan dalam program pascal seperti ini :

Hasilnya setelah di run :

Contoh Program Pascal Sederhana

program biodata;
uses crt;
var
    nama, alamat : string;
    umur         : integer;
begin
clrscr;
writeln('=======================');
writeln('Biodata');
writeln('=======================');
write('Nama     : '); readln(nama);
write('Umur     : '); readln(umur);
write('Alamat   : '); readln(alamat);
writeln('-----------------------');
writeln('Jadi data Anda : ');
writeln('Anda bernama ',nama,'

Umur Anda ',umur,' tahun.Anda tinggal di ',alamat,'.');
writeln;

readkey
end.

Penjelasannya ada di bawah ini :

• ‘Uses Crt’ merupakan salah satu unit di pascal. Unit yang satu ini harus digunakan jika ingin menggunakan perintah ‘clrscr’ (perintah untuk membersihkan layar) dan ‘readkey’ (perintah untuk membaca masukan user).
• ‘Var’ merupakan bagian pendeklarasian variabel yang di dalamnya memuat tipe-tipe data, seperti string, integer, byte, word, char, dll. Mengenai tipe-tipe data akan dibahas di artikel selanjutnya.
• Setiap listing program utama harus diawali dengan huruf ‘begin’ dan  diakhiri dengan ‘end.’ (ingat! jangan lupa titik(.) nya pada end.)
• Perintah untuk mencetak adalah ‘write’. Jadi kalau mau mencetak “Halo, saya pascal” yaitu dengan perintah :

  write('Halo, saya pascal')

  Tapi selain write, ada juga perintah ‘writeln’. Bedanya kalau ‘write’ setelah mencetak kursornya tetap disamping, sedangkan kalau ‘writeln’ kursornya ke bawah. Untuk contohnya dapat dicermati dari listing program tadi.
• Perintah ‘read’ dan ‘readln’ digunakan untuk membaca input yang dimasukkan user. Perbedaan antara keduanya sama dengan ‘write’ dan ‘writeln’.
• Jangan lupa untuk menuliskan tanda titik dua (;) di setiap akhir baris program.

Fungsi Fungsi Dalam Program Pascal

1.Perulangan

Perulangan (iterasi) adalah proses yang berulang. Iterasi selalu ada dalam bahasa pemrograman apapun, karena disinilah letak kelebihan komputer dibanding manusia,yaitu mampu melakukan hal yang sama berulang kali tanpa kesalahan akibat bosanatau lelah. Dengan perulangan, program menjadi lebih pendek dan sederhana.Dalam Pascal dikenal tiga macam perintah (statement) perulangan, yaitustatement for…do, repeat…until dan while…do. Perulangan for…do adalah perulangan dengan penghitung (counter), perulangan repeat…until adalah perulangan dengan syarat akhir sedang perulangan while…do adalah perulangandengan syarat awal.

• Perulangan dengan statemen For

Digunakan untuk mengulang statemen atau satu blok statemen berulang kali sejumlah yang ditentukan. Perulangan dapat berbentuk  perulangan positif, negatif dan tersarang.

1. Perulangan Positif 

Merupakan perulangan dengan penghitung (counter) dari kecil ke besar.Pendeklarasian perulangan ini adalah sebagai berikut : Variabel_kontrol, nilai_awal dan nilai_akhir harus mempunyai tipe yang sama,yaitu bertipe integer.

2. Perulangan Negatif 

Merupakan perulangan dengan penghitung (counter) dari besar ke kecil.Pendeklarasian perulangan ini adalah sebagai berikut :

FOR 

variabel_kontrol :=nilai_awal To nilai_akhir DO 

Statemen

3. Perulangan Tersarang (Nested Loop)

Merupakan perulangan yang berada di dalam perulangan yang lainnnya. Padasistem perulangan ini, perulangan yang lebih dalam akan diproses terlebih dahulusampai habis, kemudian perulangan yang lebih luar baru akan bertambah,kemudian mengerjakan perulanan yang lebih dalam lagi mulai dari nilai awalnya,dan seterusnya.

• Perulangan While-Do

Perulangan dengan statemen While-Do digunakan untuk melakukan perulangan suatu statemen atau blok statemen terus-menerus selama kondisi ungkapan_logika pada while masih bernilai logika benar.

FOR 

variabel_kontrol := nilai_awal 

DownTo nilai_akhir DO

Statemen Dalam Luar 

WHILE

ungkapan_logika DO

Statemen

• Struktur Perulangan Repeat...Until

Perulangan dengan statemen Repeat…Until  digunakan untuk melakukan mengulang (repeat) statemen-statemen sampai batas (until ) kondisi yang diseleksi diuntil tidak terpenuhi.

2. A r r a y

Array adalah tipe data kompleks yang elemen-elemennya mempunyai tipe data yang sama. Jumlah elemen array bersifat tetap dan tidak bisa ditambah atau dikurangi setelah pendeklarasiannya. Tiap elemen mempunyai nomer indeks sendiri dan pengaksesan terhadap elemen array dilakukan dengan menunjukkan nomer indeks dari elemen yang akan diakses.

Cara pendeklarasian suatu variabel bertipe array adalah sebagai berikut :

var

A : array [1..10] of integer ; 

Pada potongan program di atas, maksudnya adalah sebagai berikut : variabel A berupa array dari integer dengan jumlah elemen sebanyak 10, nomer indeks terkecil adalah 1 dan nomer indeks terbesar adalah 10. Untuk mengakses elemen dari variabel A dapat dilakukan dengan menunjukkan nomer indeks elemen A seperti ini :A[nomer_indeks] contoh : A[1] := 10;

Berbagai Kondisi Pada Program Pascal

Kondisi dalam Pascal
Hampir setiap program yang komplek mengandung suatu penyeleksian kondisi. Dengan menyeleksi suatu kondisi, maka program akan dapat menentukan  tindakan apa yang harus dikerjakan,tergantung dari hasil kondisi yang diseleksi tersebut.

Macam-macam kondisi pada Pascal

• statement if then, kondisi yang akan diseleksi oleh statement If. Bila kondisi yang diseleksi telah terpenuhi, maka statement yang mengikutinya akan diproses, sebaliknya bila statement kondisi tidak terpenuhi maka yang akan diproses adalah statement berkutnya.
• statement If Then Else, blok statement yang aka diproses bilamana kondisi yang diselksi bernilai benar, sedangkan statemen selanjutnya akan diproses bilamana kondisi yang diseleksi tidak terpenuhi.
• statemen Case Of, struktur yang bila salah satu kondisi terpenuhi dan statement telah diproses, elanjutnya statement-statement lainnya dalam lingkungan case akan diseleksi lagi. 
• statement Case Of else, bila kondisi tidak terpenuhi, maka stetement yang akan diproses yang ada dalam lingkungan Case Of adalah statement else.

Dasar Pemograman Pascal

Unsur-unsur Pemrograman
a. Mendapatkan data dengan membaca data dari default input (key board, file atau sumber data lainnya).
b. Menyimpan data ke dalam memori dengan struktur data yang sesuai,
c. Memproses data dengan instruksi yang tepat.
d. Menyajikan atau mengirimkan hasil olahan data ke default output (monitor, file atau tujuan lainnya).

Nama yang dipergunakan du dalam program Pascal disebut dengan pengenal atau Identifier. Identifier digunakan untuk nama: Program, Sub-program (procedure dan function), nama: Variable, Constant, Type, Label.
Nama-nama ini digunakan untuk pemakaian dan pemanggilan dalam program. Ketentuan penulisan identifier
a. Nama identifier harus dimulai dengan karakter huruf alfabet: a sampai z, A sampai Z atau karakter ‘_’ (underscore – garis bawah)
b. Karakter berikutnya boleh karakter numerik (0 .. 9) atau kombinasi alphanumerik (huruf-numerik).
c. Panjang nama, pada berbagai versi Pascal umumnya antara 32 – 63.
d. Tidak boleh menggunakan karakter istimewa: + – * / | \ = < > [ ] . , ; : ( ) ^ @ { } $ # ~ ! % & ` ” ‘ dan ? Contoh penulisan:
Penulisan yang benar: NamaMahasiswa, Gaji_Karyawan, PX4, dll.
Penulisan yang salah: 3X, A & B, C Z dll.

Variable adalah identifier yang berisi data yang dapat berubah-ubah nilainya di dalam program. Deklarasi Variable adalah :
a. Memberikan nama variabel sebagai identitas pengenal
b. Menentukan tipe data variabel
Contoh deklarasi variabel: var X : integer;
R  : real;
C  : char;
T  : boolean;
Konstanta adalah identifier yang berisi data yang nilainya tidak berubah di dalam program.
Deklarasi Konstanta adalah:
a. Memberikan nama konstanta sebagai identitas pengenal
b. Menentukan nilai konstanta
Contoh deklarasi konstanta: conts MaxSize = 100; {integer}
ExitC = ‘Q’; {char}

Reserved Words atau kata-kata cadangan pada Pascal adalah kata-kata yang sudah didefinisikan oleh Pascal yang mempunyai maksdu tertentu.Suatu Unit adalah kumpulan dari konstanta, tipe-tipe data, variabel, prosedur dan fungsi-fungsi. Unit standar pada Pascal yang bisa langsung digunakan adalah System, Crt, Printer Dos dan Graph. Untuk menggunakan suatu unit, maka kita harus meletakkan clausa atau anak kalimat Uses di awal blok program, diikuti oleh daftar nama unit yang digunakan. Pada materi ini yang akan dibahas adalah unit Crt. Unit ini digunakan untuk memanipulasi layar teks (windowing, peletakan cursor di layar, Color pada teks, kode extended keyboard dan lain sebagainya.

Struktur Program Pascal

Struktur dari suatu program Pascal terdiri dari sebuah judul program dan suatu blok program atau badan program. Blok program dibagi lagi menjadi dua bagian, yaitu 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 luas bidang berbentuk empat persegi panjang dengan panjang P

     dan lebar L.

PROGRAM Luas;                                          {Judul}

VAR P,L,Luas            : real;                           {Deklarasi variabel}

BEGIN

            Read (P,L);                                         {Statemant}

            Luas := P*L;                                       {Statement}

            Write (P,L,Luas);                                {Statement}

END.

Tipe Data Dalam Pascal

Tipe data merupakan bagian dari suatu program yang dibuat untuk melaksanakan suatu instruksi yang akan dilaksanakan oleh komputer. pada bahasa pemrograman pascal, tipe data dibagi menjadi 2 yaitu:
1.  Tipe Data sederhana : adalah tipe data dasar, karena hanya mampu menyimpan satu nilai tiap satu variabelnya.
2.  Tipe Data kompleks : adalah tipe data yang mampu menyimpan lebih dari satu nilai dalam tiap satu variabelnya.


Pada tipe data sederhana di bagi lagi menjadi beberapa macam:


-->  Integer merupakan tipe data yang hanya menampilkan berupa bilangan bulat. Ada 5 tipe yang termasuk integer yaitu :



-->>  Real merupakan tipe data yang hanya menampilkan berupa bilangan pecahan.ada 5 tipe yang termasukReal yaitu:
 


-->>  Char merupakan tipe data menyimpan karakter yang diketikkan dari keyboard yang Mendefinisikan integer tak bertanda dalam range 0 - 255.menuliskannya harus dengan memakai tanda kutip tunggal. Jenis data ini memerlukan alokasi memori sebesar 1(satu) byte untuk masing-masing data. Contoh: 'B' 'h' '+','d'.


-->   Boolean merupakan tipe data logika, yang berisi dua kemungkinan nilai: TRUE (benar) atau FALSE (salah).