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

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

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

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

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

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

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

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

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

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

5
kestugar
7 / 7 / 6
Регистрация: 15.05.2010
Сообщений: 184
23.05.2010, 22:19  [ТС] #2
решение задачи,используя графический режим.
0
STGE
770 / 575 / 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
770 / 575 / 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