ПОМОГИТЕ С ГРАФИКОЙ В ПАСКАЛЕ, ПОЖАЛУЙСТАНарисуйте 10 окружностей различного цвета,

ПОМОГИТЕ С ГРАФИКОЙ В ПАСКАЛЕ, ПОЖАЛУЙСТА
Нарисуйте 10 окружностей различного цвета, пересекающихся в 2-х точках. Цвет областей скрещения обязан отличаться от цветов окружностей, которые эту область образуют.
Приблизительно КАК НА РИСУНКЕ

Задать свой вопрос
1 ответ
// PascalABC.NET 3.0, сборка 1128
uses
  GraphABC;
var
  i:integer;
begin
  for i:=1 to 10 do begin
    Pen.Color:=RGB(random(255),random(255),random(255));
    Brush.Style:=bsClear;
    Brush.Color:=Pen.Color;
    Circle(25+i*50,100,40);
    if igt;1 then begin
      Brush.Style:=bsSolid;
      FloodFill(50*i,100,RGB(random(255),random(255),random(255)))
      end;
    FloodFill(25+i*50,100,Pen.Color)
    end
end.

Фастыковская Лариса
можно ворос?
Василиса Таутвидис
вопрос *
Sashok Anshilevich
не дотрагивающийся этой задачки
Юлия Мерцелова
Нельзя писать в комментах что-либо, относящееся к иной задачке - это считается мусором!
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт