Question

Составить программу для ввода отрезка и окружности на экран. "паскаль ABC"

Answer 1

uses GraphABC;

begin

 SetPenColor(Color.Red);

 Line(15,15,230,30);

 DrawCircle(70,90,50);

end.

Answer 2

К сожалению, я не могу написать и запустить программы на вашем компьютере, так как я являюсь только текстовой моделью и не имею возможности взаимодействовать с вашим устройством.

Однако я могу предоставить вам код на языке Pascal, который позволит вам ввести данные об отрезке и окружности и отобразить их на экране. Вы можете скопировать этот код в вашу среду разработки Pascal (например, Free Pascal) и запустить его там.

pascalCopy code
program DrawSegmentAndCircle;

uses
  Crt, Graph;

var
  gd, gm: Integer;
  x1, y1, x2, y2: Integer;
  centerX, centerY, radius: Integer;

procedure DrawSegment(x1, y1, x2, y2: Integer);
begin
  Line(x1, y1, x2, y2);
end;

procedure DrawCircle(centerX, centerY, radius: Integer);
begin
  Circle(centerX, centerY, radius);
end;

begin
  WriteLn('Enter the coordinates of the segment (x1 y1 x2 y2):');
  ReadLn(x1, y1, x2, y2);

  WriteLn('Enter the coordinates of the circle center and its radius (centerX centerY radius):');
  ReadLn(centerX, centerY, radius);

  gd := Detect;
  InitGraph(gd, gm, '');

  DrawSegment(x1, y1, x2, y2);
  DrawCircle(centerX, centerY, radius);

  ReadLn;
  CloseGraph;
end.

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