Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.04.2011, 16:23   #1
Чуччи
Пользователь
 
Регистрация: 11.11.2010
Сообщений: 17
По умолчанию Графика

Здравствуйте! нужно написать программу на паскале
Сделать бомбу - в виде круга. Осколки бомбы должны снижать скорость при движении.ммм...вот часть...может чем то поможет
Код:
Код:
  "взрыв"  
( рисование движущегося массива пикселов с остановкой на границах экрана ).
------------------------------------------------------------------}
 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;
Чуччи вне форума Ответить с цитированием
Старый 02.04.2011, 18:13   #2
masterlomaster
Форумчанин
 
Аватар для masterlomaster
 
Регистрация: 21.10.2009
Сообщений: 114
По умолчанию аааааа

Полюбому копернул код отсюда=)

Сидоров М. Е. , Трушин О. В.
Школа работы на IBM PC.
masterlomaster вне форума Ответить с цитированием
Старый 02.04.2011, 18:51   #3
Чуччи
Пользователь
 
Регистрация: 11.11.2010
Сообщений: 17
По умолчанию

дак не знаю как делать(
Чуччи вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ГРАФИКА Telec Общие вопросы C/C++ 0 29.05.2010 17:25
Графика на c#!!! Mclaren Помощь студентам 2 26.02.2010 10:08
Графика в С++! Straiker Помощь студентам 0 21.12.2009 11:22
Графика StudentPolitech Помощь студентам 1 26.12.2008 19:13
Графика!!! kykysya Общие вопросы C/C++ 1 17.12.2008 20:18