Wednesday, 04/03/2026, 09:15:05 | RSS | Welcome Guest

BERBAGI
Indahnya Berbagi 
Main
Site menu
Section categories
dasar java [11]
pemrograman java
Java Script [3]
Pascal [8]
Dasar pemrograman
Our poll
Rate my site
Total of answers: 2
Login form

Statistics

Total online: 1
Guests: 1
Users: 0


Main » Articles » Pascal

statement-statement pada pemrograman pascal (bagian 1)
reserve word
adalah kata-kata baku yang digunakan dalam program dan sudah terintegrared dalam pascal dan juga mempunyai bentuk serta kegunaan tertentu yang telah didefinisikan oleh pascal.

reserved word tidak boleh didefinisikan kembali oleh pemakai, sehingga tidak dapat digunakan sebagai pengenal(identifier). dalam bahasa pemrograman pascal beberapa reserved word dalam pascal antara lain:

 ANDDOWNTO IN OF STRING 
 ASMELSE INHERITED OR THEN 
 ARRAYEND INLINE PACKEDTO 
 BEGINEXPORTS INTERFACE PROCEDURETYPE 
 CASEFILE LABEL PROGRAM UNIT 
 CONSTFOR LIBRARY RECORD UNTIL 
 CONSTRUCTRORFUNCTIONMOD REPEAT USES 
 DESTRUCTORGOTO NIL SET VAR 
 DIVIF NOT SHL WHILE 
 DOIMPLEMENTATIONOBJECT SHR WITH 

selain dari reserved word diatas. turbo pascal masih memiliki tambahan reserved word berikut:
ABSOLUTE
ASSEMBLER
FAR
FORWARD
INDEX

beberapa statement turbo pascal
statement adlah perintah untuk pengerjaan program pascal. statement terletak dibagian deklarasi statement dengan diawali oleh kata cadangan BEGIN dan diakhiri dengan kata cadangan END. akhir dari setiap statement diakhiri dengan titik koma (;) .statement dalam bahasa pascal terdiri dari pernyataan yang berupa fungsi dan prosedur yang telah disediakan sebagai perintah standar.

statement yang digunakan untuk input/output

#Read/Readln[prosedur]
perintah ini digunakan untuk memasukkan[input] data lewat keybord ke dalam suatu variabel.
sintaks : Read/Readln(x); (ingat, selalu diakhiri dengan titik koma [;])
keterangan : x= variable.
Read = pada statement ini posisi kursor tidak pindah ke baris selanjutnya.
Readln = pada statement ini posisi kursor akan pindah ke baris selanjutnya setelah diinput

#ReadKey[fungsi]
untuk pembacaan sebuah karakter dari keyboard. tipe data yang dihasilkan adalah char
sintaks : ReadKey;

#Write/Writeln[prosedur]
digunakan untuk menampilkan isi dari suatu nilai variable di layar
sintaks : Write/Writeln(x)
keterangan : x = variabel.
Write/Writeln = statement ini digunakan untuk mencetak variable ke dalam monitor

contoh :


bila dijalankan maka hasilnya adalah :


statement-statement yang digunakan untuk pengaturan letak layar

#ClrScr[prosedur]
perintah ini digunakan untuk membersihkan layar
sintaks : ClrScr;   ->[clear screen]

#GoToXY[prosedur]
untuk menempatkan posisi kursor pada layar
sintaks : GoToXY(X,Y : Byte);
keterangan : X= sumbu X(posisi horizontal)
Y = sumbu Y(posisi vertical)

#DelLine[prosedur[
untuk menghapus sebuah baris pada posisi kursor dan menaikkan baris-baris dibawahnya.
sintaks : DelLine;

#InsLine[prosedur]
untuk menyisipkan sebuah baris pada posisi kursor dan menggeser kebawah tampilan-tampilan baris dibawahnya.
sintaks : InsLine;

#Delay[prosedur]
untuk menghentikan sejenak proses program
sintaks : Delay(MS:Word);
keterangan : variable MS = ukuran waktu damal milisecond.

contoh:


hasilnya adalah
i love Indonesia
ssoobbaatkkuu
semangat...
tekan enter

statement yang digunakan untuk memanipulasi string
#ConCat[fungsi]
untuk menggabungkan 2 atau beberapa variable string
sintaks: ConCat(s1[,s2,...,sn]: string) : String;
contoh: ConCat('ABC','DEF')  {ABCDEF}

#Copy[fungsi]
mengambil satu atau beberapa karakter dari sebuah string
sintaks : Copy(S,index,Count) : String;
keterangan :
S = sebuah string(string)
index = posisi awal kita akan mengambil beberapa karakter(integer)
count = banyaknya karakter yang akan diambil(integer)

#Delete[prosedur]
menghapus sebagian karakter dari sebuah string
sintaks : Delete(S,index,count)
keterangan : sama dengan statement Copy.

#insert[prosedur]
menyisipkan satu atau beberapa karakter ke dalam sebuah string
sintaks : Insert(Source,var s, index);
keterangan : 
source = sumber string untuk disisipi(string)
var s = string tujuan yang akan disisipi oleh string source(string)
index = posisi mulai(integer)

#Length[fungsi]
memberikan nilai panjang dari suatu string(jumlah karakter dalam string).
sintaks : Length(S);
keterangan :
S = string
Length(S) menghasilkan nilai integer

#Pos[fungsi]
mencari posisi sebuah bagian string(substring) didalam sebuah string
sintaks : Pos(Substr,s); {menghasilkan nilai Byte}
keterangan :
Substr = substring yang akan dicari posisinya didalam sebuah string S
bila bernilai 0 berarti nilai string yang dicari tidak ada

#str[prosedur]
mengubah nilai numerik ke dalam nilai string
sintaks: Str(N,S);
keterangan :
N = data tipe integer
S = data tipe string

#Val[prosedur]
merubah nilai string ke dalam nilai numerik
sintaks : Val(S,N,P);
keterangan:
S = nilai string
N = nilai real
P = posisi salah
nilai string harus berisi angka, plus atau minus, bila tidak berarti kesalahan dan letak kesalahannya ditunjukkan oleh variable posisi salah. jika benar, maka nilai variable tsb = 0 (nol).

#UpCase[fungsi]
memberikan huruf kapital dari argumen
sintaks : UpCase(S);
keterangan : S = variable bertipe karakter
contoh:


output




Category: Pascal | Added by: redmond (24/08/2012)
Views: 2279 | Comments: 1 | Rating: 0.0/0
Total comments: 0
Name *:
Email *:
Code *: