Wednesday, 04/03/2026, 13:46:40 | 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 2)
statement-statement untuk perhitungan aritmatik

#Abs[fungsi]
memberikan nilai mutlak dari suatu argumen.
sintaks : ABS(x);

#ArcTan[fungsi]
memberikan nilai dari fungsi arctangent dari perhitungan goniometri.
sintaks : ArcTan(x);
dimana x dapat bertipe real atau integer dan menghasilkan nilai bertipe real.

#Cos[fungsi]
memberikan nilai dari fungsi Cosinus
sintaks : Cos(x);

#Exp[fungsi]
menghitungnilai pangkat dari bilangan e(bilangan alam) yaitu sebesar x.
sintaks : Exp(x);
x dapat bertipe real atau integer dan akan menghasilkan nilai bertipe real.

Frac[fungsi]
untuk mendapatkan nilai pecahan dari suatu bilangan.
sintaks : Frac(x);
tipe dari x sama seperti diatas.

#Int[fungsi]
memberikan nilai integer(bilangan bulat) dari suatu variable dengan membuang bilangan di belakang koma.
sintaks : Int(x);

#Ln[fungsi]
digunakan untuk menghitung nilai logaritma alam(natural logarithm) dari nilai x
sintaks : Int(x);

#Sin[fungsi]
memberikan nilai dari fungsi sinus
sintaks : Sin(x);

#Sqr[fungsi]
digunakan untuk menghitung nilai pangkat kuadrat dari suatu bilangan.
sintaks : Sqr(x);
tipe dari x bisa berupa real maupun integer. dan hasilnya akan sama dengan nilai dari x

#Sqrt[fungsi]
digunakan untuk menghitung nilai akar dari suatu bilangan.
sintaks : Sqrt(X);

contoh :


hasilnya :




statement-statement untuk transfer nilai dari suatu variable
#Chr[fungsi]
merubah nilai dari byte ke bentuk karakter yang sesuai dengan kode ASCII
sintaks : Chr(x);
keterangan : x bertipe byte
contoh : Writeln(Chr(61);
hasilnya : a

#Ord[fungsi]
merubah nilai suatu variable dari bentuk karakter ke bentuk longint
sintaks : Ord(x);
keterangan : x bertipe char
contoh : writeln(Ord('B');
hasilnya : 42

#Round[fungsi]
membuatkan data tipe real ke data tipe longint
sintaks : Round(x);
keterangan : jika nilai pecahan < 0,5 maka dibulatkan kebawah.
jika nilai pecahan > 0,5 maka dibulatkan keatas
contoh : writeln('10/3 dibulatkan =',Round(10/3));
hasilnya : 10/3 dibulatkan = 3

#Trunc[fungsi]
membulatkan kebawah tipe data real ke data tipe longint
sintaks : trunc(x);
contoh : writeln('20/3 dibulatkan ke bawah = ',Trunc(20/3));
hasilnya : 20/3 dibulatkan kebawah = 6

statement untuk memanipulasi data
#Pred[fungsi]
memberikan ilai sebelum nilai argumen dalam urutannya dalam ASCII
sintaks : Pred(x);

#Succ[fungsi]
memberikan nilai sesudah nilai argumen dalam urutannya dalam ASCII
sintaks : Succ(x);

#Inc[fungsi]
menambahkan(increments) nilai suatu variable.
sintaks : Inc(x,i) {i>=1}

#Dec[fungsi]
mengurangi(decrements) nilai suatu variable
sintaks : DEC(x,i); {i>1}
contoh :



maka hasilnya :



statement tambahan(warna,suara dan window).

#TextColor[procedure]
untuk mengatur warna dari karakter-karakter di layar
sintaks : TextColor(color:Byte);
catatan : untuk pilihan warna lihat pada buku turbo pascal yang anda miliiki
daftar textcolor:
(2) = hijau muda(3) = hijau pupus(4)=merah
(5) = ungu tua(6) = kuning(7) = putih
(8) = biru tua(9) = biru cerah(10) = hijau muda
(12) = merah muda(13) = ungu cerah(14) = kuning muda
(15) = ungu pupus(16) = hitam(17) = tua(blink)
(18) = hijau muda(blink)(19) = hijau pupus(blink)(10) = merah (blink)
(21) = ungu tua(blink)


#TextBackGround[procedure]
untuk mengatur warna latar belakang dari karakter-karakter di layar
sintaks : TextBackGround(Color:Byte);

#window[prosedur]
untuk membuat suatu jendela yang terletak pada layar
sintaks : window(x1,x2,y1,y2 : Byte);
x1,x2 = koordinat kiri atas dengan nilai maksimal sesuai dengan mode layar.
y1,y2 = koordinat kanan bawah dengan nilai maksimal sesuai dengan mode layar

#TextMode[prosedur]
untuk mengatur lebar layar, 80 kolom atau 40 kolom.
sintaks : TextMode(Mode:Byte);
Default = C80;

#sound[prosedur]
untuk mengaktifkan suara(beep) pada internal speaker
sintaks : Sound(Hz:word);
untuk menonaktifkannya menggunakan statement NoSound

contoh : 


Category: Pascal | Added by: redmond (24/08/2012)
Views: 1131 | Comments: 5 | Rating: 0.0/0
Total comments: 1
1 Aisyah  
0
Thanks y..

Name *:
Email *:
Code *: