Question

Составьте программу которая рисует 10 окружностей разного цвета разных радиусов с одним центром

Answer 1

Uses graphabc;
var
  i, j: integer;
  ar: array[1..10]of integer;
  b: boolean;

 label l1;
 begin
  b := false;
  for i := 1 to 10 do ar[i] := random(10, 300);
  l1:
  b := false;
  for i := 1 to 10 do
     for j := 1 to 10 do if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < 10)) and (i <> j)
      then
      begin
      b := true;
      ar[i] := random(30, 300);
      end;
  if b = true then goto l1;
  window.Init(0, 0, 800, 600, clwhite);
  window.IsFixedSize := true;
  randomize;
  lockdrawing;
  pen.Width := 5;
  for i := 1 to 10 do
  begin
    pen.Color := rgb(random(0, 255), random(0, 255), random(0, 255));              drawcircle(400, 300, ar[i]);
    redraw;
end; 
end.

Answer 2

Конечно, вот пример программы на языке Python, которая рисует 10 окружностей разного цвета и разного радиуса с одним центром:

import turtle
import random

# Создаем экземпляр класса Turtle
t = turtle.Turtle()
t.speed(10)  # Задаем скорость рисования

# Задаем координаты центра окружностей
x_center = 0
y_center = 0

# Цикл для рисования 10 окружностей
for i in range(10):
    # Генерируем случайный радиус и цвет для текущей окружности
    radius = random.randint(10, 100)
    color = random.choice(['red', 'blue', 'green', 'yellow', 'purple', 'orange'])

# Задаем цвет пера для окружности
    t.pencolor(color)

# Перемещаем перо в позицию центра окружности
    t.penup()
    t.goto(x_center, y_center)
    t.pendown()

# Рисуем окружность
    t.circle(radius)

# Устанавливаем новые координаты центра для следующей окружности
    x_center += 50  # Сдвигаем центр по оси X на 50 пикселей для следующей окружности

# Закрываем окно по завершению программы
turtle.done()

Программа использует модуль `turtle` для рисования графики. В цикле происходит генерация случайных значений для радиуса и цвета окружности. Затем, используя методы модуля `turtle`, рисуется окружность с заданными параметрами, а центр смещается для следующей окружности. Код программы завершается после отрисовки 10 окружностей.

Надеюсь, данная информация полезна!