Question

Надеюсь, кто-нибудь поможет. Нужно составить программу, которая будет запрашивать у пользователя координаты точек и по ним строить треугольник. Нам на информатике ничего не объясняют и вообще толком не ведут. И я не могу нормально составить программу. То и дело путаюсь. Заранее, спасибо. P.S: программа должна быть написана в PascalABC.

Answer 1

uses graphabc;

var

xa,ya,xb,yb,xc,yc:integer;

begin

read(xa,ya,xb,yb,xc,yc);

line(xa,ya,xb,yb);

line(xb,yb,xc,yc);

line(xc,yc,xa,ya);

end.

Answer 2

Конечно, я могу помочь вам написать программу на PascalABC, которая будет запрашивать у пользователя координаты трех точек и строить по ним треугольник. Пример программы ниже:

pascalCopy code
program TriangleBuilder;

var
  x1, y1, x2, y2, x3, y3: real;

begin
  // Запрос координат первой точки
  Write('Введите x-координату первой точки: ');
  Readln(x1);
  Write('Введите y-координату первой точки: ');
  Readln(y1);

  // Запрос координат второй точки
  Write('Введите x-координату второй точки: ');
  Readln(x2);
  Write('Введите y-координату второй точки: ');
  Readln(y2);

  // Запрос координат третьей точки
  Write('Введите x-координату третьей точки: ');
  Readln(x3);
  Write('Введите y-координату третьей точки: ');
  Readln(y3);

  // Вывод координат точек
  Writeln('Координаты точек:');
  Writeln('Точка 1: (', x1, ', ', y1, ')');
  Writeln('Точка 2: (', x2, ', ', y2, ')');
  Writeln('Точка 3: (', x3, ', ', y3, ')');

  // Вычисление длин сторон треугольника
  var side1 := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
  var side2 := sqrt(sqr(x3 - x2) + sqr(y3 - y2));
  var side3 := sqrt(sqr(x1 - x3) + sqr(y1 - y3));

  // Проверка, является ли заданный треугольник
  // правильным, равнобедренным или обычным
  if (side1 = side2) and (side2 = side3) then
    Writeln('Треугольник равносторонний')
  else if (side1 = side2) or (side2 = side3) or (side3 = side1) then
    Writeln('Треугольник равнобедренный')
  else
    Writeln('Треугольник обычный');
end.

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