Помогите, нужно составить программу в PASCAL ABC, которая будет рисовать 5 ёлок. Копировать с сайтов нет смысла, так как везде неверно. Главное условие, нужно сделать программу без ввода переменных. То есть использовать в ней п...

Помогите, нужно составить программу в PASCAL ABC, которая будет рисовать 5 ёлок. Копировать с сайтов нет смысла, так как везде неверно. Главное условие, нужно сделать программу без ввода переменных. То есть использовать в ней переменные нельзя! Кому не сложно, помогите. Буду признателен. (Если не получится нарисовать именно 5 елок, то нарисуйте одну..главное, чтобы она была правильной)
Гость
Ответ(ы) на вопрос:
Гость
Я, конечно, не художник, но надеюсь это похоже на ёлки. uses GraphABC; begin   For var i := 0 to 4 do   begin     SetBrushColor(clGreen);     FillPie(80 + 120 * i, 100, 25, -50, -130);     FillPie(80 + 120 * i, 115, 40, -50, -130);     FillPie(80 + 120 * i, 135, 60, -50, -130);     FillPie(80 + 120 * i, 160, 75, -50, -130);     SetBrushColor(clBrown);     FillRectangle(74 + 120 * i, 234, 86 + 120 * i, 245)   end; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы