65

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

svet1968 19 марта 2023

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

категория: информатика

37

Решение для Pascal ABCuses GraphABC; vara: integer; beginreadln (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.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...