Question

Нарисовать круг синего/красного/желтого/зеленого цвета, в зависимости от его расположения в 1-4 четвертях окна 200х200 пикселей. (В Паскале)

Answer 1

Для рисования круга разных цветов в зависимости от его расположения в 1-4 четвертях окна 200x200 пикселей на языке программирования Pascal, вы можете воспользоваться графической библиотекой, такой как Graph unit. Ниже приведен пример кода для создания окна и рисования круга в соответствии с вашими требованиями:

pascalCopy code
program DrawColoredCircle;

uses
  Graph;

var
  gd, gm: smallint;
  x, y, radius: integer;

begin
  // Инициализация графики
  gd := Detect;
  InitGraph(gd, gm, '');

  // Определите координаты центра круга и его радиус
  x := GetMaxX div 2;
  y := GetMaxY div 2;
  radius := 50; // Можете изменить радиус по вашему усмотрению

  // Проверяем, в какой четверти находится центр круга
  if (x <= GetMaxX div 2) and (y <= GetMaxY div 2) then
    SetColor(Blue) // Центр в 1-й четверти, синий цвет
  else if (x > GetMaxX div 2) and (y <= GetMaxY div 2) then
    SetColor(Red) // Центр во 2-й четверти, красный цвет
  else if (x <= GetMaxX div 2) and (y > GetMaxY div 2) then
    SetColor(Yellow) // Центр в 3-й четверти, желтый цвет
  else
    SetColor(Green); // Центр в 4-й четверти, зеленый цвет

  // Рисуем круг
  Circle(x, y, radius);
  FloodFill(x, y, GetColor);

  // Завершаем программу
  ReadLn;
  CloseGraph;
end.

Обратите внимание, что вы можете настроить радиус и цвета кругов, как вам угодно. В этом примере цвет круга определяется на основе его положения в окне, как вы описали.