|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.12.2008, 14:46 | #1 |
Пользователь
Регистрация: 02.12.2008
Сообщений: 35
|
Помогите с геометрической задачкой!
Дан треугольник,дана окружность с центром и радиусом.Определить окружность является вписанной,описанной в этот треугольник или находится за треугольником?
|
04.12.2008, 18:36 | #2 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
треугольник вписан -> вершины лежат на окружности -> проверяем 3 точки на принадлежность окружности (уравнение окружности смотри учебник геометрии)
программа — запись алгоритма на языке понятном транслятору
|
04.12.2008, 21:44 | #3 |
Пользователь
Регистрация: 02.12.2008
Сообщений: 35
|
а как быть , если она описанна, то вершины треугольника касаются окружности. И как определить находится она внутри треугольника или за ним.
|
04.12.2008, 22:24 | #4 |
Пользователь
Регистрация: 24.10.2008
Сообщений: 32
|
видно тебе математика не нравится
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))
___________________________________ ____________
ВОН ВЫГНАТЬ ПРОКЛЯТЫХ СПАММЕРОВ! |
05.12.2008, 00:11 | #5 |
Пользователь
Регистрация: 02.12.2008
Сообщений: 35
|
Спасибо большое!В школе проспал все уроки геометрии!
|
05.12.2008, 16:58 | #6 |
Пользователь
Регистрация: 02.12.2008
Сообщений: 35
|
Где то так,получилось у меня
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. И еще раз спасибо за подсказку!!! |
05.12.2008, 18:28 | #7 |
Пользователь
Регистрация: 02.12.2008
Сообщений: 35
|
Немного исправленная,одна проверка не нужна!
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. |
05.12.2008, 18:36 | #8 | |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Цитата:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
|
05.12.2008, 18:39 | #9 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Описана ли окружность около треугольника определяется легче
точки a,b,с и centr и radius Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
05.12.2008, 19:48 | #10 |
Пользователь
Регистрация: 02.12.2008
Сообщений: 35
|
угу.Если не трудно покажите более наглядно, как в общем коде будет.Заранее спасибо!!!И как тогда вписанной!!!
Последний раз редактировалось Rid; 05.12.2008 в 19:50. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с задачкой | zzzzz | JavaScript, Ajax | 2 | 21.11.2008 14:17 |
Програма для вывода геометрической фигуры | Hworang | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 30.10.2007 19:42 |
Помогите с задачкой | Saniok | Помощь студентам | 4 | 29.09.2007 20:34 |
ПОМОГИТЕ С ЗАДАЧКОЙ!!!! | Solny6ko YasnoE | Помощь студентам | 6 | 22.06.2007 09:09 |
Помогите с задачкой | Sour | Помощь студентам | 9 | 08.05.2007 20:56 |