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

Изменение цвета, размеров и перемещение графических элементов

23.03.2015, 20:20. Просмотров 938. Ответов 1
Метки нет (Все метки)

Вывести на экран монитора квадрат желтого цвета таким образом, чтобы он плавно вращался вокруг своего центра против часовой стрелки.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.03.2015, 20:20
Ответы с готовыми решениями:

Изменение цвета, размеров и перемещения графических элементов
Обеспечить изменение цвета, размеров или перемещения графических элементов....

Перемещение графических объектов
я вчера только более менее понята, как вообще создавать элементарные фигуры в...

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

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

Как запретить изменение размеров консольного окна
Программа с подключенным "crt"(uses crt). Нужно запретить изменять размеры...

1
Puporev
Модератор
55465 / 42572 / 29422
Регистрация: 18.05.2008
Сообщений: 100,714
23.03.2015, 20:50 2
Лучший ответ Сообщение было отмечено 07051997 как решение

Решение

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
uses crt,graph;
{процедура рисования квадратного полигона, параметры центр квадрата,
сторона квадрата, угол поворота и цвет}
procedure Move(x,y,s,a,c:integer);
var p:array[1..5]of Pointtype;{массив точек}
var i:integer;
    r:real;
begin
r:=s*sqrt(2)/2;{половина диагонали квадрата=радиус вращения вершин}
{определяем координаты вершин полигона относительно центра вращения}
for i:=1 to 5 do
 begin
  p[i].x:=x+round(r*cos(a*pi/180));
  p[i].y:=y-round(r*sin(a*pi/180));
  a:=a+90;
  end;
p[5].x:=p[1].x;{замыкаем полигон}
p[5].y:=p[1].y;
SetColor(c);{устанавливаем цвет}
drawpoly(5,p);{рисуем полигон}
end;
var  i,x0,y0,R,gd,gm:integer;
     a,u,c1,c2:integer;
begin
a:=200;{сторона квадрата}
InitGraph(gd,gm,'');
x0:=GetMaxX div 2;y0:=GetMaxY div 2;{центр экрана}
u:=0;{начальный угол}
c1:=14;{цвет рисунка}
c2:=0;{цвет фона}
repeat
Move(x0,y0,a,u,c1);{рисуем}
delay(100);{задержка}
Move(x0,y0,a,u,c2);{стираем}
u:=u+5;{увеличиваем угол и все повторяется}
until keypressed;{пока не нажата любая клавиша}
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.03.2015, 20:50

Вывести рисунок кольца зелёного цвета, организуя его перемещение клавишами-стрелками
Создайте программу вывода на экран компьютера рисунка кольца зелёного цвета,...

Перемещение и изменение масштаба квадрата
Нарисовал вот квадрат, использую линии и bar. Как переместить всё, что я...

В графическом режиме вывести на экран текст. Текст должен быть разного цвета, разных шрифтов, размеров и на цветном фоне
1. В графическом режиме вывести на экран текст. Текст должен быть разного...


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

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

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