Hoşgeldin, Ziyaretçi:

Üye Ol
Yeni Tema ! Yeni temamız forumumuza hayırlı olsun.Bu konuda fikirlerinizi beyan edebilirsiniz.
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi Matris Islemleri
#1
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.


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi form açılışına şifre koymak Kim-Jong 0 186 09-07-2015, Saat: 09:34
Son Yorum: Kim-Jong
  Delphi'de 100'den 0'a Geri Sayım Kim-Jong 0 218 09-07-2015, Saat: 09:33
Son Yorum: Kim-Jong
  Delphİ Hesap Makinesi Programı (Kodları) Kim-Jong 0 172 09-07-2015, Saat: 09:33
Son Yorum: Kim-Jong

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi

Türkçe Çeviri:MCTR MyBB, © 2002-2016 MyBB Group.
Desing and Coding By Mustafa SEVİM