Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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


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

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

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

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

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

skype: forwardbiznes
По умолчанию

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

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

skype: forwardbiznes
По умолчанию

Так и я о том-же.
Код:
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
Репутация: 10
Хорошо Набросал, спасибо за алгоритм

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,883
Репутация: 1941
По умолчанию

Опять развилки..
Код:
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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


12:35.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru