
Вопрос задан 23.02.2021 в 09:18.
Предмет Информатика.
Спрашивает Петров Стёпа.
Составить программу, которая рисует 5 окружностей голубого цвета с центром в пункте (200, 200) и
радиусами 30, 40, 50, 60, 70 помогите,пожалуйста.

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

Отвечает Прасолов Даниил.
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.
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.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно, вот пример программы на языке Python, использующей библиотеку matplotlib
, чтобы нарисовать 5 окружностей голубого цвета с заданными параметрами:
pythonimport 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.


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

Информатика 2132

Информатика 63

Информатика 14

Информатика 32

Информатика 19

Информатика 15

Информатика 175

Информатика 31

Информатика 48
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili