Поворот фигуры на заданный угол

@id_sf · Регистрация: 09.12.2014

Author24 — интернет-сервис помощи студентам

Постановка задачи
1) Построить треугольник в соответствии с вариантом синим цветом
2) Повернуть его на угол равный a, где а = (первое число студенческого билета + второе число студенческого билета) * последнее число студенческого билета. Треугольник построен и закрашен зеленым цветом
3) Подписать оси х, у, обозначить основные координаты осей.

@Puporev · 18.02.2015, 18:50

Pascal

uses graphABC;
type Point=record
           x,y:integer;
           end;
var x,y,r1,r2:integer;
    p:array[1..4] of Point;
    a:real;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
line(0,y,2*x,y);
line(x,0,x,2*y);
textout(x+5,10,'Y');
textout(2*x-20,y-20,'X');
setpenwidth(2);
setpencolor(clBlue);
r1:=50;
r2:=100;
p[1].x:=x;p[1].y:=y;
p[2].x:=x-r1; p[2].y:=y;
p[3].x:=x; p[3].y:=y-100;
p[4]:=p[1];
polygon(p,4);
a:=(9+9)*9*pi/180;
p[2].x:=x+round(r1*cos(a+pi));
p[2].y:=y-round(r1*sin(a+pi));
p[3].x:=x+round(r2*cos(a+pi/2));
p[3].y:=y-round(r2*sin(a+pi/2));
setpencolor(clGreen);
setbrushcolor(clGreen);
polygon(p,4);
end.

@id_sf · 18.02.2015, 19:28 **[ТС]**

Прошу прощения , но выходит вот такая ошибка(

@Puporev · 18.02.2015, 19:35

Вы в Паскаль АВС.net запускаете? Вообще-то это раздел для простого АВС.

Добавлено через 3 минуты
Вот для ,net. И впредь не пудрите мозги а внимательнее выбирайте раздел.

Pascal

uses graphABC;
var x,y,r1,r2:integer;
    p:array of Point;
    a:real;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
line(0,y,2*x,y);
line(x,0,x,2*y);
textout(x+5,10,'Y');
textout(2*x-20,y-20,'X');
setpenwidth(2);
setpencolor(clBlue);
r1:=50;
r2:=100;
setlength(p,4);
p[0].x:=x;p[0].y:=y;
p[1].x:=x-r1; p[1].y:=y;
p[2].x:=x; p[2].y:=y-100;
p[3]:=p[0];
polygon(p);
a:=(9+9)*9*pi/180;
p[1].x:=x+round(r1*cos(a+pi));
p[1].y:=y-round(r1*sin(a+pi));
p[2].x:=x+round(r2*cos(a+pi/2));
p[2].y:=y-round(r2*sin(a+pi/2));
setpencolor(clGreen);
setbrushcolor(clGreen);
polygon(p);
end.

@id_sf · 18.02.2015, 19:44 **[ТС]**

Спасибо! Возникли проблемы со скичиванием просто ABC.
все работает )

@id_sf 0 / 0 / 0 Регистрация: 09.12.2014 Сообщений: 6
		1
	Поворот фигуры на заданный угол 18.02.2015, 17:14. Показов 7761. Ответов 4 Метки нет (Все метки) Постановка задачи 1) Построить треугольник в соответствии с вариантом синим цветом 2) Повернуть его на угол равный a, где а = (первое число студенческого билета + второе число студенческого билета) * последнее число студенческого билета. Треугольник построен и закрашен зеленым цветом 3) Подписать оси х, у, обозначить основные координаты осей. Изображения 0

@id_sf 0 / 0 / 0 Регистрация: 09.12.2014 Сообщений: 6
	18.02.2015, 19:28 [ТС]	3
	Прошу прощения , но выходит вот такая ошибка( Миниатюры 0

@id_sf 0 / 0 / 0 Регистрация: 09.12.2014 Сообщений: 6
	18.02.2015, 19:44 [ТС]	5
	Спасибо! Возникли проблемы со скичиванием просто ABC. все работает ) 0

Поворот фигуры на заданный угол

Решение