Тема: Pascal
Показать сообщение отдельно
Старый 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.
Изображения
 
Alexei18 вне форума   Ответить с цитированием
Ads

Яндекс

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