Решить уравнение 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 не в том формате, оно у тебя вещественное, а ты его как целое пытаешься вывести

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@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