Question

Как сделать полукруг по горизонтали в паскале АВС?

Answer 1

program ssd;

 uses crt,graph;

 var     d,m:integer;

 begin

 clrscr;

 initgraph(d,m,'');

 arc(200,200,360,180,50);

 line(150,200,250,200);

 readkey; closegraph;

 end.

Answer 2

Для создания полукруга по горизонтали в Pascal ABC можно использовать графическую библиотеку GraphABC. Вот пример кода, который рисует полукруг:

pascalCopy code
uses GraphABC;

const
  Width = 800; // Ширина окна
  Height = 400; // Высота окна

var
  X, Y, Radius: Integer;

begin
  SetWindowSize(Width, Height); // Устанавливаем размер окна
  X := Width div 2; // Координата центра по оси X
  Y := Height div 2; // Координата центра по оси Y
  Radius := 100; // Радиус полукруга

  // Отрисовка полукруга
  for var i := X - Radius to X + Radius do
  begin
    var j := Round(Y + Sqrt(Sqr(Radius) - Sqr(i - X))); // Вычисляем координату Y
    PutPixel(i, j, clBlack); // Рисуем пиксель
  end;

  // Ожидание закрытия окна
  ReadLn;
end.

Этот код использует функцию PutPixel, чтобы рисовать каждый пиксель полукруга. Он также использует функции SetWindowSize для установки размера окна и ReadLn для ожидания закрытия окна после отрисовки.

Обратите внимание, что этот код предназначен для среды Pascal ABC с графической библиотекой GraphABC. Если вы используете другую среду разработки или компилятор Pascal, вам может потребоваться использовать другую графическую библиотеку или алгоритм отрисовки графики.