Помогите решить уравнение. Паскаль - Страница 2

AlexZir · 11.09.2013, 06:12

Это проверка ОДЗ для арккосинуса

Vladimir_S · 11.09.2013, 10:04

Цитата:

Сообщение от AlexZir

Это проверка ОДЗ для арккосинуса

Не совсем так.

Цитата:

Сообщение от Bogdanghost

а вот можете объяснить что значат эти строчки
if Round(z*10000000)=10000000 then ArcCos:=0 else if Round(z*10000000)=-10000000 then ArcCos:=Pi else

На самом деле это - некая перестраховка. В принципе, данное условие можно заменить таким:
if z=1 then ArcCos:=0 else
if z=-1 then ArcCos:=Pi else
Просто когда-то давно столкнулся с тем, что некоторые реализации Паскаля глючат на операции точного сравнения вещественных чисел по причине возможного наличия "мусора" в дальних разрядах, и с тех пор стараюсь ставить условия равенства только преобразовав формат в целочисленный. Но вообще-то это не обязательно. Можете заменить на второй вариант, тем более, что в данной задаче такие аргументы (+1, -1) вообще не возникают.

11.09.2013, 06:12	#11 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Это проверка ОДЗ для арккосинуса

11.09.2013, 06:12
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Ранее на форуме создавались темы, которые напоминают вашу Решить дифференциальное уравнение Помогите решить дифференциальное уравнение, никак не получается

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070