Cvičenie v Pascale Programovanie animácie

Programovací jazyk Pascal je často používaný ako úvodnú jazyka pre výučbu počítačové programovanie pre študentov . Existuje mnoho verzií , ale najčastejšie sú Borland Turbo Pascal a Free Pascal . Tento tutoriál bol napísaný s použitím Free Pascal , ale všetky verzie Pascalu zdieľajú rovnaké vlastnosti , takže kód by mal preniesť bezo zmeny medzi jednotlivými verziami . Pascal je nevyhnutne nutné , štruktúrovaný programovací jazyk . Funkcie animácie sú poskytované " Graf " funkcie knižnice , ktorý je dodávaný s jazykom . To je popísané v kapitole 18 Run - Time Library Reference Guide aplikáciu v prvom odkaze . Pokyny dovolená 1

Vytvorte ďalší súbor vo vašom obľúbenom textovom editore . Každý prostý textový editor bude robiť , vrátane Windows Poznámkový blok , keď môžete radšej použiť vyhradený editor Pascal , ako je voľný program Lazára .
2

Vložte nasledujúce dáta hlavičky do textového editora inicializovať premenné , ktorý bude použitý v tutoriále animácie :

Program Pascal_Animation_Tutorial ;

používa CRT , graf ; klipart

Var videoDriver , gmod : Integer ;

Var x , y , w , h : Integer ;

Var loop : Boolean ;

Var farba : Integer ;

dovoz aj CRT ( pre prácu s konzolou ) a grafické knižnice . Potom sa deklaruje premenné pre ovládače grafického adaptéra , grafický režim , pozície a výšky grafického prvku spolu s jeho farbou , a boolean pre ovládanie animácie slučky .
3

Vložiť nasledujúci kód ihneď po poslednom kód inicializácia hodnôt premenných :

videoDriver : = DetectGraph ;

InitGraph ( videoDriver , gmod , '' ) ;

x : = 40 ;

y : = 40 ;

w : = 10 ;

h : = 10 ;

farba = červená ;

slučka : = true ;

ovládač grafickej karty poskytuje rozhranie na obrazovke a gmod drží aktuálne rozlíšenie a farebnú hĺbku . X , Y , W a H bude držať súradnice X a Y na obrazovke kresliť animácie , rovnako ako jej šírku a výšku . Farba bude mať aktuálne farbu ( v tomto prípade , Red ) .
4

vložte nasledujúci kód na vytvorenie hlavnej slučku , ktorá bude kresliť elipsu , posuňte to málo , a vymazať obrazovku kresliť znova . Po dokončení opakovane , bude produkovať animáciu lopta pohybujúce sa po obrazovke . To bude tiež kontrolovať pre užívateľa opustiť stlačením klávesy " Q "

while ( slučka )

začať klipart

ClrScr ; .

SetColor ( farba ) ;

FillEllipse ( x , y , w , h ) ;

x : = x + 1 ;

y : = y + 1 ;

if ( ReadKey == ' Q ' ) , potom slučka : = False ;

koniec

• Predchádzajúca strana: ASP.Net Developer Školenie 
• Ďalšia strana: Ako otvoriť súbory yEnc