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

var

Form1: TForm1;

s:integer;

implementation

{$R *.dfm}

procedure TForm1.Exit1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.New1Click(Sender: TObject);

var i,dl:integer;

prover:string;

begin

form1.Enabled:=false;

repeat

prover:=inputbox('Введитеразмерсистемы','Значениемежду 2 и 20','2');

dl:=length(prover);

if dl=0 then showmessage('Введитеразмерсистемы') else

begin

if (dl=1) and (prover<'9') and (prover>'0') then s:=trunc(strtofloat(prover))

else

begin

for i:=1 to dl do

begin

if prover[i]>'9' then

begin

showmessage('Введитечисло');

break;

end