Курсовая работа: Решение системы линейных уравнений методом Гаусса и Жордана-Гаусса

{***********************************************}

for i:=1 to s do

for j:=1 to s do

begin

prover:=matrix.Cells[j,i];

k:=length(prover);

if k=0 then

begin

showmessage('Вы не ввели один или несколько элементов системы.');

exit;

end;

for l:=1 to length(prover) do

if prover[l]='.' then prover[l]:=','

else if prover[l]>'9' then

begin

showmessage('В качестве одного или нескольких элементов системы введена буква. Заменитеихначисла!');

exit;

end;

matrix.Cells[j,i]:=prover;

a[i,j]:=strtofloat(matrix.cells[j,i]);

end;

for i:=1 to s do

begin

prover:=coef.cells[1,i];

for l:=1 to length(prover) do

if prover[l]='.' then prover[l]:=','

else if prover[l]>'9' then

begin

showmessage('В качестве одного или нескольких элементов системы введена буква. Заменитеихначисла!');