07-09-2015, 04:12 PM
Kod:
unit matris;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
ilk: TMemo;
orta: TMemo;
son: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a,b,c:array[1..10,1..10]of integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);/ilk matrisi okutmak/
var
i,j:integer;
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+' '+inttostr(a[i,j]);
end;
ilk.Text:=ilk.Text+#13#10;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);/ikinci matrisi okutmak/
var
i,j:integer;
begin
orta.Text:='';
for i:=1 to strtoint(edit1.Text) do
begin
for j:=1 to strtoint(edit2.Text) do
begin
b[i,j]:=strtoint(inputbox('B matrisi',inttostr(i)+','+inttostr(j)+'.elemanın değeri:','1'));
orta.Text:=orta.Text+' '+inttostr(b[i,j]);
end;
orta.Text:=orta.Text+#13#10
end;
end;
procedure TForm1.Button3Click(Sender: TObject);/matrislerin toplanması/
var
i,j:integer;
begin
son.Text:='';
for i:=1 to strtoint(edit1.Text) do
for j:=1 to strtoint(edit2.Text) do
c[i,j]:=a[i,j]+b[i,j];
for i:=1 to strtoint(edit1.Text) do
begin
for j:=1 to strtoint(edit2.Text) do
son.Text:=son.Text+' '+inttostr(c[i,j]);
son.Text:=son.Text+#13#10 ;
end;end;
procedure TForm1.Button4Click(Sender: TObject);/matrislerin çıkartılması/
var
i,j:integer;
begin
son.Text:='';
for i:=1 to strtoint(edit1.Text) do
for j:=1 to strtoint(edit2.Text) do
c[i,j]:=a[i,j]-b[i,j];
for i:=1 to strtoint(edit1.Text) do
begin
for j:=1 to strtoint(edit2.Text) do
son.Text:=son.Text+' '+inttostr(c[i,j]);
son.Text:=son.Text+#13#10 ;
end;end;
procedure TForm1.Button5Click(Sender: TObject);/matrislerin transpozesi/
var
i,j:integer;
begin
son.Text:='';
for i:=1 to strtoint(edit1.Text) do
for j:=1 to strtoint(edit2.Text) do
c[i,j]:=a[j,i];
for i:=1 to strtoint(edit1.Text) do
begin
for j:=1 to strtoint(edit2.Text) do
son.Text:=son.Text+' '+inttostr(c[i,j]);
son.Text:=son.Text+#13#10 ;
end;end;
procedure TForm1.Button6Click(Sender: TObject);/matrislerin izi/
var
i,j,toplam:integer;
begin
toplam:=0;
son.Text:='';
for i:=1 to strtoint(edit1.Text) do
toplam:=a[i,i]+toplam;
son.text:=inttostr(toplam);
end; End.
Temelllerini sağlam atarsan bir Dağ sağlam atamassan bir ova gibi olursun.