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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.03.2014, 08:15   #1
vadimmmm
Пользователь
 
Регистрация: 03.03.2014
Сообщений: 15
Восклицание Задача из e-olimp №915

Прямоугольный или нет?
Задано длины сторон треугольника. Определить, является ли этот треугольник прямоугольным.


Технические условия
Входные данные

В единственной строке задано 3 натуральных числа - длины сторон треугольника. Длины сторон не превышают 1000.

Выходные данные

Вывести "YES" (без кавычек), если треугольник прямоугольный, или "NO" (без кавычек) в противном случае.
vadimmmm вне форума Ответить с цитированием
Старый 15.03.2014, 09:01   #2
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,526
По умолчанию

спросить у Пифагора или школьника 7(если не ошибаюсь) класса.
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Старый 15.03.2014, 10:40   #3
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,543
По умолчанию

Квадрат гипотенузы, равен сумме квадратов катетов. Если это не так, треугольник не прямоугольный.
Всего, нужно сделать три проверки.
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder
Smitt&Wesson вне форума Ответить с цитированием
Старый 15.03.2014, 12:29   #4
Somebody
Участник клуба
 
Регистрация: 08.10.2007
Сообщений: 1,185
По умолчанию

Цитата:
Сообщение от Smitt&Wesson Посмотреть сообщение
Квадрат гипотенузы, равен сумме квадратов катетов. Если это не так, треугольник не прямоугольный.
Это всегда так, потому что гипотенуза и катеты есть только у прямоугольного треугольника. У произвольного - только стороны.
Somebody вне форума Ответить с цитированием
Старый 15.03.2014, 15:33   #5
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,543
По умолчанию

Так и я о том-же.
Код:
a *= a;
b *= b;
c *= c;
if(a == b+c || b == a+c || c == a+b) cout<<'Прямоугольный';
else cout<<'Не прямоугольный';
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder
Smitt&Wesson вне форума Ответить с цитированием
Старый 16.03.2014, 18:41   #6
vadimmmm
Пользователь
 
Регистрация: 03.03.2014
Сообщений: 15
Хорошо Набросал, спасибо за алгоритм

var
a,b,c,d:integer;
begin
read(a,b,c);
if ((a*a)+(b*b)=(c*c)) then writeln('YES') else
if ((a*a)+(c*c)=(b*b)) then writeln('YES') else
if ((b*b)+(c*c)=(a*a)) then writeln('YES') else
writeln('NO');


end.
vadimmmm вне форума Ответить с цитированием
Старый 16.03.2014, 21:18   #7
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Опять развилки..
Код:
uses Math;

WriteLn(min(a, b)*min(a, b) + min(b, c)*min(b, c) = max(max(a, b), c))
Или
Код:
t := min(a, b);
t1 := min(b, c); 
WriteLn(t*t+t1*t1 = Sqrt((a+b+c-t-t1)))
Poma][a вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача из e-olimp №76 vadimmmm Паскаль, Turbo Pascal, PascalABC.NET 4 15.03.2014 21:00
Задача из e-olimp №8 vadimmmm Паскаль, Turbo Pascal, PascalABC.NET 3 15.03.2014 17:37
Задача по подсчёту статистики использования букв. Другая задача - по длинной арифметике Pascal ABC kimberly Паскаль, Turbo Pascal, PascalABC.NET 3 24.12.2012 17:03
Задача на оптимальный расчет маршрута (задача в презентации) в табличном процессоре Excel Toofed Помощь студентам 0 30.11.2011 01:12
Задача минимизации дисбаланса на линии сборки (задача минимакса) LenZab Microsoft Office Excel 13 13.03.2011 22:51