Опубликовано 5 лет назад по предмету Информатика от 0тупой0

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

Ответ

Ответ дан A1dar

Я, конечно, не художник, но надеюсь это похоже на ёлки.

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.
1. Ответ
  
  Ответ дан A1dar
  
  Одну елку я без переменных и нарисовал, можно было и пять таким же образом делать. Но один и тот же фрагмент 5 раз писать очень глупо, поэтому использовал цикл с переменный. Если автору нужно "без переменных", думаю, ему не составим труда скопировать тело цикла и подставить вместо i численные значения.
2. Ответ
  
  Ответ дан Аккаунт удален
  
  Не знаю, это ему судить. Не пометит решение нарушением - останется таким, пометит - значит, не судьба...
3. Ответ
  
  Ответ дан A1dar
  
  Даже если так, то решение не удалят, а отправят на исправление
4. Ответ
  
  Ответ дан Аккаунт удален
  
  Я именно это и имел в виду)))
5. Ответ
  
  Ответ дан Аккаунт удален
  
  Зачем же удалять работающую программу? Их не так тут много, чтобы разбрасываться)))

Самые новые вопросы

Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают

Информация