Напишите программу вычисления сторон треугольника a, b, c, если треугольник задан...

Question

Напишите программу вычисления сторон треугольника a, b, c, если треугольник задан координатами своих вершин (х1:y1), (x2:y2), (x3:y3).
Длинна стороны вычисляется по формуле которую трудно написать и я прилогаю фотку (сорян за шакальное качество)

Плюс миллион вам в карму за решение и 50 очков опыта ))
только обязательно что бы программа могла считать не только A сторону...а-то воспримите буквально формулу

---

Answer 1

Var x1,y1,x2,y2,x3,y3,a,b,c:real;
begin
write('x1, y1: '); readln(x1,y1);
write('x2, y2: '); readln(x2,y2);
write('x3, y3: '); readln(x3,y3);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
writeln('a = ',a:4:2,' b = ',b:4:2,' c = ',c:4:2);
end.

Пример:
x1, y1: 1 1
x2, y2: 4 1
x3, y3: 4 5
a = 3.00 b = 4.00 c = 5.00

Comments

Спасибо большое ))) А-то до этого решил, но он только a находил

---

Пожалуйста.

---

Слушай. А что значат 4:2 в конце ?))

---

Формат вывода вещественных чисел. 4 - общее количество позиций, 2 - количество цифр в дробной части (после ".").

---

Окей, спасибо ))