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

Вывести на экран монитора прямоугольник,чтобы он плавно перемещался

15.03.2013, 12:59. Показов 1041. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста
Вывести на экран монитора прямоугольник красного (Red) цвета таким образом,
чтобы он плавно перемещался от левого края экрана к правому краю и обратно,
после чего процесс перемещения прямоугольника должен повторяться.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.03.2013, 12:59
Ответы с готовыми решениями:

Вывести на экран монитора квадрат желтого цвета таким образом, чтобы он плавно вращался вокруг своего центра
Вывести на экран монитора квадрат желтого (Yellow) цвета таким образом, чтобы он плавно вращался...

Вывести на экран монитора правильный шестиугольник голубого цвета таким образом, чтобы он плавно вращался вокруг своего центра
Вывести на экран монитора правильный шестиугольник голубого (Cyan) цвета таким образом, чтобы он...

Вывести на экран монитора правильный треугольник белого (White) цвета таким образом, чтобы он плавно вращался вокруг своего центра по часовой стрелк
Вывести на экран монитора правильный треугольник белого (White) цвета таким образом, чтобы он...

Вывести на экран монитора прямоугольник красного(Red) цвета таким образом, чтобы он плавно перемещался от левого края экрана к правому краю и назад
Вывести на экран монитора прямоугольник красного(Red) цвета таким образом, чтобы он плавно...

2
30 / 29 / 15
Регистрация: 28.09.2011
Сообщений: 448
15.03.2013, 15:14 2
Лучший ответ Сообщение было отмечено IlyaMik как решение

Решение

перемещение делается так:
Pascal
1
Название картинки.Left:= Название картинки.Left + коэффициент перемещения (на какое расстояние перемещаем);
а прямоугольник рисуется при помощи процедуры rectangle.
0
Модератор
63378 / 47072 / 32445
Регистрация: 18.05.2008
Сообщений: 114,097
15.03.2013, 15:33 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt,graph;
var x,y,x1,y1,w,h,d:integer;
begin
initgraph(x,y,'');
outtextXY(getmaxX div 2-30,20,'Vyhod - any key');
w:=80;
h:=40;
x:=0;
y:=(getmaxY-h) div 2;
repeat
if x<=1 then d:=5;
x:=x+d;
setcolor(red);
rectangle(x,y,x+w,y+h);
delay(50);
setcolor(0);
rectangle(x,y,x+w,y+h);
if x>=getmaxX-w then d:=-5;
until keypressed;
end.
Добавлено через 47 секунд
Цитата Сообщение от gylayko Посмотреть сообщение
перемещение делается так:
Это раздел Турбо Паскаль
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.03.2013, 15:33

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Хочу, чтобы объект плавно перемещался влево.
Хочу, чтобы объект плавно перемещался влево. Вот функции: function $(id) { return...

Вывести на экран монитора квадрат желтого цвета, плавно вращающийся относительно своего центра
Вывести на экран монитора квадрат желтого (Yellow) цвета таким образом, чтобы он плавно вращался...

Вывести на экран монитора прямоугольник
Вывести на экран монитора прямоугольник черного (Black) цвета со сторонами в виде штрихпунктирных...

Вывести на экран монитора треугольник и прямоугольник
Вывести на экран монитора треугольник светло-серого (LightGray) цвета и прямоугольник...


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

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

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