Вопрос задан 23.02.2021 в 09:18. Предмет Информатика. Спрашивает Петров Стёпа.

Составить программу, которая рисует 5 окружностей голубого цвета с центром в пункте (200, 200) и

радиусами 30, 40, 50, 60, 70 помогите,пожалуйста.
0 0
Перейти к ответам

Ответы на вопрос

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Прасолов Даниил.
uses
  GraphABC;

var
  i: word; //Было предпочтительнее использовать byte,
             //ведь от 3 до 7 считаем, но тип word старее,
             //а к byte могут придраться

begin
  SetBrushColor(clBlue); //Проставляем цвет кисти, я не
                                    //нашёл функции рисования круга,
                                    //где можно было бы указать цвет
  for i := 3 to 7 do
  begin
    FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70
    sleep(500); //Поскольку круги в конечном счёте всё равно
                     //затираются более большими, будем выводить
                     //с задержкой
  end;
end.
0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Конечно, вот пример программы на языке Python, использующей библиотеку matplotlib, чтобы нарисовать 5 окружностей голубого цвета с заданными параметрами:

python
import matplotlib.pyplot as plt def draw_circles(): circle_colors = ['blue', 'blue', 'blue', 'blue', 'blue'] circle_radii = [30, 40, 50, 60, 70] fig, ax = plt.subplots() for radius, color in zip(circle_radii, circle_colors): circle = plt.Circle((200, 200), radius, color=color) ax.add_artist(circle) ax.set_aspect('equal') ax.set_xlim(0, 400) ax.set_ylim(0, 400) plt.axis('off') plt.show() draw_circles()

После выполнения этой программы откроется окно с изображением 5 окружностей голубого цвета с центром в точке (200, 200) и радиусами 30, 40, 50, 60, 70.

0 0

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос