Цитата:
Сообщение от Sandra 2000
Нужна помощь,ПОМОГИТЕ ПОЖАЛУЙСТА.
Постройте равнобедренную трапецию, высота которой равна h, основания – a и b. Основания расположены горизонтально.
Модуль graph.
|
Да пожалуйста:
Код:
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);
InitGraph(...); - тут самостоятельно.
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.