Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

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

Ответ
 
Опции темы
Старый 04.07.2008, 15:12   #1
KpeHDeJIb
Пользователь
 
Регистрация: 24.06.2008
Сообщений: 16
Репутация: 10
Восклицание Задача с анимацией

Необходимо сымитировать падение яблок с дерева.
---
Есть подобная задача, в которой ракета летит вверх, надо просто перерисовать ракету в нечто похожее на яблоко (тупо зеленую окружность можно), и пустить вниз.
Вложения
Тип файла: txt Ракета.txt (684 байт, 11 просмотров)
KpeHDeJIb вне форума   Ответить с цитированием
Старый 04.07.2008, 20:23   #2
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,499
Репутация: 5308
По умолчанию

ну так кто не разрешает?! Перерисовывайте!

или это Вы такую команду отдали?...

ладно, вот вам падающий зеленый круг...
честно говоря, на яблоко похоже слабо ;-)))

Код:

program graf;
uses crt,graph;
const
  AppleRadius = 15;
var
x,y,graphdriver,graphmode:integer;
begin
graphdriver:=0;
graphmode:=0;
initgraph(graphdriver,graphmode,'c:\bp\bgi');
SetColor(Red);
OutText('For Start Press ENTER');
ReadLn;
x:=GetMaxX div 2;
y:=0+AppleRadius;
setbkcolor(blue);
ClearDevice;
repeat
  {APPLE}
  SetColor(Blue);
  SetFillStyle(SolidFill,Blue);
  FillEllipse(X,Y,AppleRadius,AppleRadius);
  y:=y+1;
  SetColor(Green);
  SetFillStyle(1,Green);
  FillEllipse(X,Y,AppleRadius,AppleRadius);
  delay(1000);
until y>=(GetMaxY-AppleRadius);

SetColor(Red);
OutText('for Exit Press ENTER');

Readln;
closegraph;
end.

Serge_Bliznykov на форуме   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с анимацией проги! Aboltus Общие вопросы Delphi 3 29.07.2008 23:21
Работа с анимацией в ACCESS kuk132 Microsoft Office Access 1 17.07.2008 14:07
Помогите с анимацией в Паскале ЕвгениуS Помощь студентам 6 06.06.2008 15:10
Как отображать в своей программе файлы *.gif с анимацией? SalasAndriy Общие вопросы C/C++ 1 02.11.2007 13:17


16:46.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru