tambahan program turbo pascal

Memberikan warna pada program

Letaknya dibawah begin yaitu :

textcolor(sesuai agka warna +kedip);

Contoh

Textcolor(1+128);

Membesarkan huruf pada program

Sama seperti mewarnai dibawah begin yaitu :

textmode(sesua besar huruf);

Contoh

Textmode(co40);

Textmode hanya ada dua pembesar huruf yaitu co40 & co80

Co40 : 80 pxl

Co80 : 14 pxl

Member sound pada program

Letaknya dibawah begin yaitu :

Sound(berapa kali bunyi perdetiknya);

Delay(detik berakhirnya bunyi);

Nosound;

Contoh

Sound(500);

Delay(1000);

Nosound;

“Perigatan”

 harus meyertai nosound; tampai ini akan berakibatkan bunyi yang ditimbulkan tidak akan berhenti bahkan pada saat program turbo pascal dimatikan.

Program perulangan

Ada tiga bagian program perulangan yaitu:

1.       For

2.       While – Do

3.       Repeat – until

Contoh  program perulangan

Uses crt;

Var

I:integer;

Begin

Clrscr;

For I:=1 to 100 do writeln (‘amik intel com global indo’)

Readln;

End;