Cielisa
Опубликовано 7 лет назад по предмету Информатика от Cielisa


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

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

  1. Ответ
    Ответ дан sinbad7

    Решение для 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.

     

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

     

     

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц