Question

В Паскале нарисовать в экране 300х300 пикселей рамку из сердец, радиусом 15 пикселей.

Answer 1

Ответ:

uses GraphABC;

var x:integer;

begin

SetWindowWidth(300);

SetWindowHeight(300);

x:=15;

while x<300 do

begin

circle (x,15,15);

circle (x,285,15);

circle (15,x,15);

circle (285,x,15);

x:=x+30

end;

end.

Объяснение:

Answer 2

Вот пример кода на языке Pascal, который рисует рамку из сердец на экране размером 300x300 пикселей:

pascalCopy code
program DrawHeartFrame;

uses
  Graph;

var
  gd, gm: SmallInt;

procedure DrawHeart(x, y, radius: Integer);
begin
  SetColor(Red);
  SetFillStyle(SolidFill, Red);

  // Верхняя часть сердца
  Arc(x, y - radius, 0, 180, radius);
  // Левая дуга сердца
  Arc(x - radius, y - radius, 180, 225, radius);
  // Правая дуга сердца
  Arc(x + radius, y - radius, 315, 360, radius);
  // Заполнение сердца
  FloodFill(x, y - 2 * radius + 1, Red);
end;

procedure DrawHeartFrame;
var
  x, y, radius: Integer;
begin
  // Инициализация графики
  gd := Detect;
  InitGraph(gd, gm, '');

  // Проверка на успешную инициализацию графики
  if GraphResult <> 0 then
  begin
    Writeln('Ошибка при инициализации графики: ', GraphErrorMsg(GraphResult));
    Halt(1);
  end;

  // Очистка экрана
  ClearDevice;

  // Вычисление радиуса сердец
  radius := 15;

  // Рисование рамки из сердец
  for x := radius to GetMaxX - radius do
  begin
    DrawHeart(x, radius, radius);
    DrawHeart(x, GetMaxY - radius, radius);
  end;

  for y := radius to GetMaxY - radius do
  begin
    DrawHeart(radius, y, radius);
    DrawHeart(GetMaxX - radius, y, radius);
  end;

  // Задержка перед закрытием окна
  Delay(5000);

  // Закрытие графики
  CloseGraph;
end;

begin
  DrawHeartFrame;
end.

Этот код использует графическую библиотеку для рисования на экране. Он создает окно размером 300x300 пикселей и затем рисует рамку из сердец с заданным радиусом.