Помогите, необходимо составить программку в PASCAL ABC, которая будет живописать 5
Помогите, нужно составить программку в PASCAL ABC, которая будет живописать 5 ёлок. Копировать с веб-сайтов нет смысла, так как всюду ошибочно. Основное условие, нужно сделать программку без ввода переменных. То есть использовать в ней переменные нельзя! Кому не трудно, помогите. Буду благодарен. (Если не получится нарисовать конкретно 5 елок, то нарисуйте одну..основное, чтоб она была правильной)
Задать свой вопрос
Александра Фогелер
Да так и есть. Школы РФ... Тут я слабосилен :3
1 ответ
Виолетта Фабрикантова
Я, конечно, не художник, но надеюсь это схоже на ёлки.
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.
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.
Валерия Ледящева
Одну елку я без переменных и нарисовал, можно было и пять таким же образом делать. Но один и тот же кусок 5 раз писать очень неразумно, потому использовал цикл с переменный. Если творцу необходимо "без переменных", думаю, ему не составим труда скопировать тело цикла и подставить заместо i численные значения.
Варвара Клапатюк
Даже если так, то решение не удалят, а вышлют на исправление
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов