30.10.2016, 14:53 | #1 (permalink) |
Member
Регистрация: 26.10.2014
Сообщений: 3,179
Сказал(а) спасибо: 0
Поблагодарили 63 раз(а) в 21 сообщениях
Репутация: 10229
|
Ошибка 207 в Турбо Паскале
Буду краток) Суть: 1. надо написать программу вычисления выражения 2. написал 3. при выполнении постоянно вылетает с ошибкой "207 ...что-то с плавающей точкой" Помогите Христа ради) |
30.10.2016, 14:53 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Иногда самым эффективным в решении проблемы является прочтение схожих тем График на Турбо-Паскале Задача в турбо паскале Помогите доделать в турбо паскале 7.0 |
30.10.2016, 17:52 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну не хотите - как хотите. Думал отладить программу, но набивать с Вашей картинки - увольте.
Ладно, чем могу. 1. Покажите в Вашей программе хоть одну функцию модуля CRT. Нету? Ну так и присобачивать его ни к чему. 2. Число Pi задавать не надо: это стандартная константа (формально - функция) Паскаля. Просто используйте, где надо, идентификатор "Pi" и оно подставится само, причем с высокой точностью. Но это всё присказки (мелкие придирки) были, а вот теперь - сказка. У Вас АБСОЛЮТНО неправильно определен арксинус и не совсем корректно арккосинус. Их лучше определить в виде функций, причем порознь, памятуя о том, что, во-первых, у них разные области изменения (арксинус меняется от -π/2 до +π/2, а арккосинус - от 0 до π), во-вторых, нужно задать значения в особых точках, а в-третьих - правильно записать формулу выражения этих функций через арктангенс. Я это делаю так: Код:
function ArcSin(x:Real):Real; begin if x=1 then ArcSin:=Pi/2 else if x=-1 then ArcSin:=-Pi/2 else ArcSin:=ArcTan(x/Sqrt(1-x*x)); end; function ArcCos(x:Real):Real; begin if x=1 then ArcCos:=0 else if x=-1 then ArcCos:=Pi else ArcCos:=(Pi/2)-ArcTan(x/Sqrt(1-x*x)); end; |
30.10.2016, 18:41 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ага, спасибо.
Кстати, не заметил ClrScr, так что первое замечание снимается. Это команда CRT. Теперь вопросы: 1. Где формулировка задания, т.е. сама формула для u? Хотелось бы взглянуть. 2. На каком этапе возникает ошибка? При трансляции? При запуске? После ввода x? 3. Какие значения переменной пытаетесь вводить? |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
30.10.2016, 18:46 | #8 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Вдогон: вероятно, у нас некая нестыковка по офисам: я "выражения" не вижу.
Приложите в виде картинки, если не затруднит. |
30.10.2016, 18:50 | #10 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|