Треугольник задан координатами его вершин. Вычислить периметр, площадь треугольника - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Собственно вот сама задача: Треугольник задан координатами его вершин. Вычислить периметр, площадь треугольника. Вычисление длин сторон оформить в виде процедуры А вот то решение, которое у меня получилось:
Листинг программы
  1. program p2;
  2. Var
  3. x1,y1,x2,y2,x3,y3: Integer;
  4. p,pp,s,st1,st2,st3: Real;
  5. procedure dlina (a,b,z,w:integer;var S:real);
  6. begin
  7. S:=sqrt(sqr(a-b)+sqr(z+w));
  8. end;
  9. BEGIN
  10. Writeln('Введите координаты 1 вершины: '); Readln(x1,y1);
  11. Writeln('Введите координаты 2 вершины: '); Readln(x2,y2);
  12. Writeln('Введите координаты 3 вершины: '); Readln(x3,y3);
  13. p:=st1+st2+st3;
  14. pp:=p/2;
  15. s:=Sqrt(pp*(pp-st1)*(pp-st2)*(pp-st3));
  16. Writeln('Периметр: ',p:2:2);
  17. Writeln('Площадь: ',s:2:2);
  18. Readln
  19. END.
Но что-то неверно, потому что площадь и периметр равен 0 всегда Помогите, пожалуйста, исправить ошибку

Решение задачи: «Треугольник задан координатами его вершин. Вычислить периметр, площадь треугольника»

textual
Листинг программы
  1. procedure dlina(a,b,z,w:integer;var d:real);
  2. begin
  3. d:=sqrt(sqr(a-b)+sqr(z+w));
  4. end;
  5. procedure plosh (a,b,c:real;var S:real);
  6. var p:real;
  7. begin
  8. p:=(a+b+c)/2;
  9. S:=sqrt(p*(p-a)*(p-b)*(p-c));
  10. end;
  11. Var
  12. x1,y1,x2,y2,x3,y3: Integer;
  13. a,b,c,p,s: Real;
  14. BEGIN
  15. Writeln('Введите координаты 1 вершины: '); Readln(x1,y1);
  16. Writeln('Введите координаты 2 вершины: '); Readln(x2,y2);
  17. Writeln('Введите координаты 3 вершины: '); Readln(x3,y3);
  18. dlina(x1,y1,x2,y2,a);
  19. dlina(x2,y2,x3,y3,b);
  20. dlina(x3,y3,x1,y1,c);
  21. p:=a+b+c;
  22. plosh(a,b,c,s);
  23. Writeln('Периметр: ',p:0:2);
  24. Writeln('Площадь: ',s:0:2);
  25. Readln
  26. END.

Объяснение кода листинга программы

  1. Вводятся координаты вершин треугольника.
  2. Вычисляются длины сторон треугольника по формуле расстояния между двумя точками в декартовой системе координат.
  3. Вычисляется полупериметр треугольника как сумма длин всех сторон, делённая на 2.
  4. Вычисляется площадь треугольника по формуле Герона.
  5. Выводится на экран периметр треугольника.
  6. Выводится на экран площадь треугольника.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы