Rularea modul grafic în Pascal. Concluzia indică pe ecran.
În linia de №2 anunta modulele CRT si milimetrică. Fără aceste module, modul grafic nu va funcționa.
În conformitate №8 Initgraph procedură scrisă. Această procedură inițializează modul (începe) grafică. variabile separate prin virgulă înregistrate «gd» și «gm» între paranteze. De asemenea, în ghilimele trebuie să specificați calea către programul - conducătorul auto cu extensia BGI. În mod implicit, după instalarea Pascal pe un calculator, acest program - conducătorul auto este în directorul CPF / unități / i386-Win32 / grafic. Nu pentru a specifica calea către programul - conducătorul auto (ca în exemplul nostru) trebuie să fie în copia directorul CPF / unități / i386-win32 / grafic fișier 2: graph.o și graph.ppu, și inserați-le într-un director CFP / bin / i386 -win32. Astfel, aceste fișiere sunt responsabile pentru modul de grafică, este acum localizat în directorul curent. Și nu avem nevoie să specificați calea către acesta, suficient pentru a pune ghilimele.
String №9 și №10 spune că, dacă inițializarea este de succes, programul se va opri.
În linia №17 cere o procedură care se închide modul de grafică și text face din nou ecranul.
Amintiți-vă aceste linii (№2,3,7,8,9,10,17). Ele pot fi folosite ca un șablon pentru scrierea de programe care necesită modul grafic de funcționare.
În linia №4 declarăm o culoare variabilă. În ea vom înregistra valorile pentru pixelii de culoare. Pascal avea doar 15 culori diferite. Acestea sunt identificate prin numere întregi de la 0 la 15. Prin urmare, vom specifica tipul de date octet (număr întreg de tip 0 ... 255) pentru o culoare variabilă.
String №11. Procedura Aleator inițializează numărul aleatoriu.
În linia №12 începe un ciclu care se repetă, atâta timp cât nu ne trage pe orice tastă (linia №16) (până înseamnă keypressed: atâta timp cât este apăsată tasta). Ciclul va funcționa pentru 3 operator care sunt în rânduri №13 - №15.
În linia №13, vom atribui un număr aleator de culoare variabila de la 1 la 15, utilizând funcția aleatorie.
În conformitate №14 procedura de apel Putpixel. Această procedură creează un punct de pe ecran în modul grafic (Putpixel de limba engleza -. Pune un pixel). În paranteze indică coordonatele acestui punct și culoarea sa. In exemplul nostru, coordonatele au o valoare (aleator (100), aleator (100)). Ie coordonatele vor fi generate aleatoriu. Culoarea este setat la «culoare». De asemenea, a generat aleator (linia №13). După cum puteți vedea variabila «culoare» pentru a determina culoarea nu a putut crea. A fost suficient pentru a determina №14 în loc de «culoare» înregistrare «aleatoare (15).“ Astfel, vom obține că procedura putpixel va afișa punctul cu coordonatele aleatorii și culoare.
În conformitate №15 numita procedură Daley. Daley Protsedura folosit pentru a întârzia acțiunea în ciclul. În paranteze indică intervalul de timp. Daley (1000) înseamnă o întârziere de o secundă. Astfel, se pare că punctele (pixeli) sunt afișate cu o întârziere de 0,01 s.
Închideți fereastra grafica, făcând clic pe X în colțul din dreapta sus al ecranului grafic, sau prin apăsarea oricărei taste în modul text.