Помогите с геометрической задачкой!

[Rid]

Дан треугольник,дана окружность с центром и радиусом.Определить окружность является вписанной,описанной в этот треугольник или находится за треугольником?

[evg_m]

треугольник вписан -> вершины лежат на окружности -> проверяем 3 точки на принадлежность окружности (уравнение окружности смотри учебник геометрии)

[Rid]

а как быть , если она описанна, то вершины треугольника касаются окружности. И как определить находится она внутри треугольника или за ним.

[sverhuVniz]

видно тебе математика не нравится
r- radiys vpisannoy
R- opisannoy
проверь если
r=(a+b-c)/2 тогда вписанная
esli R=c/2 тогда описанная.
a b c можно найти путём расстояния между 2 точками d:=sqrt(sqr(x1-x2)+sqr(y1-y2))

[Rid]

Спасибо большое!В школе проспал все уроки геометрии!

[Rid]

program treug;
uses crt;
var a,b,c,x0,x1,x2,y0,y1,y2,r,P:real;
begin clrscr;
writeln('Vvedite koordinati storoni a');
readln(x0,x1,y0,y1);
a:=Sqrt(Sqr(x0-x1)+Sqr(y0-y1));
writeln('Vvedite koordinati storoni b');
readln(x1,x2,y1,y2);
b:=Sqrt(Sqr(x1-x2)+Sqr(y1-y2));
writeln('Vvedite koordinati storoni c');
readln(x2,x0,y2,y0);
c:=Sqrt(Sqr(x2-x0)+Sqr(y2-y0));
if (a=b)and(b=c)and(c=a) then writeln('Vse storoni sovpodaut') else begin
if (a+b<=c) or (b+c<=a) or (c+a<=b) then begin
writeln('Vvedite r - radius vpisannoi okrugnosti');readln(r);
writeln('Vvedite P - radius opisannoi okrugnosti');readln(P);
if r=(a+b-c)/2 then writeln('Okrugnost vpisana') else
begin
if P=c/2 then writeln('Okrugnost opisana') else
writeln('Okrugnost za treugol')
end end
else writeln('Treugolnika nesuchestvuet');
end;
readln;
end.
И еще раз спасибо за подсказку!!!

[Rid]

program treug;
uses crt;
var a,b,c,x0,x1,x2,y0,y1,y2,r,P:real;
begin clrscr;
writeln('Vvedite koordinati storoni a');
readln(x0,x1,y0,y1);
a:=Sqrt(Sqr(x0-x1)+Sqr(y0-y1));
writeln('Vvedite koordinati storoni b');
readln(x1,x2,y1,y2);
b:=Sqrt(Sqr(x1-x2)+Sqr(y1-y2));
writeln('Vvedite koordinati storoni c');
readln(x2,x0,y2,y0);
c:=Sqrt(Sqr(x2-x0)+Sqr(y2-y0));
if (a+b<=c) or (b+c<=a) or (c+a<=b) then begin
writeln('Vvedite r - radius vpisannoi okrugnosti');readln(r);
writeln('Vvedite P - radius opisannoi okrugnosti');readln(P);
if r=(a+b-c)/2 then writeln('Okrugnost vpisana') else
begin
if P=c/2 then writeln('Okrugnost opisana') else
writeln('Okrugnost za treugol')
end end
else writeln('Treugolnika nesuchestvuet');
readln;
end.

[alex_fcsm]

Сообщение от Rid

program treug;
uses crt;
var a,b,c,x0,x1,x2,y0,y1,y2,r,P:real;
begin clrscr;
writeln('Vvedite koordinati storoni a');
readln(x0,x1,y0,y1);
a:=Sqrt(Sqr(x0-x1)+Sqr(y0-y1));
writeln('Vvedite koordinati storoni b');
readln(x1,x2,y1,y2);
b:=Sqrt(Sqr(x1-x2)+Sqr(y1-y2));
writeln('Vvedite koordinati storoni c');
readln(x2,x0,y2,y0);
c:=Sqrt(Sqr(x2-x0)+Sqr(y2-y0));
if (a+b<=c) or (b+c<=a) or (c+a<=b) then begin
writeln('Vvedite r - radius vpisannoi okrugnosti');readln(r);
writeln('Vvedite P - radius opisannoi okrugnosti');readln(P);
if r=(a+b-c)/2 then writeln('Okrugnost vpisana') else
begin
if P=c/2 then writeln('Okrugnost opisana') else
writeln('Okrugnost za treugol')
end end
else writeln('Treugolnika nesuchestvuet');
readln;
end.

Проверка на значение радиуса для вписанной окружности неверна. Представьте что у Вас окружность с центром в точке(0;0), а треугольник где-нибудь во втором квадранте. Даже если будет выполняться соотношение(Радиус вписанной в треугольник окружности равен отношению площади треугольника и его полупериметра), то это будет означать что окружность МОЖЕТ БЫТЬ вписана.

[alex_fcsm]

Описана ли окружность около треугольника определяется легче
точки a,b,с и centr и radius

if (sqrt(sqr(a.x-centr.x)+sqr(a.y-centr.y))=radius)and(sqrt(sqr(b.x-centr.x)+sqr(b.y-centr.y))=radius)and(sqrt(sqr(c.x-centr.x)+sqr(c.y-centr.y))=radius) then writeln('OP');

[Rid]

угу.Если не трудно покажите более наглядно, как в общем коде будет.Заранее спасибо!!!И как тогда вписанной!!!