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

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

Студворк — интернет-сервис помощи студентам

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
//{Решить уравнение 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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
#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 не в том формате, оно у тебя вещественное, а ты его как целое пытаешься вывести

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

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

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

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