Технический форум - Построение фигур в Turbo Pascal

Цитата:

Сообщение от Sandra 2000 (Сообщение 838503)

Нужна помощь,ПОМОГИТЕ ПОЖАЛУЙСТА.
Постройте равнобедренную трапецию, высота которой равна 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.