Решение СЛАУ. Метод простой итерации

[Alexander886]

Всем привет, помогите поправить код. У меня есть рабочий код для решения СЛАУ методом простых итераций с заданной точностью, а мне нужно, чтобы программа основывалась на заданном количестве приближений к точному значению. Подскажите как это сделать, а то у меня ничего не выходит...

procedure TForm1.Button1Click(Sender: TObject);
 var A: array[1..10,1..10] of real;
x,x0,b:array[1..10] of real;
k,i,j,n:integer;
eps:real;
begin
 eps:=strtofloat(edit1.Text);
 n:=strtoint(edit2.Text);
 for i:=1 to n do
 for j:=1 to n do
 A[i,j]:= strtofloat(StringGrid1.Cells[j-1,i-1]);
 for i:=1 to n do
 b[i]:= strtofloat(StringGrid2.Cells[0,i-1]);
   for i:=1 to n do
   x[i]:=b[i];
 repeat for i:=1 to n do
 x0[i]:=x[i];
 for i:=1 to n do
 begin
 x[i]:=0;
 for j:=1 to n do
 x[i]:= x[i] + A[i,j]*x0[j];
 x[i]:=x[i]+ b[i];
 end;
 k:=0;
 for i:=1 to n do
 if (abs(x[i]-x0[i])<eps)
 then k:=k+1;
 until (k=n);
  for i:=1 to n do
  StringGrid3.Cells[0,i-1]:=floattostrf(x[i],fffixed,8,3);

end;

[Alexander886]

Может быть я не правильно сформулировал свой вопрос... Короче говоря есть код (см выше) и задание:
"Выбрать начальное приближение решения. Выполнить три приближения к точному значению методом простой итерации."
Подойдет мой код для данного задания? Если нет то, как его адаптировать?

[val_nnm]

Ну я твой код сильно не проверял, но если он правильный то нужно сделать примерно следующее

procedure TForm1.Button1Click(Sender: TObject);
 var A: array[1..10,1..10] of real;
x,x0,b:array[1..10] of real;
k,i,j,n:integer;
p:integer;
begin
  p:=strtoint(edit1.Text);
  n:=strtoint(edit2.Text);
  for i:=1 to n do
    for j:=1 to n do
      A[i,j]:= strtofloat(StringGrid1.Cells[j-1,i-1]);
  for i:=1 to n do
    b[i]:= strtofloat(StringGrid2.Cells[0,i-1]);
    for i:=1 to n do
      x[i]:=b[i];
  k := 0;
  repeat
    for i:=1 to n do
      x0[i]:=x[i];
    for i:=1 to n do
    begin
      x[i]:=0;
      for j:=1 to n do
      x[i]:= x[i] + A[i,j]*x0[j];
      x[i]:=x[i]+ b[i];
    end;
    k := k+1;
  until (k>=p);
  for i:=1 to n do
    StringGrid3.Cells[0,i-1]:=floattostrf(x[i],fffixed,8,3);
end;

[Alexander886]

val_nnm, спасибо тебе большое! Все работает!

[vitaly38]

а что такое n которое надо вводить в едит2? у меня выскакивает ошибка ''is not valid integer value чтобы я туда не ввел, целое число либо дробное...поясните пожалуйста.

[vitaly38]

подскажите!!!