паскаль выдает ошибку

[now2]

паскаль выдает ошибку в Program1.pas(12) : Переменная цикла for должна описываться в том же блоке, что и цикл for .

Program holeckogo;
Uses crt;
const n=3;
Var
   i,j:byte;
   A,L,Lt: array[1..n,1..n] of integer;
   B,X,y: array[1..n] of integer;
{Блок ввода-вывода}
Procedure inmassA;
begin
 WriteLn('Введите элементы массива A');
  For i:=1 to N do
     For j:=1 to N do
       Begin
           Write('a[',i,',',j,']=');
           Read(A[i,j]);
       end;
end;
 Procedure inmassB;
 begin
Writeln('Введите элементы массива B');
  For i:=1 to n do
      Begin
           Write('b[',i,']=');
           ReadLn(b[i]);
       End;
  end;
Procedure Outx;
Begin
  Writeln('Результат:');
  For i:=1 to n do
      Begin
           Write('x',i,'=');
           Writeln(X[i]);
       End;
End;
{Конец блока ввода-вывода}
Begin
 ClrScr;
  inmassA;
  inmassB;
  if a[1,1]<0 then
  Begin
       for j:=1 to n do
           a[1,j]:=-a[1,j];
       b[1]:=-b[1];
  end;
 {Вычисления}
  L[1,1]:=sqrt(A[1,1]);
  Lt[1,1]:=sqrt(A[1,1]);
  L[2,1]:=A[1,2]/sqrt(A[1,1]);
  Lt[1,2]:=A[1,2]/sqrt(A[1,1]);
  L[3,1]:=A[1,3]/sqrt(A[1,1]);
  Lt[1,3]:=A[1,3]/sqrt(A[1,1]);
  L[2,2]:=sqrt(A[2,2]-L[2,1]*L[2,1]);
  Lt[2,2]:=sqrt(A[2,2]-L[2,1]*L[2,1]);
  L[3,2]:=(A[3,2]-L[2,1]*L[3,1])/L[2,2];
  Lt[2,3]:=(A[3,2]-L[2,1]*L[3,1])/L[2,2];
  L[3,3]:=sqrt(A[3,3]-L[3,1]*L[3,1]-L[3,2]*L[3,2]);
  Lt[3,3]:=sqrt(A[3,3]-L[3,1]*L[3,1]-L[3,2]*L[3,2]);
 
  y[1]:=B[1]/L[1,1];
  y[2]:=(B[2]-L[2,1]*y[1])/L[2,2];
  y[3]:=(B[3]-L[3,1]*y[1]-L[3,2]*y[2])/L[3,3];
 
  x[3]:=y[3]/Lt[3,3];
  x[2]:=(y[2]-Lt[2,3]*x[3])/Lt[2,2];
  x[1]:=(y[1]-Lt[1,2]*x[2]-Lt[1,3]*x[3])/Lt[1,1];
{Конец вычислений}
Outx;
 
End.

как описать в том же блоке что и сам цикл



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

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

паскаль выдает ошибку в Program1.pas(12) : Переменная цикла for должна описываться в том же блоке, что и цикл for .

т.е. по сообщению непонятно, в чём ошибка, да?!

...
Procedure inmassA;
var i,j : integer;
begin
 WriteLn('Введите элементы массива A');
  For i:=1 to N do
     For j:=1 to N do
       Begin
           Write('a[',i,',',j,']=');
           Read(A[i,j]);
       end;
end;
 Procedure inmassB;
var i : integer;
 begin
Writeln('Введите элементы массива B');
  For i:=1 to n do
      Begin
           Write('b[',i,']=');
           ReadLn(b[i]);
       End;
  end;
Procedure Outx;
var i : integer;
Begin
  Writeln('Результат:');
  For i:=1 to n do
      Begin
           Write('x',i,'=');
           Writeln(X[i]);
       End;
End;
...

[now2]

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

т.е. по сообщению непонятно, в чём ошибка, да?!

...
Procedure inmassA;
var i,j : integer;
begin
 WriteLn('Введите элементы массива A');
  For i:=1 to N do
     For j:=1 to N do
       Begin
           Write('a[',i,',',j,']=');
           Read(A[i,j]);
       end;
end;
 Procedure inmassB;
var i : integer;
 begin
Writeln('Введите элементы массива B');
  For i:=1 to n do
      Begin
           Write('b[',i,']=');
           ReadLn(b[i]);
       End;
  end;
Procedure Outx;
var i : integer;
Begin
  Writeln('Результат:');
  For i:=1 to n do
      Begin
           Write('x',i,'=');
           Writeln(X[i]);
       End;
End;
...

я не знаю как исправить ее (((((

[Serge_Bliznykov]

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

я не знаю как исправить ее (((((

в моём сообщении выше в коде зелененький текст большими буквами написанный видно?
Это для исправления данной ошибки!

[now2]

)))заработало спасибо большое

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

в моём сообщении выше в коде зелененький текст большими буквами написанный видно?
Это для исправления данной ошибки!

а не подскажите почему результат какие-то буквы , в чем ошибка
я там еще в Var integer заменила на real а то не работал

[ZX Spectrum-128]

Nan - переполнение. Или слишком большое, или слишком маленькое число получается. Ошибка, короче.

[now2]

Сообщение от ZX Spectrum-128

Nan - переполнение. Или слишком большое, или слишком маленькое число получается. Ошибка, короче.

а как эту ошибку исправить?

должно три корня получится

[ZX Spectrum-128]

Надо проверить на эталонных данных. Если на них ошибка, то алгоритм, либо его реализация неверны.

  L[2,2]:=sqrt(A[2,2]-L[2,1]*L[2,1]);

Вот в этой строке у вас ошибка, скорее всего корень квадратный из отрицательного числа. Проверяйте алгоритм.

[now2]

Сообщение от ZX Spectrum-128

Надо проверить на эталонных данных. Если на них ошибка, то алгоритм, либо его реализация неверны.

  L[2,2]:=sqrt(A[2,2]-L[2,1]*L[2,1]);

Вот в этой строке у вас ошибка, скорее всего корень квадратный из отрицательного числа. Проверяйте алгоритм.

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

почему во второй строчке ошибка ? здесь вроде все так

[ZX Spectrum-128]

Я трассировщиком прогнал. На этой строке программа выпадает с ошибкой. Проверяйте алгоритм (программу).