Floating point division by zero как исправить

Ошибка во второй строке f=1/abs((x-3)**3), не пойму как её решить
Отслеживать
задан 9 июн 2015 в 16:01
Alexey Samar Alexey Samar
469 2 2 золотых знака 6 6 серебряных знаков 21 21 бронзовый знак

1 ответ 1

Сортировка: Сброс на вариант по умолчанию

У функции f(x) есть запрещённый аргумент - 3 (при нём происходит деление на 0). Именно 3 получается в c в 8-й строке, а в 10-й это c равное запретной тройке передаётся в функцию f(x) .

Отслеживать
ответ дан 9 июн 2015 в 16:12
789 5 5 серебряных знаков 11 11 бронзовых знаков

Важное на Мете

Похожие

Подписаться на ленту

Лента вопроса

Для подписки на ленту скопируйте и вставьте эту ссылку в вашу программу для чтения RSS.

Дизайн сайта / логотип © 2023 Stack Exchange Inc; пользовательские материалы лицензированы в соответствии с CC BY-SA . rev 2023.10.27.43697

Нажимая «Принять все файлы cookie» вы соглашаетесь, что Stack Exchange может хранить файлы cookie на вашем устройстве и раскрывать информацию в соответствии с нашей Политикой в отношении файлов cookie.

Ошибка "Floating point division by zero"

Добрый день!
Пожалуйста, помогите разобраться почему программа не хочет считать систему и выдает ошибку "Floating point division by zero". Считаю однотрубную систему, если меняю на двухтрубную, то расчет выдает, а в случае однотрубной системы не считает. Чем может быть вызвана данная ошибка?

#2 admin

Отправлено 09 Март 2011 - 16:34

Ольга14 (09 Март 2011 - 15:31) писал:

Пожалуйста, помогите разобраться почему программа не хочет считать систему и выдает ошибку "Floating point division by zero". Считаю однотрубную систему, если меняю на двухтрубную, то расчет выдает, а в случае однотрубной системы не считает. Чем может быть вызвана данная ошибка?

Деление на ноль.
Где-то в исходных данных закралась ошибка, Ваш расчёт приложите или вышлите нам, проверим, подскажем, научим программу конкретней сообщать о проблеме.

#3 Ольга14

Отправлено 10 Март 2011 - 09:18

admin (09 Март 2011 - 16:34) писал:

Деление на ноль.
Где-то в исходных данных закралась ошибка, Ваш расчёт приложите или вышлите нам, проверим, подскажем, научим программу конкретней сообщать о проблеме.

Спасибо за участие. Прикрепляю свой файл для просмотра.

Прикрепленные файлы

#4 admin

Отправлено 10 Март 2011 - 11:59

Ольга14 (10 Март 2011 - 09:18) писал:

Спасибо за участие. Прикрепляю свой файл для просмотра.

Нормально посчитался Ваш файл и как однотрубка и как двухтрубка. Уточните версию программы с которой Вы работаете.
И пришлите пож. ещё файлы обмена которые прикреплены к этому расчёту, может там что-то не то.

#5 Ольга14

Отправлено 10 Март 2011 - 12:18

admin (10 Март 2011 - 11:59) писал:

Нормально посчитался Ваш файл и как однотрубка и как двухтрубка. Уточните версию программы с которой Вы работаете.
И пришлите пож. ещё файлы обмена которые прикреплены к этому расчёту, может там что-то не то.

Вроде бы версия 2007 года у нас. Прикрепляю файлы обмена еще.

admin (10 Март 2011 - 11:59) писал:

Нормально посчитался Ваш файл и как однотрубка и как двухтрубка. Уточните версию программы с которой Вы работаете.
И пришлите пож. ещё файлы обмена которые прикреплены к этому расчёту, может там что-то не то.

Подскажите, пожалуйста, чтобы получить более свежию версию программы нам нужно заново ее покупать или же можно сделать обновления? Спасибо.

Прикрепленные файлы

#6 admin

Отправлено 10 Март 2011 - 15:51

Ольга14 (10 Март 2011 - 12:18) писал:

Вроде бы версия 2007 года у нас. Прикрепляю файлы обмена еще.
Подскажите, пожалуйста, чтобы получить более свежию версию программы нам нужно заново ее покупать или же можно сделать обновления? Спасибо.

Эти файлы тоже нормально просчитались, без ошибок. чуть позже попробую на версии 2007 года.
В течении года с момента покупки все обновления доступны бесплатно. По завершению года можно продлить ещё на год, Стоимость продления можно посчитать по ссылке http://www.potok.ru/?vs=2

Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 скрытых пользователей

Ответить цитируемым сообщениям Очистить

1. TEPLOOV - программный комплекс для расчёта систем отопления и вентиляции
2. → Все и всё о пакете TEPLOOV
3. → Вопросы и ответы пользователей
4. Privacy Policy

• 
• Изменить стиль
  • IP.Board
  • IP.Board (Pre 3.2)
  • IP.Board Mobile
  • light (Import)
• Отметить все сообщения прочитанными
  • Форумы
  • Пользователи
  • Отметить все как прочтенное
• Помощь

Floating point division by zero. Где ошибка?

Здравствуйте!
Мне нужно найти экстремумы функции методом поразрядного приближения (все еще нужно). Delphi выдает Floating point division by zero. Где тут ошибка?

function F1(x: real):real; begin F1:=Ln(x)/Sqrt(x); end; procedure TForm1.Result1Click(Sender: TObject); const n=10; var h,x: real; begin try eps:=StrToFloat(Trim(Edit2.Text)); //ïðåîáðàçóåì ââîä â ÷èñëî except //åñëè âîçíèêëà îøèáêà ShowMessage('Íåâåðíî çàäàíà òî÷íîñòü'); Edit2.SetFocus; Exit; end; try a:=StrToFloat(Trim(Edit3.Text)); //ïðåîáðàçóåì ââîä â ÷èñëî except //åñëè âîçíèêëà îøèáêà ShowMessage('Íåâåðíî çàäàíà íèæíÿÿ ãðàíèöà èññëåäóåìîãî èíòåðâàëà'); Edit3.SetFocus; Exit; end; try b:=StrToFloat(Trim(Edit4.Text)); //ïðåîáðàçóåì ââîä â ÷èñëî except //åñëè âîçíèêëà îøèáêà ShowMessage('Íåâåðíî çàäàíà âåðõíÿÿ ãðàíèöà èññëåäóåìîãî èíòåðâàëà'); Edit4.SetFocus; Exit; end; if a=eps do begin begin while xa) or (Xmin<>b) then begin c:=Xmin-h; d:=Xmin+h; h:=h/n; end; end; end; begin c:=a; d:=b; while h>=eps do begin begin while xF1(Xmax) then Xmax:=x; end; end; if Xmax=a then begin c:=Xmax; d:=Xmax+h; h:=h/n; end; if Xmax=b then begin c:=Xmax-h; d:=Xmax; h:=h/n; end; if (Xmin<>a) or (Xmin<>b) then begin c:=Xmax-h; d:=Xmax+h; h:=h/n; end; end; end; end; Label15.Caption:=FloatToStrF(F1(Xmin),ffFixed,7,7); Label14.Caption:=FloatToStrF(F1(Xmax),ffFixed,7,7); end;