Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.95/19: Рейтинг темы: голосов - 19, средняя оценка - 4.95
kestugar
7 / 7 / 6
Регистрация: 15.05.2010
Сообщений: 184
1

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

21.05.2010, 10:11. Просмотров 3451. Ответов 5
Метки нет (Все метки)

Нарисовать на экране прямоугольник желтого цвета, который движется по горизонтали, в прямом и обратном направлении, и за ним тянется «след» из розовых точек. Программа завершается нажатием любой клавиши.
Заранее спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2010, 10:11
Ответы с готовыми решениями:

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

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

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

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

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

5
kestugar
7 / 7 / 6
Регистрация: 15.05.2010
Сообщений: 184
23.05.2010, 22:19  [ТС] 2
решение задачи,используя графический режим.
0
STGE
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
23.05.2010, 22:40 3
Не знаю на счёт розовых точек, а квадрат - пожалуйста:
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
uses crt,graph;
var gd,gm,dx: integer; 
     x1,y1,x2,y2: word;
begin
 gd:=detect;
 initgraph(gd,gm,'');
 x1:=100;
 y1:=100;
 x2:=200;
 y2:=200;
 dx:=1;
 setbkcolor(1);
 repeat
  setfillstyle(1,yellow);
  bar(x1,y1,x2,y2);
  delay(10);
  setfillstyle(1,1);
  bar(x1,y1,x2,y2);
  inc(x1,dx);
  inc(x2,dx);
  if (x2>638) or (x1<2) then dx:=-dx;
 until keypressed;
 closegraph;
end.
Добавлено через 8 минут
Вот со следом:
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
uses crt,graph;
var gd,gm,dx: integer; 
     x1,y1,x2,y2: word;
begin
 gd:=detect;
 initgraph(gd,gm,'');
 x1:=100;
 y1:=100;
 x2:=200;
 y2:=200;
 dx:=1;
 setbkcolor(1);
 repeat
  setfillstyle(1,yellow);
  bar(x1,y1,x2,y2);
  delay(100);
  if (x2>638) or (x1<2) then dx:=-dx
  else putpixel(x1-1,random(y2-y1)+y1,yellow);
  setfillstyle(1,1);
  bar(x1,y1,x2,y2);
  inc(x1,dx);
  inc(x2,dx);
 until keypressed;
 closegraph;
end.
1
kestugar
7 / 7 / 6
Регистрация: 15.05.2010
Сообщений: 184
24.05.2010, 18:22  [ТС] 4
я прописал путь C:\Program Files\TURBO PASCAL 7.1\BGI в 6-ой строке,остальное ничего не менял.
мне пишет 'Error 15: File not found (GRAPH.TPU)'
Подскажите плиз что нужно сделать?
0
STGE
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
24.05.2010, 18:32 5
Скопируйте из папки UNITS в один каталог с программой файл GRAPH.TPU
1
kestugar
7 / 7 / 6
Регистрация: 15.05.2010
Сообщений: 184
24.05.2010, 21:08  [ТС] 6
Спс помогло,хотя ошибок больше нет,но все равно не запускается(
0
24.05.2010, 21:08
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.05.2010, 21:08

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

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

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


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

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

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