![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 02.12.2008
Сообщений: 35
|
![]()
Дан треугольник,дана окружность с центром и радиусом.Определить окружность является вписанной,описанной в этот треугольник или находится за треугольником?
![]() ![]() ![]() |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,527
|
![]()
треугольник вписан -> вершины лежат на окружности -> проверяем 3 точки на принадлежность окружности (уравнение окружности смотри учебник геометрии)
программа — запись алгоритма на языке понятном транслятору
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 02.12.2008
Сообщений: 35
|
![]()
а как быть , если она описанна, то вершины треугольника касаются окружности. И как определить находится она внутри треугольника или за ним.
![]() |
![]() |
![]() |
![]() |
#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))
___________________________________ ____________
ВОН ВЫГНАТЬ ПРОКЛЯТЫХ СПАММЕРОВ! ![]() |
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 02.12.2008
Сообщений: 35
|
![]()
Спасибо большое!В школе проспал все уроки геометрии!
![]() |
![]() |
![]() |
![]() |
#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. И еще раз спасибо за подсказку!!! ![]() |
![]() |
![]() |
![]() |
#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. |
![]() |
![]() |
![]() |
#8 | |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
![]() Цитата:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
|
![]() |
![]() |
![]() |
#9 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
![]()
Описана ли окружность около треугольника определяется легче
точки a,b,с и centr и radius Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
![]() |
![]() |
![]() |
#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 |