Question

Составить программу в Паскале, которая рисует выкройку платья(размер а задаётся с клавиатуры)

На рисунке: Стороны - а, основание трапеции - 2а 

Answer 1

Решение для Pascal ABC

uses GraphABC;

var
a:integer;
begin
readln(a);
moveto(a,1);
circle(a+a div 2,1,a div 4);
lineto(a+a div 4,1);
moveto(a+ (a div 4)*3,1);
lineto (2*a,1);
lineto(2*a,1+a);
lineto (a,1+a);
lineto (a,1);
moveto (a,1+a);
lineto (a-(a div 2),1+2*a);
lineto(2*a+a div 2, 1+2*a);
lineto(2*a,1+a);
end.

 

Немножко выступают края окружности