unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ilk: TMemo;
Button1: TButton;
son: TMemo;
Edit1: TEdit;
Edit2: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private

public

end;

var
Form1: TForm1; a,b,c:array[1..10,1..10]of real;
x,i,j,toplam:integer; d,k:real;

implementation



procedure TForm1.Button1Click(Sender: TObject);
begin
ilk.Text:=' ';
for i:=1 to strtoint(edit1.Text) do
begin
for j:=1 to strtoint(edit2.Text) do
begin
a[i,j]:=strtoint(inputbox('A matrisi',inttostr(i]','+inttostr(j]'.elemanın degeri:','1'));
ilk.Text:=ilk.Text+' '+floattostr(a[i,j]);
end;
ilk.Text:=ilk.Text+#13#10;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ilk.Text:=' ';
for i:=1 to strtoint(edit1.Text) do
for j:=1 to strtoint(edit2.Text) do
if i=j then
b[i,j]:=1
else
b[i,j]:=0;
for i:=1 to strtoint(edit1.Text) do
begin
d:=a[i,i];
for j:=1 to strtoint(edit2.Text) do
begin
a[i,j]:=a[i,j]/d;
b[i,j]:=b[i,j]/d;
end;
for x := 1 to 10 do
begin
if xi then
k:=a[x,i];
for j := 1 to 4 do
begin
a[x,j]:=a[x,j]-(a[i,j]*k);
b[x,j]:=b[x,j]-(b[i,j]*k);
end;
end;
end;
for i:=1 to strtoint(edit1.Text) do
for j:=1 to strtoint(edit2.Text) do
begin
son.Text:=son.Text+' '+floattostr(a[i,j]);
son.Text:=son.Text+#13#10 ;
end;
end;
end.

nerde yanlış yaptığımı soylerseniz sevinirim.
__________________