Ошибка 207 в Турбо Паскале

Дим · 30.10.2016, 14:53

Всех приветствую)
Буду краток) Суть:
1. надо написать программу вычисления выражения
2. написал
3. при выполнении постоянно вылетает с ошибкой "207 ...что-то с плавающей точкой"
Помогите Христа ради)

Vladimir_S · 30.10.2016, 15:35

Цитата:

Сообщение от Дим

Помогите Христа ради)

Попробую, только прежде дайте Вашу программу в текстовом виде, а не рисунком. Чтобы её скопипастить.
И да, формулировку задачи тоже покажите.

Vladimir_S · 30.10.2016, 17:52

Ну не хотите - как хотите. Думал отладить программу, но набивать с Вашей картинки - увольте.
Ладно, чем могу.

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:34

Владимир, прошу прощения-я не не хочу, я просто отходил)

Vladimir_S · 30.10.2016, 18:41

Ага, спасибо.
Кстати, не заметил ClrScr, так что первое замечание снимается. Это команда CRT.
Теперь вопросы:
1. Где формулировка задания, т.е. сама формула для u? Хотелось бы взглянуть.
2. На каком этапе возникает ошибка? При трансляции? При запуске? После ввода x?
3. Какие значения переменной пытаетесь вводить?

Дим · 30.10.2016, 18:44

вот задание. под номером 4. б)
Моя программа работает при вводимом Х в промежутке 0<X<1

Дим · 30.10.2016, 18:45

ARCOS как-то странно написано..))

Vladimir_S · 30.10.2016, 18:46

Вдогон: вероятно, у нас некая нестыковка по офисам: я "выражения" не вижу.

Приложите в виде картинки, если не затруднит.

Дим · 30.10.2016, 18:48

вот выражение

Vladimir_S · 30.10.2016, 18:50

Цитата:

Сообщение от Дим

вот задание. под номером 4. б)

Я тоже было так подумал, взглянув на картинку в первом посте, но потом увидел, что Вы в программе та-акого накрутили, что - ух!
Поэтому решил, что формула более сложная.
Ладно, сейчас посмотрю.

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, 17:52	#3 (permalink)
Vladimir_S Специалист Регистрация: 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-xx)); 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-xx)); end; Пока так.

30.10.2016, 18:44	#6 (permalink)
Дим Member Регистрация: 26.10.2014 Сообщений: 3,179 Сказал(а) спасибо: 0 Поблагодарили 63 раз(а) в 21 сообщениях Репутация: 10229	вот задание. под номером 4. б) Моя программа работает при вводимом Х в промежутке 0<X<1 Миниатюры

30.10.2016, 18:48	#9 (permalink)
Дим Member Регистрация: 26.10.2014 Сообщений: 3,179 Сказал(а) спасибо: 0 Поблагодарили 63 раз(а) в 21 сообщениях Репутация: 10229	вот выражение Миниатюры

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

30.10.2016, 14:53
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Иногда самым эффективным в решении проблемы является прочтение схожих тем График на Турбо-Паскале Задача в турбо паскале Помогите доделать в турбо паскале 7.0

30.10.2016, 18:41	#5 (permalink)
Vladimir_S Специалист Регистрация: 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:45	#7 (permalink)
Дим Member Регистрация: 26.10.2014 Сообщений: 3,179 Сказал(а) спасибо: 0 Поблагодарили 63 раз(а) в 21 сообщениях Репутация: 10229	ARCOS как-то странно написано..))

30.10.2016, 18:46	#8 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Вдогон: вероятно, у нас некая нестыковка по офисам: я "выражения" не вижу. Приложите в виде картинки, если не затруднит.