програмирование в универе

[DeeEmGY]

произвольный треугольник задан декартовыми координатами своих вершин (x1 y1)(x 2y 2)(x3y3)целыми числами.определить ,можно ли в него поместить окружность радиуса R(вещественное число)


сижу на паре,срочно надо!!!

[Leshii]

Центр вписанной в треугольник окружности лежит на пересечении биссектрис внутренних углов треугольника.
В любой треугольник можно вписать окружность, и только одну.
Радиус вписанной в треугольник окружности равен отношению площади треугольника и его полупериметра: r=S/p , где S - площадь треугольника, а p=(a+b+c)/2 - полупериметр треугольника.
Теперь мне наверное надо за тебя найти три стороны, полпериметр, и через формулу герона площадь...

[DeeEmGY]

спасибо,я уже написала программу

Program lab2;
uses winCrt, strings;
var x1,x2,x3,y1,y2,y3:integer;
    a,b,c,p,st,sk,R:real;
begin
StrCopy(windowTitle, 'Nastya- v.7');
writeln('vvedite coordinates odnoy ctorony');
readln(x1,y1);
writeln('vvedite coordinates vtoroy ctorony');
readln(x2,y2);
writeln('vvedite coordinates tretyey ctorony');
readln(x3,y3);
write('vvedite radius okrughnosty R=');
readln(R);
a := sqrt( ((x2 - x1) * (x2 - x1)) + ((y2 - y1) * (y2 - y1)) );
b := sqrt( ((x3 - x2) * (x3 - x2)) + ((y3 - y2) * (y3 - y2)) );
c := sqrt( ((x1 - x3) * (x1 - x3)) + ((y1 - y3) * (y1 - y3)) );
p := (a + b + c) / 2;
st:= sqrt( p * (p - a) * (p - b) * (p - c) );
sk:= (a*b*c)/4*R;
if st<=sk then writeln('ok') else writeln('nelzya pomestit');
readln;
DoneWinCrt;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.