|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.05.2010, 18:46 | #1 |
Пользователь
Регистрация: 04.05.2010
Сообщений: 15
|
Тупоугольный треугольник
Помогите доделать задачу
Пусть даны координаты трех точек на плоскости. Если они могут быть вершинами тупоугольного треугольника, вычислите его площадь. Выведите длины сторон в порядке убывания. uses crt; function Dlina(x1,y1,x2,y2:real):real; begin Dlina:=sqrt(sqr(x1-x2)+sqr(y1-y2)); end; procedure DlinySt(a,b,c:real;var mx,mn,sr:real); begin mx:=a; if b>mx then mx:=b; if c>mx then mx:=c; mn:=a; if b<mn then mn:=b; if c<mn then mn:=c; sr:=a+b+c-mx-mn; end; function Plosh(a,b,c:real):real; var p:real; begin p:=(a+b+c)/2; Plosh:=sqrt(p*(p-a)*(p-b)*(p-c)); end; var x1,y1,x2,y2,x3,y3,a,b,c,mx,mn,sr:re al; begin clrscr; repeat writeln('Введите координаты вершин треугольника:'); writeln('1->'); readln(x1,y1); writeln('2->'); readln(x2,y2); writeln('3->'); readln(x3,y3); a:=Dlina(x1,y1,x2,y2); b:=Dlina(x1,y1,x3,y3); c:=Dlina(x3,y3,x2,y2); if (abs(a-b)>=c) or (a+b<=c) then writeln('Это не треугольник! Повторите ввод.'); until (abs(a-b)<c)and(a+b>c); DlinySt(a,b,c,mx,mn,sr); if mn*mn+sr*sr<mx*mx then begin writeln('Это тупоугольный треугольник!'); writeln('Его стороны в порядке убывания ',mx:0:2,' ',sr:0:2,' ',mn:0:2); writeln('Его площадь=',Plosh(a,b,c):0:2); end else write('Это не тупоугольный треугольник!'); readln end. Тут когда вводиш координаты тупоугольного треугольника она вылетает или пишет что это не тупогольный треугольник почемуто Помогите пожалуйста! |
04.05.2010, 19:18 | #2 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Код:
にんじゃ
Последний раз редактировалось ROMA2PVT; 04.05.2010 в 19:21. |
04.05.2010, 19:24 | #3 |
Пользователь
Регистрация: 04.05.2010
Сообщений: 15
|
КА же она работает верно если когда вводиш координаты например:
1 1 5 3 7 1 она пишет что это не тупоугольый треугольник |
04.05.2010, 19:28 | #4 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
С этими координатами выдаст что это тупоугольный треугольник.Но не как это не тупоугольый треугольник
にんじゃ
|
04.05.2010, 19:48 | #5 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Код:
にんじゃ
|
04.05.2010, 19:53 | #6 |
Пользователь
Регистрация: 04.05.2010
Сообщений: 15
|
спасибо попробую
|
04.05.2010, 20:32 | #7 |
Пользователь
Регистрация: 04.05.2010
Сообщений: 15
|
спасибо вроде всё работает
|
04.05.2010, 20:36 | #8 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Ну вот.Только и та всё прекрасно вычисляет.
にんじゃ
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Треугольник в VBA | FullmetalAlchemist | Microsoft Office Excel | 3 | 27.04.2010 13:44 |
доказать формулой(жел-но в градусах) Равнобедренный тупоугольный треугольник | ahtung | Microsoft Office Excel | 20 | 24.12.2008 11:44 |
Треугольник | serega11 | Помощь студентам | 2 | 22.05.2008 09:01 |