Помощь - Поиск - Пользователи - Календарь
Полная версия: геометрические преобразования на плоскости
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Цифровой_Aнгел
расскажите, пожалуйста, как обернуть квадрат на 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
куда повернуть? налево?
Цифровой_Aнгел
вот так нужно
Цифровой_Aнгел
благодарю
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.