Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.
Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.
Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.
Да пожалуйста:
Uses CRT, Graph;
Var
a,b,h,Coef,r1,r2:Real;
X0,Y0:Word;
Begin
Write('a= ');
Readln(a);
Write('b(<a)= ');
Readln(b);
Write('h= ');
Readln(h);
[COLOR=Red][B]InitGraph(...); - тут самостоятельно.[/B][/COLOR]
ClearDevice;
r1:=a/GetMaxX;
r2:=h/GetMaxY;
if r1>r2 then Coef:=GetMaxX/2/a else Coef:=GetMaxY/2/h;
X0:=GetMaxX div 2;
Y0:=GetMaxY div 2;
SetLineStyle(SolidLn,0,ThickWidth);
Line(X0-Round(a*Coef/2),Y0+Round(h*Coef/2),
X0+Round(a*Coef/2),Y0+Round(h*Coef/2));
Line(X0-Round(b*Coef/2),Y0-Round(h*Coef/2),
X0+Round(b*Coef/2),Y0-Round(h*Coef/2));
Line(X0-Round(b*Coef/2),Y0-Round(h*Coef/2),
X0-Round(a*Coef/2),Y0+Round(h*Coef/2));
Line(X0+Round(b*Coef/2),Y0-Round(h*Coef/2),
X0+Round(a*Coef/2),Y0+Round(h*Coef/2));
ReadKey;
CloseGraph;
End.
