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

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

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

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

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

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

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

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

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

1
Puporev
Модератор
54716 / 42122 / 29086
Регистрация: 18.05.2008
Сообщений: 99,425
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

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

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

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


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

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

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