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

[now2]

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

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

всю программу проверять или только где L считает ?

вот этот метод как L находить что не так то во второй строчке ?

блииинн((((я уже не знаю как тут исправить все равно выдает эту N

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

[eval]

умный значит, раз словами говорит, такое не у всех и получится

[ZX Spectrum-128]

Проверил вашу программу на эталонных данных:

2.83 2.5 2.08 | 33.28
2.5 2.55 2.07 | 33.59
2.08 2.07 2.68 | 43.43
Ожидаемый результат
-1,247
1,218
16,232

Соответствующий вывод:
Ваша матрица не является симметричной и положительно определенной. И методом Холецкого систему решить нельзя.

[now2]

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

Проверил вашу программу на эталонных данных:

Соответствующий вывод:
Ваша матрица не является симметричной и положительно определенной. И методом Холецкого систему решить нельзя.

блин и что делать , что изменить то надо чтобы решилось

[ZX Spectrum-128]

Прогнал другой программой, найденной в закромах инета, тоже выбивает на ваших данных с ошибкой. На эталонных работает.
Вывод один: тот, который я озвучил выше.
Разбирайтесь с преподом. Перед разговором с ним желательно (очень) попытаться решить систему методом Холецкого вручную. И если будет таки выбивать корень квадратный из отрицательного числа, значит что-то не так с вводными данными.
Ps: если бы мне принесли доказательство того, что именно эта слау методом Холецкого не решается, зачет бы я поставил.

[now2]

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

Прогнал другой программой, найденной в закромах инета, тоже выбивает на ваших данных с ошибкой. На эталонных работает.
Вывод один: тот, который я озвучил выше.
Разбирайтесь с преподом. Перед разговором с ним желательно (очень) попытаться решить систему методом Холецкого вручную. И если будет таки выбивать корень квадратный из отрицательного числа, значит что-то не так с вводными данными.
Ps: если бы мне принесли доказательство того, что именно эта слау методом Холецкого не решается, зачет бы я поставил.

спасибо )))))

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

спасибо )))))

почему тогда эта же Слау вот этой программой решается

program kursovaya;
uses crt;
const p=10;
type mattype=array[1..p,1..p] of double;
mattype1=array[1..p] of double;
{Процедура для вывода матрицы на экран}
procedure writemat (var a:mattype; n,m:byte);
var i,j:byte;
begin
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:7:3,' ');
writeln
end;
end;
{Процедура для ввода значений элементов матрицы}
procedure inputmat (var a:mattype;var d:mattype1; var n:byte);
var i,j:byte;
begin
writeln;
write ('Введите размер матрицы = ');
readln(n);
writeln;
writeln('Введите матрицу:');
writeln;
for i:=1 to n do
for j:=1 to n do
read (a[i,j]);
writeln;
writeln('Введите свободные коэффициенты:');
writeln;
for i:=1 to n do
readln(d[i]);
writeln;
end;
{Процедура получения двух треугольных матриц, произведение которых равно исходной матрице}
procedure getBnC(var a,b,c:mattype; n:byte);
var k,i,a1,j:byte;
begin
for k:=1 to n do
for i:=1 to n do
begin
if k=i then c[k,i]:=1
else c[k,i]:=0;
b[k,i]:=0;
end;
for a1:=1 to n do
begin
if a1=1 then
begin
for i:=1 to n do
b[i,1]:=a[i,1];
for i:=2 to n do
c[1,i]:=a[1,i]/b[1,1];
end
else
begin
k:=a1;
for i:=a1 to n do
begin
b[i,k]:=a[i,k];
for j:=1 to k-1 do
b[i,k]:=b[i,k]-b[i,j]*c[j,k];
end;
i:=a1;
for k:=i+1 to n do
begin
c[i,k]:=a[i,k];
for j:=1 to i-1 do
c[i,k]:=c[i,k]-b[i,j]*c[j,k];
c[i,k]:=c[i,k]/b[i,i];
end;
end;
end;
end;
procedure otvet(var b,c:mattype; d:mattype1; n:byte);
var x,y,s:mattype1;
i,j,k:byte;
w,q:double;
y1,x1:mattype;
begin
for i:=1 to n do
if i=1 then y[i]:=d[i]/b[i,i]
else
begin
w:=0;
for k:=1 to i-1 do
begin
y1[i,k]:=w+b[i,k]*y[k];
w:=y1[i,k];
end;
y[i]:=(d[i]-w)/b[i,i];
end;
for i:=n downto 1 do
if i=n then x[i]:=y[i]
else
begin
q:=0;
for k:=i+1 to n do
begin
x1[i,k]:=q+c[i,k]*x[k];
q:=x1[i,k];
end;
x[i]:=y[i]-q;
end;
writeln;
writeln('Ответ X:');
writeln;
for i:=1 to n do
writeln('x[',i,']= ',x[i]:1:4);
writeln;
end;
{Основная программа}
var a,a1,c,b:mattype;
d:mattype1;
n:byte;
begin
clrscr;
writeln ('метод Холецкого ');
InputMat(a,d,n); {Ввод матрицы A }
getBnC(a,b,c,n);{ Получение треугольных матриц B u C}
Writeln('Матрица B: ');
writemat(b,n,n);
readln;
Writeln('Матрица C: ');
writemat(c,n,n);
otvet(b,c,d,n);
readln;
end.

вот результат

[ZX Spectrum-128]

Значит, в той программе все-таки была ошибка. А новая программа безошибочна. И вам повезло и зачет таки вы получите.

[now2]

а можно Вас попросить для первой программы Вы какую матрицу вбивали ? можете показать ?

[ZX Spectrum-128]

В 14-м сообщение эталонные данные. Да, насколько они эталонные, я не знаю
Скачаны с интернета.

[now2]

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

В 14-м сообщение эталонные данные. Да, насколько они эталонные, я не знаю
Скачаны с интернета.

спасибо ))))большое а не подскажите еще вот в эту же программиу где нужно подставить a и b описанные ниже

для этих же эталонных данных

как описать а и b ?

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

В 14-м сообщение эталонные данные. Да, насколько они эталонные, я не знаю
Скачаны с интернета.

подскажите плиз как описать а и b и в каком месте программы , даже просто подскажите в каком месте программы и что нужно выкинуть и на это место поставить описанные а и b

ааауууууууууу))))))))))))))))))))!! !!!!!!!!!где все