Daftar-Daftar Statement Tambahan pada Program PASCAL.

Daftar-Daftar Statement Tambahan pada Program PASCAL.

1. Clrscr {untuk menghapus layar}

Harus menggunakan uses crt

2. Exit

Berfungsi untuk keluar dari block program baik procedure maupun function. Jika

Exit ini ada diprogram inti akan menyebabkan program berhenti.

3. Halt

Berfungsi untuk mengakhiri eksekusi program, baik diprogram utama/inti maupun

diprogram sub inti. Program ini akan mem- break ke Source program sumber semua akan

dibatalkan kembali ke turbo pascal.

4. FillChar(x: string; count:word; ch:char)

Berfungsi untuk mengisikan sejumlah karakter ch sebanyak count ke dalam variabel string x.

Contoh : x: string[80]

FillChar(x,10,’A’);

Hasil : variabel string x akan berisi data : AAAAAAAAAA

5. Delay(n:integer);

Berfungsi untuk menunda eksekusi program selama n milisecond (1/1000 detik).

Termasuk dalam unit crt;

Contoh : Writeln(‘Hallo IPTII’); Delay(1000);Write(‘Bos’);

Hasil : Hallo IPTII {tertunda 1 detik} Bos

6. ClrEol

Berfungsi untuk menghapus tulisan dilayar mulai dari posisi kursor sampai ke akhir baris

tanpa merubah posisi kursor. Termasuk dalam unit CRT.

Contoh :

Gotoxy(1,1);write(‘IPTTI YOGYAKARTA’);

Delay(3000);

Gotoxy(5,1);ClrEol;

Hasil Tulisan IPTTI YOGYAKARTA ada di baris 1 kolom 1 tertunda

3 detik lalu IPTTI YOGYAKARTA akan dihapus. 7. Gotoxy(x,y:word);

Berfungsi untuk menempatkan posisi di layar pada X: kolom dan Y : baris . Termasuk dalam

unit Crt.

Contoh :

Program animasi;

Uses Crt;

Const Teks=’IPTTI KUSUMAYO’;

Var X: integer;

Begin

Clrscr;

For x:= 1 to 70 do begin

Gotoxy(x,12);Write(Teks);

Delay(500); End;

End.

8. Pi : real; 􀃆 Berfungsi untuk nilai 3.14151592…

Write(pi:5:2); hasil : 3.14

9. Abs(x:real):real;

Menerima masukan x real atau integer dan akan mengembalikan nilai positif dari x

Contoh : Writeln(Abs(-5.6):5:2);

Hasil : 5.60

10. Exp(x: real): real;

Contoh : Writeln(exp(1) : 5:2);

Hasil 2.73

11. La (x: real): real;

Contoh : Writeln(Ln(00) : 5:2);

Hasil : 4.61

12. Sqr (x: real): real;

Berfungsi untuk menerima masukan x real/integer dan akan mengembalikan nilai kuadrat

dari x.

13. Int (x: real): real;

Contoh : Writeln(Int(78.23));

Hasil : 78

14. Sqrt(x: real): real;

Berfungsi untuk menerima masukan x real/integer dan akan mengembalikan nilai akar dari x.

15. Sin(x: real) : real; Cos(x: real): real dan ArcTan(x: real) : real;

Fungsi untuk memasukkan x real dalam radian untuk Sin dan Cos 􀃆 sin(x) cos(x)

16. Random(x: integer) : integer;

Untuk mengacak bilangan. Random sangat potensial untuk membangkitkan efek-efek yang

berkaitan dengan animasi game dan peramalan.

17. Sound(n)

Berfungsi untuk mengaktifkan suara speaker n bernilai >100

18. Nosound

Untuk mute atau mematikan suara.

Tweet

Sign up here with your email address to receive updates from this blog in your inbox.