Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 13, средняя оценка - 4.77
arthunt123
0 / 0 / 0
Регистрация: 04.05.2012
Сообщений: 5
#1

Анимация. Круг движется в хаотичном порядке по экрану - Turbo Pascal

04.05.2012, 01:55. Просмотров 1876. Ответов 1
Метки нет (Все метки)

1.Надо чтобы нарисованный круг двигался в хаотичном порядке по экрану (как мячик отскакивал от сторон и так передвигался по экрану, сама окружность внутри черная, а окантовка белая).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.05.2012, 01:55
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Анимация. Круг движется в хаотичном порядке по экрану (Turbo Pascal):

Круг летает по экрану, начальный цвет
Круг летает по экрану, начальный цвет случайный. При столкновении с правой...

Нарисовать на экране круг зеленого цвета, который движется по горизонтали
Нарисовать на экране круг зеленого цвета, который движется по горизонтали, при...

Нарисовать на экране круг красного цвета, который движется по периметру экрана
Нарисовать на экране круг красного цвета, который движется по периметру экрана,...

Анимация: по экрану со свистом пролетает самолёт
2. По экрану со свистом пролетает самолёт (достаточно изобразить закрашенный...

Анимация: движение фигур по экрану при нажатии на них
Всем привет , мне нужна помощь. Нужна программа для анимации трех фигур(круг,...

По экрану разбросайте 1000 звездочек в случайном порядке
Начал изучать Паскаль самостоятельно и как обычно в начале бывает много...

1
Puporev
Модератор
54149 / 41782 / 28889
Регистрация: 18.05.2008
Сообщений: 98,331
04.05.2012, 08:53 #2
Лучший ответ Сообщение было отмечено arthunt123 как решение

Решение

Не очень понял что значит хаотично. Может так?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses crt,graph;
procedure Ball(x,y,r,c1,c2:integer);
begin
setcolor(c1);
circle(x,y,r);
setfillstyle(1,c1);
floodfill(x,y,c1);
setcolor(c2);
circle(x,y,r-3);
setfillstyle(1,c2);
floodfill(x,y,c2);
end;
var xc,yc,x,y,dx,dy,r:integer;
    c1,c2:char;
begin
initgraph(x,y,'');
setfillstyle(1,9);
bar(0,0,getmaxX,getmaxY);
x:=getmaxX div 2;
y:=getmaxY div 2;
dx:=3;
dy:=5;
r:=10;
repeat
Ball(x,y,r,15,0);
delay(50);
Ball(x,y,r,9,9);
x:=x+dx;
y:=y+dy;
if (x>getmaxX-r-3)or(x<r+3) then dx:=-dx;
if (y>getmaxY-r-3)or(y<r+3) then dy:=-dy;
until keypressed; {выход по нажатию любой клавиши}
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.05.2012, 08:53
Привет! Вот еще темы с решениями:

Квадрат движется по экрану
Помогите нарисовать квадрат который движется по краю form1 в один цикл ,...

Вывод символов строки в хаотичном порядке.
Всем доброго времени суток. Нужна помощь, в решение задачи по Assembler: Нужно...

Движение изображения на форме в хаотичном порядке
Нужно написать программу чтобы картинка двигалась рандомно по всей форме.

Движение Label по форме в хаотичном порядке
Подскажите как сделать чтоб Label по нажатию кнопки двигался в рандомном...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru