Найти периметр и площадь треугольника, используя формулу для расстояния между двумя точками на плоскости - Turbo Pascal

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

Даны координаты трех вершин треугольника : (x1,y1,x2,y2,x3,y3 ).Найти его периметр и площадь, используя формулу для расстояния между двумя точками на плоскости. Для нахождения площади треугольника со сторонами a,b,c использоваться формулу Герона: S=(p*(p-a)*(p-b)*(p-c))^(1/2), где P=(a+b+c)/2-полупериметр Добавлено через 2 минуты
uses
  SysUtils;
 
var a,b,c,p,s,x1,y1,x2,y2,x3,y3:real;
begin
  write ('Koordinaty 1 vershyny treugolnika x1,y1=');
  read (x1,y1);
  write ('Koordinaty 2 vershyny treugolnika x2,y2=');
  read (x2,y2);
  write ('Koordinaty 3 vershyny treugolnika x3,y3=');
  read (x3,y3);
  a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
  b:=sqrt(sqr(x3-x2)+sqr(y3-y3));
  a:=sqrt(sqr(x1-x3)+sqr(y1-y3));
  p:=(a+b+c)/2;
  s:=sqrt(p*(p-a)*(p-b)*(p-c));
  writeln('Perimetr treugolnika=',a+b+c:0:1,' Ploshad treugolnika=',s:0:1);
  readln;
  readln;
end.
Запускается но когда ввожу разные значения она закрывается А когда одинаково то показывает все 0

Код к задаче: «Найти периметр и площадь треугольника, используя формулу для расстояния между двумя точками на плоскости - Turbo Pascal»

textual
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x1-x3)+sqr(y1-y3));

13   голосов, оценка 3.615 из 5


СОХРАНИТЬ ССЫЛКУ