English French German Spain Italian Dutch Russian Portuguese Japanese Korean Arabic Chinese Simplified

Wednesday 27 February 2013

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;

0 comments:

Artikel lainnya