Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.10.2012, 20:16   #1
DENIS26RUS
Новичок
Джуниор
 
Регистрация: 24.10.2012
Сообщений: 1
По умолчанию Вид Треугольника

Определите тип треугольника (остроугольный, тупоугольный, прямоугольный) с данными сторонами.

Формат входных данных

Даны три натуральных числа – стороны треугольника.
Формат выходных данных
Необходимо вывести одно из слов: right для прямоугольного треугольника, acute для остроугольного треугольника, obtuse для тупоугольного треугольника или impossible, если входные числа не образуют треугольника.
DENIS26RUS вне форума Ответить с цитированием
Старый 24.10.2012, 20:24   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Контакты слева! WelcomE!
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 24.10.2012, 20:31   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Как это с точки зрения математики делается знаешь?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 25.10.2012, 22:02   #4
kalosha-stepa
Пользователь
 
Регистрация: 13.09.2012
Сообщений: 25
По умолчанию

ну это, если с углами, а если через стороны то скорее через теорему пифагора, как то с ней


program m;
var a,b,c: integer;
begin
writeln('введи 3 угла');
readln(a,b,c);
if (a<90) and (b<90) and (c<90)
then writeln('треугольник остроугольный');
if (a=90) or (b=90) or (c=90)
then writeln ('треугольник прямоугольный');
if (a>90) or (b>90) or (c>90)
then writeln ('треугольник тупоугольный');
end.
kalosha-stepa вне форума Ответить с цитированием
Старый 25.10.2012, 22:15   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

эта задача на форуме уже решалась.
готовое решение, например, можно взять тут
Serge_Bliznykov вне форума Ответить с цитированием
Старый 29.10.2012, 20:12   #6
Lilen
Пользователь
 
Регистрация: 04.10.2012
Сообщений: 20
По умолчанию

(1) 29.10.2012 20:12 от Lilen

Код:
Program abc;
var a,b,c:integer;
p,S:real;
begin
writeln('vvedite tri chisla', '  ');
readln(a,b,c);
p:=(a+b+c)/2;
S:=SQRT(p*(p-a)*(p-b)*(p-c));
If (a<(b+c)) and (b<(c+a)) and (c<(b+a))
   then begin writeln('treygolnik cyshestvuet'); 

If ((a<(b+c)) and (b<(c+a)) and (c<(b+a))) and
 (((c*c - a*a - b*b)/(-2*a*b)< 0) or ((a*a - c*c - b*b)/(-2*c*b) < 0)
      or ((b*b - a*a - c*c)/(-2*a*c)< 0))
        then begin writeln('treygolnik typoygolnbIii', ', ploschad treygolnika = ', S:4:3);
If ((a<(b+c)) and (b<(c+a)) and (c<(b+a))) and
 (((c*c - a*a - b*b)/(-2*a*b)> 0) or ((a*a - c*c - b*b)/(-2*c*b) > 0)
      or ((b*b - a*a - c*c)/(-2*a*c)> 0))
        then begin writeln('treygolnik щстроугольный', ', ploschad treygolnika = ', S:4:3)
end
else writeln('ne остроугольный')
end
else writeln('treygolnik NE typoygolnbIii');
end
else writeln('не существует');
readln;
end.
(2) 29.10.2012 20:12 от Lilen
не уверена, что работает правильно, условие прямоугольности вставьте сами



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

2) Не надо плодить подряд несколько коротких сообщений!
Это нарушение правил...
для того, чтобы через минуту/другую дописать сообщение,
не надо создавать ещё один новый пост.
нажимайте на предыдущем кнопку "Редактировать" ("Правка")
и дописывайте в своё сообщение, что Вы хотели добавить!

Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 29.10.2012 в 23:44.
Lilen вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дано 3 точки своими координатами х,у. Будет ли они вершинами треугольника. Если да - найти периметр и площадь треугольника Arhi555 Паскаль, Turbo Pascal, PascalABC.NET 2 11.09.2012 17:46
процедуры и функции - возможно ли построение треугольника по длинам сторон, вычисление площади треугольника по длинам сторон kazbek1 Паскаль, Turbo Pascal, PascalABC.NET 2 18.05.2012 10:38
даны три числа. Если они могут быть длинами сторон треугольника, определите его вид и найдите высоты (Паскаль) charming Помощь студентам 8 26.09.2011 20:48
Basic. Определить вид треугольника. Елена lip Помощь студентам 2 23.03.2010 16:16