ООЧЕНЬ буду благодарна если поможите!!!

[Настена290]

"Это листинг в Делфи
Код для решения 1 уравнения:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
function f1(x1, x2: real): real;
begin
Result := x1 * sin(x1) - x2;
end;
procedure outputofresult(x1, x2, x3: Real; d: Integer);
begin
Memo1.Lines.Add('Korni uravnenia:');
Memo1.Lines.Add('x1 = ' + FloatToStr(x1));
Memo1.Lines.Add('x2 = ' + FloatToStr(x2));
Memo1.Lines.Add('Pogreshnosty priblegenia = ' + FloatToStr(x3));
Memo1.Lines.Add('');
Memo1.Lines.Add('Kolichestwo iteraziy = ' + IntToStr(d));
end;
var
d, e, x1, x2, y1, y2: real;
c, k, p: integer;
ch: char;
begin
k := 0;
e := 0.001;
begin
x1 := StrToFloat(Edit1.Text);
x2 := StrToFloat(Edit2.Text);
repeat
d := abs(y1 - x1);
if abs(y2 - x2) > d then
d := abs(y2 - x2);
outputofresult(x1, x2, d, k);
x1 := y1;
x2 := y2;
until d < e;
end;
end;

А как сделать так чтобы не для одного уравнения было расчитано, а для матрицы неизвестной?
P.S.Большое спасибо! Вы меня выручили!!

[ByAlex]

Что то я не совсем понял вопроса. Матрицы чего?

[Настена290]

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

Что то я не совсем понял вопроса. Матрицы чего?

Ну вот у меня задание : "Решение систем трансцендентных уравнений модифицированным методом итерации"...система уравнений неизвестная...мне надо в программе потом набирать....
а тот листинг для 1 уравнения...вот как сделать чтобы этот листинг был дл ясистемы кот. буду вводить?