Метод Рыбакова на СИ.

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, dr.Jekill, MOTOCoder, Medved

vitiv
Сообщения: 1
Зарегистрирован: Ср ноя 01, 2006 11:37 pm
Откуда: SPb

Метод Рыбакова на СИ.

Сообщение vitiv » Чт ноя 02, 2006 10:12 pm

Нужно написать на СИ программу. Решение нелинейных уравнений методом Рыбакова. Написал на паскале, я в нем более-менее рублю.
Нужно перелопатить на СИ.
program RUBAKOV;
uses crt;
function MR(x:real):real;
begin
MR:=sqr(sqr(x))-13*(x)+36;
end;
var p1,p2,E,x,x1,M:real;
begin
{ readln(E);
readln(p1); readln(p2); readln(M);}
E:=0.001; p1:=-4; p2:=4; M:=100;
writeln('');
while p1<p2 do
begin
x:=p1;
x1:=x+abs(MR(x)/M);
while (abs(abs(x1)-abs(x))>=(E)) and (x1<p2) do
begin
x:=x1; x1:=x+abs(MR(x)/M);
end;
if x1<=p2 then writeln(x1:10:9);
p1:=x1+1000*E;
end;
readkey;
end.
Зарание спасибо.