Помочь с кодом на паскале!!

[Настена290]

Мне нужно проект в Delphi сделать....на тему "решение систем трансцендентных уравнений модифицированным методом итерации"....
Помогите пожалуйста с кодом....ООчень нужно!

[VIK_aka_TOR]

собственно какие проблемы возникли?... логика или реализация?... наработачки в студию...

[McFrey]

Настена290
"Помочь с кодом на паскале!!"
"Мне нужно проект в Delphi сделать"....эмммм
и как вас понимать?

[9i.]

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

Настена290
"Помочь с кодом на паскале!!"
"Мне нужно проект в Delphi сделать"....эмммм
и как вас понимать?

написать на С

[Настена290]

VIK_aka_TOR
помочь написать код на мою тему!!

[VIK_aka_TOR]

Сообщение от Настена290

VIK_aka_TOR
помочь написать код на мою тему!!

выкладывайте свои наработки и то что неполучается реализовать... поможем...

[Настена290]

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

выкладывайте свои наработки и то что неполучается реализовать... поможем...

В том то и дело..что у меня не правильно получилось..мне нужен новый код..(

[VIK_aka_TOR]

киньте то что получилось... попытаемся исправить...
за новым кодом... не знаю как вы тот достали... в раздел фриланса)

[Настена290]

в интернете нашла))

procedure TForm2.Button1Click(Sender: TObject);
var
n:integer;{количество переменных или количество уравнений}
i,j:integer;
A:array of array of real; {матрица коэффициентов}
b:array of real; {вектор-столбец свободных членов}
C:array of array of real; {итерационная форма матрицы А}
d:array of real; {итерационная форма вектора свободных членов}
Err:Boolean; {переменная, по значению которой после выполнения процедуры проверки}
{сходимости определяется соответствие-несоответствие условию сходимости}
X:array of real; {вектор неизвестных}
delta:real; {неизвестная сходисть}
X0:array of real;
E:array of real;
summ:real;
begin
for i:=0 to n-1 do
begin
for j:=0 to n-1 do
begin
if i=j then
C[i,j]:=0
else
C[i,j]:=-A[i,j]/A[i,j];
end;
d[i]:=b[i]/a[i,j];
end;
begin
summ:=0;
for i:=0 to n-1 do
begin
for j:=0 to n-1 do
begin
summ:=summ+C[i,j]*C[i,j];
end;
end;
if SQRT(Abs(summ))>1 then
begin
writeln('Данная система не удовлетворяет условию сходимости!');
Err:=True;
end;
Err:=False;
end;
repeat
begin
for i:=0 to n-1 do
begin
X[i]:=0;
for j:=0 to n-1 do
begin
X[i]:=X[i]+C[i,j]*X0[j];
end;
X[i]:=X[i]+d[i];
E[i]:=Abs(X[i]-X0[i]);
end;
delta:=E[0];
for i:=1 to n-1 do
begin
if delta<E[i] then delta:=E[i];
end;
X0:=Copy(x); - [Error] Unit2.pas(93): Incompatible types
end;
Until delta<=0.000001;
writeln('Решение системы равно вектору:');
end;
for i:=0 to n-1 do - [Error] Unit2.pas(98): Declaration expected but 'FOR' found
begin
Writeln(X[i]); - [Error] Unit2.pas(100): Undeclared identifier: 'X'
end; -[Error] Unit2.pas(101): '.' expected but ';' found
end.

[VIK_aka_TOR]

и что вам тут не понравилось?