PASCAL

PASCAL

Pengertian pascal

Pascal adalah bahasa yang digunakan dalam program computer.

· Cara membuka Program Pascal:

Klik start

Klik all program

klik pascal 0,7

file changedir

klik folder and

klik chird kemudian ok

· Car Mengecek Kbenaran:

Dengan menggunakan COMPILE

· Cara menyalakan Sintak menggunakan RUN

· Hal yang ada dalam penulisan pascal:

uses crt;

variable

clrscr;

begin

readln

end

· Blok program (Program blok) atau Badan Program (Program Body),

terdiri dari:

-          bagian deklarasi (declaration Part):untuk menyiapklan elemen2 program, seperti nama konstanta ,varibel, label,tipe,prosedur dan fungsi serta pengguna unit.

-          Bagian pernyataan (statemen part):untuk menjukkan suatu tindakan yang akan dikerjakan oleh program diawali begin dan diakhiri end.

-          Setiap akhir pernyataan diakhiri titik koma (;), kecuali untuk nama label.

-          Akhir program diberi titik (.).

JUDUL PROGRAM

Blok Program

Bagian Deklarasi

· Deklarasi unit

· Deklarasi Label

· Definisi Konstanta

· Definisi Tipe

· Deklarasi variabel

· Deklrasi prosedur

· Deklrasi fungsi

Bagian Pernyataan

Begin

Pernyataan 2;

End.

TAMBAHAN

· Real : Pecahan / Desimal

· String : untuk text

· Chat : 1 huruf

· Variable : data yang dapat berubah – rubah.

· Konstanta : tetap

Perintah Write dan Writeln

· Digunakan untuk mencetak hasil proses. Tipe data yang dicetak dapat berupa integer, Real, Character, String, ataupun Boolean.

· Perbedaan Write dan Writeln adalah setelah mencetak jika Writeln akan diakhiri dengan pindah baris sedangkan pada Write tidak,

CONTOH

Program contoh_readln_&_writeln;

Var

Nama :string[25];

Nilai_akhir : integer;

Nilai_rata2 :real;

Grade:char;

Keterangan:stinrg[5];

Begin

Clrscr;

Write(‘masukan nama :’);readln(nama);

Write(‘masukan nilai_akhir)’readln(nilai_akhir);

Write(‘masukan nilai_rat2);readln(nilai_rata2);

Write(‘masukan grade :’);readln(grade);

Write(‘masukan nketerangan)’readln(keterangan);

Clrscr;

Writeln(‘nma siswa adalah’,nama);

Writeln(‘nilia akhir adalah’,nilai_akhir);

Writeln(‘nilai rat2 adalh ‘,rata-rata);

Writeln(‘gradenya adalah’,grade);

Writeln(‘keterangan adalah ‘,keterangan0;

Readln;

End.

IDENTIFIER (PENGENAL)

Adalah nama yang dibuat oleh programmer yang berfungsi sebagai nama pengenal dari suatu elemen program seperti nama2 untuk judul program, variable, konstanta, label, prosedur, fungsi dll.

DEKLARASI VARIABEL

Variabel adalah suatu tempat didalam memori computer yang dapat menyimpan nilai /data yang berubaha-rubah.

PROSEDUR PEMBERIAN WARNA

a. Warna Foreground,:B.U :textcolor (color:byte)

Kode warna bias digunakan ataupun warnannya.

WARNA	KODE	WARNA	KODE	WARNA	KODE
BLACK	0	BROWN	6	LIGHTRED	12
BLUE	1	LIGHTGRAY	7	LIGHTMARGENTA	13
GREEN	2	DARKGRAY	8	YELLOW	14
CYAN	3	LIGHTBLUE	9	WHITE	15
RED	4	LIGHTGREEN	10	BLINK	18
MAGENTA	5	LIGHT CYAN	11

CONTOH

Textcolor(blue);

writeln(‘tulisan ini berwarna biru ‘);

Textcolor(4);

writeln(‘kalau ini berwarna merah’);

Textcolor(brown+8);

writeln*warna kuning’);

Readln;

End.

b. Warna Back Ground , B.U : Text Back Ground (color :byte)

Kode warna bole menggunakan kode atau menybuntukan warnanya.

WARNA	KODE	WARNA	KODE	WARNA	KODE
BLACK	0	CYAN	3	BROWN	6
BLUE	1	RED	4	LIGHTGRAY	7
GREEN	2	MAGENTA	5

CONTOH :

Program Tampil_background;

Uses crt;

Begi

Clrscr;

Textcolor(yellow);textbackground(red);

Textcolo(7);textbackground(0);

Writeln(‘kembali kenormal’);

End.

PROSEDURE CLRSCR (Clear Screen);

Digunakan untuk membersihkan layer dari tampilan sebelumnya dan meletakkan kursor diujung kiri atas layar.

Program Coba_clrscr;

Uses crt;

Begin

Writeln(‘bahasa’);

Clrscr;

Writeln(‘pascal’);

Readln;

End.

PROSEDURE GOTOXY

Digunakan untuk meletakkan kursor diposisi layar yang ditunjukkan oleh nilai.

Program Coba_Gotoxy;

Uses crt;

Begin

Clrcsr;

Gotoxy(20,15);

Writeln(‘pascal’);

End.

PENYLESEIAN KONDISI

Statemen IF

a. sturtur if…then

B.U:if kondisi then statemen kondisi adalah syarat yang diseleksi bbila kondisi benar (terpenuhi), maka statemen akan dikerjakan.

Program Seleksi i_if_1;

Var

Nilai :real;

Ket :string[5];

Begin

Ket : ‘gaya’;

Write(‘berapa nilai yang didapat ?’);

Readln(nilai);

If >nilai 60 then ket : ‘LULUS’;

Writeln(‘keterangannya :’,ket);

End.bstuktur if…then else

B.U : if kondisi then

Statemen1;

Else

Statemen2;

Bila kondisi benar (terpenuhi), maka statemen 1 akan dikerjakan , sedangkan bila kondisi salah (tidak terpenuhi), maka statemen2 yang akan dikerjakan.

Program Seleksi_if_2;

Var

Nilai:real

Ket:strin[5]:

Begin

Write(‘berapa nilai yang didapat ?’);

readln(nilai);

Begin

Write(‘ukuran jaket s?m?l : ‘);

readln(ukuran0;

Write(‘banyak jaket : ‘);

readln(banyak);

Case ukuran of

‘s’ : harga :=1000;

‘m’ : harga:=1250;

‘l’:harga:=1500;

End;

Jumlah :=banyak*harga;

Writeln(‘jumlay dibayar:Rp’,jumlah:8:0);

End.

c. statemen case of-else;

B.U : case :

:

Konstanta> :pernyataan>

……

ELSE

:

End;

DEKLARASI RECORD

RECORD

Dafta_field_1 : type_1;

Daftar_field_2 :type_2;

Daftar_field_n :type_n;

End;