Составить решение нелинейного уравнения в Delphi методом простых итераций, если задан интервал существования корня.

[broiler747]

lnx=sinx [1:3] помогите

[Аватар]

Вы не перепутали "помогите" и "сделайте за меня"?

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[broiler747]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure Button1Click(sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

 procedure TForm1.Button1Click(sender:TObject);
 var x0,x1,lam,eps:Extended;
 begin
   x0:=1.5;lam:=1;
   repeat
     begin
       x1:=x0-lam*(Ln(x0)-sin(x0));
       eps:=Abs(x0-x1);
       x0:=x1;
     end;
     until(eps<1e-10);
     Button1.Caption:=FloatToStr(x1);
     end;
end.

[Error] Unit1.pas(37): Undeclared identifier: 'Button1'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Все, что есть.

[broiler747]

Извините за дерзость.

[Sciv]

btn1: TButton;

и

Button1Click

и ещё

Button1.Caption :=

Вы чей код переделывали?

[broiler747]

Мне получается нужно заменить btn1: TButton; на Button1: TButton; и что не так с caption, Label поставить? И вы правы, т.к. я полный нуль мне приходится оптимизировать чужие работы под свою собственную, а иначе нужно было бы думать об экономии на обедах)

[Serge_Bliznykov]

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

и что не так с caption, Label поставить?

не так то, что у Вас Button1 отсутствует.
а уже выводить результат на саму кнопку или в Edit или в Label - это Вам виднее, где Вам нужно увидеть результат.

[broiler747]

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x0,x1,lam,eps:Extended;
begin
x0:=1.5;lam:=1;
repeat
begin
x1:=x0-lam*(ln(x0)-sin(x0));
eps:=Abs(x0-x1);
x0:=x1;
end;
until (eps<1e-10);
Button1.Caption:=FloatToStr(x1);
end;

end.
так наверно?