;
Logowanie 
United States 
Unknown Browser
| Prosta animacja |
|
program animka;
uses crt,graph; var sterownik,tryb,i : integer; xs,ys:word; begin sterownik :=detect; initgraph ( sterownik,tryb,'c:\tp\bgi'); setcolor(red); xs:= getmaxx div 2; ys:= getmaxy div 2; setcolor (red); for i :=-40 to 679 do begin rectangle (i,ys-20,i+40,ys+20); delay (10); setcolor (black); rectangle (i,ys-20,i+40,ys+20); setcolor (red); end; repeat until keypressed; closegraph; end. |
