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

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

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

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

02 ноя 2006, 22:12

Нужно написать на СИ программу. Решение нелинейных уравнений методом Рыбакова. Написал на паскале, я в нем более-менее рублю.
Нужно перелопатить на СИ.
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.
Зарание спасибо.
Ответить