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

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

31.03.2012, 02:01. Просмотров 1458. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

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

1
Puporev
Модератор
54349 / 41942 / 28977
Регистрация: 18.05.2008
Сообщений: 98,786
31.03.2012, 14:36 #2
Лучший ответ Сообщение было отмечено masimka001 как решение

Решение

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
34
35
36
37
38
39
40
41
uses crt,graph;
procedure Krg(x,y,r,c:integer);
begin
setcolor(c);
setfillstyle(1,c);
circle(x,y,r);
floodfill(x,y,c);
end;
procedure Kvd(x,y,d,c:integer);
begin
setcolor(c);
setfillstyle(1,c);
rectangle(x-d,y-d,x+d,y+d);
floodfill(x,y,c);
end;
var x,y,r,h:integer;
begin
initgraph(x,y,'');
outtextXY(getmaxX div 2-30,20,'Vyhod - any key');
r:=10;
x:=r;
y:=getmaxY div 2;
repeat
while (x<getmaxX-r) and not keypressed do
 begin
  h:=5;
  x:=x+h;
  Krg(x,y,r,10);
  delay(50);
  Krg(x,y,r,0)
 end;
while (x>r) and not keypressed do
 begin
  h:=-5;
  x:=x+h;
  Kvd(x,y,r,10);
  delay(50);
  Kvd(x,y,r,0);
 end;
until keypressed;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.03.2012, 14:36

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

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

Анимация. Круг движется в хаотичном порядке по экрану
1.Надо чтобы нарисованный круг двигался в хаотичном порядке по экрану (как...


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

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

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