Уточнить корень методом интеграций

[Сергей_PSV]

Для уравнения x^2-cos(x)=0 уточнить корень методом итераций на интервале [0..2] и для эпсилонт=10^(-4)

[tsar_]

Вот тебе решение на Delphi 7. На форму кидаешь компоненты Button и Label, вот код к форме:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const e=0.0001;
var x1,x2,en:real;
begin
 x1:=1;
 repeat
 x2:=x1;
 x1:=sqrt(cos(x1));
 en:=abs((x2-x1)/x1);
 until en<e;
 label1.Caption:=floattostr(x1)+#13+
                 floattostr(en);
end;

end.

Выводит корень и погрешность.

[Mandrivnyk]

методом интеграций

может быть, все-таки, итераций? -)

[Сергей_PSV]

Да, итераций... Мне программа для паскаля нужна

[tsar_]

Вот на Паскале:

program KORENb;
uses crt;
const e=0.0001;
var x1,x2,en: real;
begin
clrscr;
x1:=1;
repeat
 x2:=x1;
 x1:=sqrt(cos(x1));
 en:=abs((x1-x2)/x1);
until en<e;
writeln('KORENb= ', x1:3:7);
writeln('TO4NOSTb= ', en:3:7);
readln;
end.

Получилось такое: корень равен около 0,8241 при точности около 0,000045.

З.Ы. На будущее- уточняйте язык сразу.

[Сергей_PSV]

Спасибо большое