Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 5.00
masimka001
0 / 0 / 0
Регистрация: 20.03.2012
Сообщений: 25
#1

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

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

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

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

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

Нарисовать на экране круг красного цвета, который движется по периметру экрана - Turbo Pascal
Нарисовать на экране круг красного цвета, который движется по периметру экрана, не проходя нижнюю часть экрана, в прямом и обратном...

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

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

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

1
Puporev
Модератор
54039 / 41672 / 14753
Регистрация: 18.05.2008
Сообщений: 97,995
31.03.2012, 14:36 #2
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. Нарисовать овал, который движется по вертикали. При достижении границы меняет цвет - Turbo Pascal
Нарисовать на экране овал зеленого цвета, который движется по вертикали по центру экрана. При достижении границы экрана овал меняет цвет на...

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

Изобразить на экране квадрат, которы движется по периметру триугольника - Turbo Pascal
Решите пожалуйста!!! Изобразить на экране квадрат,которы движется по периметру триугольника и одновременно переворачивается вокруг своей...

Вывести на экран монитора две вертикальных строки текста длиной не более десяти символов светло-зеленого цвета - Pascal
Нужна помощь по Паскалю, т.к. я - :-| Вывести на экран монитора две вертикальных строки текста длиной не более десяти символов...


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

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

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