Решить уравнение x^3+8x+10=0 методом хорд и касательных

@vinternete · Регистрация: 02.11.2010

вобщем есть такая задача

Pascal

//{Решить уравнение x^3+8x+10=0 методом хорд и касательных с точностью 0,001,
 //если известно, что корень уравнения в [-2;-1] }
 
program metod;
uses crt;
function f(var x:real):real;
begin
f:= X*X*X+8*X+10;
end;
function f1(var x:real):real;
begin
f1:= 3*X*X+8; {первая производная}
end;
function f2(var x:real):real;{вторая производная}
begin
f2:= 6*X;
end;
var
a,b:real;
e,e1:real;
x0,tmp:real;
x11,x12:real;
z,x6,y:real;
begin
clrscr;
a:=-2;
b:=-1;
e:=0.001;
x0:=a;
if f(a)*f(b)>0 then writeln('a or b is incorrect')
else
 begin
  x11:=x0-f(x0)/f1(x0);
  x12:=a-((b-a)*f(a)/(f(b)-f(a)));
  e1:=(x11+x12)/2;
  while  abs(e1-x11)>e do
    begin
     a:=x11;
     b:=x12;
     x11:= a-F(a)/f1(a);
     x12:= a-((b-a)*f(a)/(f(b)-f(a)));
     e1:=(x11+x12)/2;
    end;
  writeln ('koren: ',x11:6:4)
 end;
readln
end.
 // ответ x=1.0887

не могли бы вы, если не затруднит, "перевести" ее на Си?
а то "uses crt;" ":real;" "clrscr;" крайне не знакомые выражения.

@diagon · 13.10.2011, 14:33

Сообщение от vinternete

uses crt

нужно для clrscr

Сообщение от vinternete

clrscr

очистка экрана

Сообщение от vinternete

:real

переменная с типом real(действительное число, в с это float/double)

@vinternete · 13.10.2011, 16:39 **[ТС]**

C

#include <stdio.h>
#include <math.h> 
double f(double X){
return X*X*X+8*X+10;
}
double f1(double X){
return 3*X*X+8;// {первая производная}
}
 
double f2(double X){ //{вторая производная}
return 6*X;
}
 
main()
{
double a,b;
double e,e1;
double x0,tmp;
double x11,x12;
double z,x6,y;
 
a=-2;
b=-1;
e=0.001;
x0=a;
if (f(a)*f(b)>0)
printf("a or b is incorrect");
else
{
  x11=x0-f(x0)/f1(x0);
  x12=a-((b-a)*f(a)/(f(b)-f(a)));
  e1=(x11+x12)/2;
  while  (abs(e1-x11)>e){
     a=x11;
     b=x12;
     x11= a-f(a)/f1(a);
     x12= a-((b-a)*f(a)/(f(b)-f(a)));
     e1=(x11+x12)/2;
  }
  printf("koren %d",x11);
}
 
}

вроде как переписал, но ответы не совпадают

и чт за: writeln ('koren: ',x11:6:4) ?
p.s. мог бы кто нибуть исходный код проверить на паскале?

@Dani · 13.10.2011, 16:41

Сообщение от vinternete

и чт за: writeln ('koren: ',x11:6:4) ?

вывод с отступом 6 и 4 знаками после запятой

@vinternete · 13.10.2011, 17:52 **[ТС]**

все, разобрался, спасибо

@Dani · 13.10.2011, 17:53

выводи с большей точностью =)

@aeshes · 13.10.2011, 17:54

Вот так попробуй
printf("koren %6.4f",x11);

просто ты выводишь х11 не в том формате, оно у тебя вещественное, а ты его как целое пытаешься вывести

@diagon Higher 1945 / 1211 / 120 Регистрация: 02.05.2010 Сообщений: 2,925 Записей в блоге: 2
	13.10.2011, 14:33	2
	Сообщение от vinternete uses crt нужно для clrscr Сообщение от vinternete clrscr очистка экрана Сообщение от vinternete :real переменная с типом real(действительное число, в с это float/double) 1

@Dani 1401 / 643 / 135 Регистрация: 11.08.2011 Сообщений: 2,299 Записей в блоге: 2
	13.10.2011, 16:41	4
	Сообщение от vinternete и чт за: writeln ('koren: ',x11:6:4) ? вывод с отступом 6 и 4 знаками после запятой 0

@vinternete 2 / 3 / 3 Регистрация: 02.11.2010 Сообщений: 129
	13.10.2011, 17:52 [ТС]	5
	все, разобрался, спасибо 0

@Dani 1401 / 643 / 135 Регистрация: 11.08.2011 Сообщений: 2,299 Записей в блоге: 2
	13.10.2011, 17:53	6
	выводи с большей точностью =) 0

@aeshes 446 / 209 / 21 Регистрация: 07.10.2011 Сообщений: 462
	13.10.2011, 17:54	7
	Вот так попробуй printf("koren %6.4f",x11); просто ты выводишь х11 не в том формате, оно у тебя вещественное, а ты его как целое пытаешься вывести 0

Опции темы