Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ геометрические преобразования на плоскости

Автор: Цифровой_Aнгел 28.04.2010 1:26

расскажите, пожалуйста, как обернуть квадрат на 45 градусов.


Program Bar2;
Uses Graph,CRT;

var
driver, regim, error: integer;

Begin
Detectgraph(driver,regim);
Initgraph(driver,regim,' ');
Error:=GraphResult;
if Error <> grOK then
begin
writeln(GraphErrorMsg(Error));
Halt(Error)
end;

SetLineStyle(0,0,1);
SetFillStyle(1,Cyan);
Bar(160,120,360,380);


Readln;
CloseGraph;
Еnd.

Автор: Client 28.04.2010 1:51

куда повернуть? налево?

Автор: Цифровой_Aнгел 28.04.2010 2:28

вот так нужно



Эскизы прикрепленных изображений
Прикрепленное изображение

Автор: Ozzя 28.04.2010 12:11

http://forum.pascal.net.ru/index.php?showtopic=3867&st=0&p=21320&#entry21320

Автор: Цифровой_Aнгел 29.04.2010 0:05

благодарю