Добро пожаловать, гость
:: алгоритмы  и методы :: :: олимпиадные задачи :: :: связь :: :: о сайте :: :: форум ::

Форум работает в режиме архива, только для чтения и поиска.
Архив 2004 Архив 2007 Архив 2013

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 25.01.2010, 22:08
гость

 
Сообщений: n/a

Вопрос по задачке
Есть простенькая программулька:

var a,b,c, {Длины сторон}

s:real;{Буферная переменная для обмена}

begin

{ Секция ввода данных }

writeln;

write ('Введите длину 1 стороны:');

readln (a);

write ('Введите длину 2 стороны:');

readln (b);

write ('Введите длину 3 стороны:');

readln (c);

{ Сортируем стороны по неубыванию }

if (a>b) then begin

s:=a; a:=b; b:=s;

end;

if (a>c) then begin

s:=a; a:=c; c:=s;

end;

if (b>c) then begin

s:=b; b:=c; c:=s;

end;

{ Проверка и вывод }

if abs(a*a+b*b-c*c)<1e-8 then writeln

('Прямоугольный треугольник ',

'может быть построен!')

else writeln('Прямоугольный треугольник ',

'не может быть построен!')

end.
----------------------------------------------------------------
Вопрос:
Откуда вытекает abs(a*a+b*b-c*c)<1e-8 и что за значение у 1e?
Помогите новичку!
  #2  
Старый 26.01.2010, 07:24
MBo MBo вне форума
Местный

Отправить личное сообщение для MBo Посмотреть профиль Найти все сообщения от MBo
 
Регистрация: 21.09.2006
Адрес: Новосибирск
Сообщений: 1,374

>Помогите новичку!
новичку стоило бы увидеть, что темы с бессмысленными названиями закрываются
 


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

Расширенный поиск
Опции просмотра


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
вопрос гость Реализация, исходники, языки 1 10.05.2009 03:21
вопрос по сортировке Wind Of Change Сортировка и поиск 3 18.05.2008 16:41
Вопрос по деревьям seregarem Поиск и обсуждение книг/сайтов 1 09.04.2008 10:41
вопрос по БПФ SEreGA Обработка изображений, звук, графика 1 03.12.2007 11:00
Вопрос по ДСТ NepsteR Математические алгоритмы (другое) 1 21.07.2007 18:19