Графика

[RadMan]

Графика

Здравствуйте! нужно написать программу на паскале
Сделать бомбу - в виде круга. Осколки бомбы должны снижать скорость при движении.

ммм...вот часть...

  "взрыв"  
( рисование движущегося массива пикселов с остановкой на границах экрана ).
------------------------------------------------------------------}
 x1:= Gx div 2;  y1:= Gy div 2;
for i:=1 to 300 do begin
  X[i]:= x1+ i mod 10;   { массив осколков }
   Y[i]:= y1+ i div 10;
  PutPixel(X[i], Y[i], 15);
   VX[i]:= -10 + random(21);
  VY[i]:= -10 + random(21) 
end;
SetColor(5);     
 Rectangle(x1, y1, x1+9, y1+30);  { бомба }
  ch:= ReadKey; { задержка до нажатия клавиши }
for i:=1 to 100 do begin
  sound(random(80));  
delay(1);  
nosound  { звук взрыва } 
end;
SetColor(0);    
Rectangle(x1, y1, x1+9, y1+30); { взрыв бомбы }
 
Repeat
 for i:=1 to 300 do begin
if(X[i]+VX[i] > 0) and (X[i]+VX[i] < Gx) and
(Y[i]+VY[i] > 0) and (Y[i]+VY[i] < Gy)
             
   then begin      { если пиксел не перелетит за край экрана }
   PutPixel(X[i],Y[i],0);   X[i]:= X[i]+VX[i];  Y[i]:= Y[i]+VY[i];
   PutPixel(X[i], Y[i], 14)  end     { движение осколков }
    else begin VX[i]:= 0;  VY[i]:= 0;{ если пиксел долетел до края экрана }
    sound(200); delay(2); nosound end
 end   
Until Keypressed;