| kira | Дата: Среда, 09.11.2011, 07:13 | Сообщение # 1 |
Сообщений: 3
Репутация: 0
Статус: Offline
| Напишите программу для вычисления длин сторон, углов, площади, радиусов вписанной и описанной окружностей для треугольника, заданного координатами вершин на плоскости в декартовых или полярных координатах
|
Страна: Казахстан  |
| |
| Freeman | Дата: Среда, 09.11.2011, 15:51 | Сообщение # 2 |
Сообщений: 43
Репутация: 104
Статус: Offline
| Program Kira;
var x1, y1, x2, y2, x3, y3, a,ab,bc,ca,r,rd, b, c, p, s: real;
begin
writeln('Введите A(x1, y1), B(x2, y2) и C(x3, y3):');
readln(x1, y1, x2, y2, x3, y3);
c := sqrt(sqr(y1 - y2) + sqr(x1 - x2));
a := sqrt(sqr(y2 - y3) + sqr(x2 - x3));
b := sqrt(sqr(y1 - y3) + sqr(x1 - x3));
p := (a + b + c) / 2;
s := p * sqrt((p - a) * (p - b) * (p - c));
ab:=((x2 - x1)^2+(y2-y1)^2)^(1/2);
bc:=((x3 - x2)^2+(y3-y2)^2)^(1/2);
ca:=((x1 - x3)^2+(y1-y3)^2)^(1/2);
r:=s/(2*Sqrt(3));
rd:=2*r;
writeln('Площадь треугольника = ', s);
writeln('Сторона AB = ', ab);
writeln('Сторона BC = ', bc);
writeln('Сторона CA = ', ca);
Writeln(' Радиус вписаной окружности равен ',r:3:3);
Writeln(' Радиус описаной окружности равен ',Rd:3:3);
end.
|
Страна: Беларусь  |
| |
