Question

Координаты для рисунка в паскале ABC исполнитель чертёжник ​

Answer 1

Відповідь:

Пояснення:

uses GraphABC;

begin

 // Встановлення графічного режиму

 SetWindowSize(800, 600); // встановлюємо розміри вікна

 SetWindowCaption('Мій рисунок'); // встановлюємо заголовок вікна

 

 // Рисуємо прямокутник

 Rectangle(X, Y, X + W, Y + H); // X, Y - координати верхнього лівого кута, W - ширина, H - висота

end.

Answer 2

Ваш запрос немного неясен, но если вы ищете пример программы на языке Pascal для построения рисунка с координатами точек A, B и C, я могу предложить вам простой пример. В Pascal нет встроенных средств для рисования, поэтому я воспользуюсь текстовым выводом для демонстрации координат. Вы можете использовать подходящую для ваших нужд библиотеку для рисования графики, если это необходимо.

Пример программы:

program DrawABC;

var
  Ax, Ay, Bx, By, Cx, Cy: Integer;

procedure DrawPoint(x, y: Integer; name: Char);
begin
  writeln('Точка ', name, ' с координатами (', x, ', ', y, ')');
end;

begin
  // Введите координаты точек A, B и C
  writeln('Введите координаты точки A:');
  write('x: '); readln(Ax);
  write('y: '); readln(Ay);

writeln('Введите координаты точки B:');
  write('x: '); readln(Bx);
  write('y: '); readln(By);

writeln('Введите координаты точки C:');
  write('x: '); readln(Cx);
  write('y: '); readln(Cy);

// Выводим координаты точек
  DrawPoint(Ax, Ay, 'A');
  DrawPoint(Bx, By, 'B');
  DrawPoint(Cx, Cy, 'C');

// Здесь можно добавить код для рисования линий между точками, если это необходимо
end.

Программа запрашивает у пользователя ввод координат точек A, B и C, а затем выводит эти координаты. Вы можете дополнить программу соответствующим кодом для рисования линий между точками или использовать библиотеку для работы с графикой, чтобы создать более визуальное представление.