Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 06.05.2013, 13:28   #1 (permalink)
Alexei18
Member
 
Регистрация: 22.10.2012
Сообщений: 32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Pascal

Помогите пожалуйста, выдает ошибку, что на 0 делить нельзя, возможно я не правильно записал формулу, проверьте если не сложно...
program lab2;
var x,g,h,x1,x2,f1,f2:real;
begin
g:=0.0001;
h:=0.2;
begin
writeln('Исходная функция');
writeln('f=sqrt(ln(-1/2*ln(x))');
end;
x1:=0.4;
x2:=1.4;
writeln('x f');
repeat
x1:=(x1+x2)/2;
f1:=sqrt(ln(-1/2*ln(x)));
f2:=sqrt(ln(-1/2*ln(x)));
if((f1*f2)>0) then
x1:=x
else
x2:=x;
if (f1<=g) then
writeln(x:9:4,f1:9:4);
until abs(f1)<g;
end.
Миниатюры
aacuiyiiue.png  
Alexei18 вне форума   Ответить с цитированием

Старый 06.05.2013, 13:28
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Когда то на форуме уже создавались подобные топики

Pascal ABC
Pascal
Pascal
Pascal
Pascal ABC
Pascal

Старый 06.05.2013, 13:45   #2 (permalink)
Sashafint
Member
 
Регистрация: 31.10.2012
Сообщений: 401
Записей в дневнике: 1
Сказал(а) спасибо: 1
Поблагодарили 2 раз(а) в 1 сообщении
Репутация: 2902
По умолчанию

f1:=sqrt(ln(-1/2*ln(x)));
f2:=sqrt(ln(-1/2*ln(x)));

изначально x=0, комп не может просчитать ln(0)
Sashafint вне форума   Ответить с цитированием
Старый 06.05.2013, 17:13   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,287
Сказал(а) спасибо: 290
Поблагодарили 509 раз(а) в 167 сообщениях
Репутация: 92053
По умолчанию

Цитата:
Сообщение от Alexei18 Посмотреть сообщение
возможно я не правильно записал формулу
Да уж. Написали Вы, прямо скажем, нечто невразумительное. И откуда Вы такое взяли? Между прочим в Вашем выражении при х=1 внутренний логарифм равен нулю, а при x>1 он - положительная величина и, таким образом, результат его умножения на -0.5 отрицателен. И что же делать бедному компьютеру, если Вы пытаетесь заставить его считать логарифм от нулевой и отрицательной величины, что математика категорически запрещает? Да только и остается, что выдавать сообщения об ошибке.
Между тем, записать функцию - проще простого. По сути, как она написана, так и надо ее программировать, а не мудрить:
f = Ln(Sqr(x)) + 1.0/(2*Exp(x))
Это один из вариантов, так сказать, "лобовой". Можно и иначе, например, так:
f = 2.0*Ln(x) + Exp(-x)/2
ну и т.п.
К сожалению, помочь с отладкой программы не возьмусь: у Вас там половинное деление, а я терпеть не могу этот метод, ибо считаю его устаревшим недоразумением. Извините.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 13.05.2013, 13:18   #4 (permalink)
Alexei18
Member
 
Регистрация: 22.10.2012
Сообщений: 32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо, сейчас попробую все исправить.
Alexei18 вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 05:59.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.