Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272
1

Выяснить, можно ли из отрезков составить произвольный треугольник

04.02.2014, 21:49. Показов 2363. Ответов 4
Метки нет (Все метки)

Даны длины трех отрезков. Выяснить, можно ли из этих отрезков составить произвольный треугольник.
Входные данные:
Во входном потоке в первой строке записано через пробел три натуральных числа a, b и c (0 < a, b, c <= 30000)

Выходные данные:
В выходной поток вывести 'YES' или 'NO'.

Пример входного файла (input.txt):
3 4 5
Пример выходного файла (output.txt):
YES
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.02.2014, 21:49
Ответы с готовыми решениями:

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

Даны длины трех отрезков. Определить, можно ли из этих отрезков сложить треугольник
помогите ещё одну задачу)

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

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

4
4 / 4 / 4
Регистрация: 11.11.2013
Сообщений: 51
04.02.2014, 21:57 2
Как-то так...

Pascal
1
2
3
4
5
6
7
8
9
program qq;
var a, b, c: integer;
Begin
Readln (a, b, c);
If a^2+b^2=c then
Writeln ('Yes')
Else
Writeln ('no');
End.
0
Модератор
8411 / 4162 / 2876
Регистрация: 17.08.2012
Сообщений: 13,269
05.02.2014, 03:16 3
Цитата Сообщение от некит434 Посмотреть сообщение
a^2+b^2=c
Во-первых, pascal не basic. На паскале это пишется a*a+b*b=c. Ну или sqr(a)+sqr(b)=c.
Во-вторых, даже если a*a+b*b=c, то с какого перепуга? Сказано же, произвольный, а не прямоугольный, да и тогда было бы надо a*a+b*b=c*c.
Всё куда как тривиальнее. Сумма двух любых сторон треугольника всегда больше его третьей стороны. Только стороны надо все проверять. Так что пишите
Pascal
1
If (a+b>c) and (a+c>b) and (b+c>a) then
И будет Вам счастье.
0
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272
05.02.2014, 17:27  [ТС] 4
Pascal
1
2
3
4
5
6
7
8
var a, b, c: integer;
Begin
Readln (a, b, c);
If (a+b>c) and (a+c>b) and (b+c>a) then
Write('Yes')
Else
Write('NO');
End.
ВОТ ТАК ЧТО ЛИ

 Комментарий модератора 
некит434, Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Pascal следует поместить этот код в теги: [PАSCAL] - [/PАSCAL]. Это можно сделать вручную или можно выделить код и на панели редактирования сообщения нажать кнопку: "PASCAL". Не первый день на форуме, пора знать.
0
Модератор
8411 / 4162 / 2876
Регистрация: 17.08.2012
Сообщений: 13,269
07.02.2014, 02:20 5
некит434, да.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.02.2014, 02:20

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Запросить у пользователя длины 4-х отрезков. Для каждой тройки отрезков проверить, можно ли из них построить треугольник
Запросить у пользователя длины 4-х отрезков a, b, c, d. Для каждой тройки этих отрезков проверить,...

Ввести количество отрезков и их длины; найти, сколько треугольников можно составить из этих отрезков
надо написать такую программу: пользователь вводит количество отрезков и их длины, и надо найти...

Проверьте, можно ли построить треугольник из отрезков с длинами x, y, z и, если можно, то какой – остроугольный, прямоугольный или тупоугольный.
Есть 2 задачи, в которых нужна ваша помощь, многоуважаемые друзья. Вот первая: Проверьте, можно ли...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.