Прога

[RUSSTUDENT]

Можете прогу проверить

Program Urav;
var p1,p2,h:real;
n:integer;
begin
writeln('Введите p1');
read(p1);
n:=0;
repeat
n:=n+1;
p1:=p2;
p2:=p1-(515300/(p1*p1)+ln(p1)-11.56)/((-1030600)/(p1*p1*p1)+1/p1);
h:=abs(p1-p2);
until h<0.01;
writeln(p1,' ',p2);
writeln('Кол-во итераций: n=',n);
end.

Выводит ошибку: Вещественное деление на ноль в 10 строке
Как исправить?

[VadikV]

при первом проходе p2 = 0.
дальше ты p1 = p2
и в формулер деление на (p1*p1), т.е. деление на 0

[RUSSTUDENT]

Вычисляется формулой Ньютона (касательных). p - давление.

Как сделать, чтобы первый член был 100000 (Па)

[VadikV]

может начальное значение нужно вводить в р2, а не в р1?

[RUSSTUDENT]

Возможно. А как это сделать?
Паскаль плохо знаю, через константу попробовал, не получилось.

[RUSSTUDENT]

Думаю теперь правильно

Program Urav;
var p1,p2,h:real;
n:integer;
begin
writeln('Введите p1');
read(p1);
n:=0;
p2:=100000;
repeat
n:=n+1;
p1:=p2;
p2:=p1-(515300/(p1*p1)+ln(p1)-11.56)/((-1030600)/(p1*p1*p1)+1/p1);
h:=abs(p1-p2);
until h<1;
writeln(p2);
writeln('Кол-во итераций: n=',n);
end.