Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
4 / 4 / 3
Регистрация: 26.11.2011
Сообщений: 37
1

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

29.05.2012, 23:12. Просмотров 1308. Ответов 2
Метки нет (Все метки)


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

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

Изобразить на экране прямоугольник, вращающийся в плоскости экрана вокруг своего центра
Здравствуйте. Помогите решить задачу. Изобразить на экране прямоугольник, вращающийся в...

Изобразить на экране прямоугольник, вращающийся в плоскости экрана вокруг своего центра
Здравствуйте. Помогите решить задачу. Изобразить на экране прямоугольник, вращающийся в...

Изобразить на экране прямоугольник, вращающийся в плоскости экрана вокруг своего центра
Здравствуйте. Помогите решить задачу. Изобразить на экране прямоугольник, вращающийся в...

2
Модератор
62964 / 46969 / 32370
Регистрация: 18.05.2008
Сообщений: 113,830
30.05.2012, 16:12 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
42
43
44
45
46
47
48
49
50
uses crt,graph;
var sk,h,w,xc,yc,x1,y1,x2,y2,x3,y3,x4,y4:integer;
    a,r,u1,u2,u3,u4:real;
begin
clrscr;
repeat
write('Chastota smeny kadrov v mls ot 50 do 200 sk=');
readln(sk);
until sk in [10..250];
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2; {центр экрана}
outtextXY(50,20,'Vyhod - Any key');
h:=40; {половина высоты прямоугольника}
w:=50; {половина ширины прямоугольника}
a:=0;{начальный угол поворота}
u1:=-arctan(h/w);{начальные углы лучей от центра к вершине с осью Х
                 против часовой стрелки}
u2:=arctan(h/w);
u3:=pi-u2;
u4:=pi+u2;
r:=sqrt(w*w+h*h);{радиус вращения вершин}
{начальные координаты}
x1:=xc+round(r*cos(a+u1)); y1:=yc-round(r*sin(a+u1));
x2:=xc+round(r*cos(a+u2)); y2:=yc-round(r*sin(a+u2));
x3:=xc+round(r*cos(a+u3)); y3:=yc-round(r*sin(a+u3));
x4:=xc+round(r*cos(a+u4)); y4:=yc-round(r*sin(a+u4));
repeat
{рисуем}
setcolor(12);
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x3,y3,x4,y4);
line(x4,y4,x1,y1);
{делаем задержку и стираем(рисуем цветом фона)}
delay(sk);
setcolor(0);
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x3,y3,x4,y4);
line(x4,y4,x1,y1);
a:=a+0.1;{увеличиваем угол поворота}
{вычисляем новые координаты}
x1:=xc+round(r*cos(a+u1)); y1:=yc-round(r*sin(a+u1));
x2:=xc+round(r*cos(a+u2)); y2:=yc-round(r*sin(a+u2));
x3:=xc+round(r*cos(a+u3)); y3:=yc-round(r*sin(a+u3));
x4:=xc+round(r*cos(a+u4)); y4:=yc-round(r*sin(a+u4));
if a>2*pi then a:=0;
until keypressed;
end.
1
4 / 4 / 3
Регистрация: 26.11.2011
Сообщений: 37
30.05.2012, 17:26  [ТС] 3
спасибо большое)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2012, 17:26

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

Изобразить на экране правильный треугольник, вращающийся в плоскости экрана вокруг своего центра
Изобразить на экране правильный треугольник, вращающийся в плоскости экрана вокруг своего центра....

Изобразить на экране правильный треугольник, вращающийся в плоскости экрана вокруг своего центра
1. Изобразить на экране правильный треугольник, вращающийся в плоскости экрана вокруг своего...

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

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


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

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

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