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;
