• Дано 2 треугольника. Координаты вершин с клавиатуры В программе должно быть первая процедура, вторая функция.В процедуре должно считать стороны треугольников(по формуле нахождение сторон через координаты), всё это должно быть выражено через одну переменную!!! (не знаю в цикле это как то чтоб через одну переменную и по двум точкам находить все стороны треугольников) в функции периметры треугольников. В программе сумму периметров. Помогите плиз.

Ответы 8

  • я тоже не вижу
  • но так сказать бесмысленные требования всегда были. За это могут снизить балл.
  • это так называемая "адекватность"
  • но все равно спасибо
  • спасибо за ваше терпение
    • Автор:

      micaela
    • 6 лет назад
    • 0
  • можно конечно добавить еще процедуру которая например делает вывод длин сторон. это копипаст но лучше чем переделка существующего
    • Автор:

      contreras
    • 6 лет назад
    • 0
  • var    p: real;    a1, b1, c1: real;    a2, b2, c2: real;function SideLength(a1, a2, b1, b2: real): real;begin    SideLength := sqrt(sqr(a1 - b1) + sqr(a2 - b2));end;function Perimeter(a1, a2, b1, b2, c1, c2: real): real;var    a, b, c: real;begin    a := SideLength(a1, a2, b1, b2);    b := SideLength(c1, c2, b1, b2);    c := SideLength(a1, a2, c1, c2);    Perimeter := a + b + c;end;begin    writeln('Первый треугольник.');    readln(a1, a2, b1, b2, c1, c2);    p := Perimeter(a1, a2, b1, b2, c1, c2);        writeln('Второй треугольник.');    readln(a1, a2, b1, b2, c1, c2);        writeln(p + Perimeter(a1, a2, b1, b2, c1, c2));end.
  • Конечно, так нормальные люди не пишут, но это ради выполнения корявых требований процедуры и функции.// PascalABC.NET 3.1, сборка 1239 от 08.05.2016type  Point=record  x,y:real  end;function Len(A,B:Point):=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y));procedure Sides(A,B,C:Point; var la,lb,lc:real);begin  la:=Len(B,C); lb:=Len(A,C); lc:=Len(A,B)end;function Perim(a,b,c:real):=a+b+c;begin  var a,b,c:Point;  var l1,l2,l3:real;  for var i:=1 to 2 do begin    Writeln('Вводите парами координаты каждой  вершины треугольника;');    Read(a.x,a.y,b.x,b.y,c.x,c.y);    Sides(a,b,c,l1,l2,l3);    Writeln('Периметр треугольника ',Perim(l1,l2,l3))    endend.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years