program soru

[janwer07]

matrisin Transpozesini ve İzni alan Delphi programı ARIYORUM YARDIMCI OLURMUSUNUZ?

[mkysoft]

Öncelikle sorunuzun başlığını değiştirin, forum kurallarına uymuyor. Öncelikle siz bir yerden başlayın, takıldığınız yerden itibaren yardım isteyin lütfen.

[qamyoncu]

+ Matrisin Transpozu: Bir matrisin satırları ile sütünlarının yer değiştirmesiyle oluşturulan matristir.

+ Eğer basit bir şekilde fonksiyon arıyorsanız buyrun:

Kod: Tümünü seç

type
dizitipi=array of array of variant;

function transpoz_al(dizi:dizitipi;satirsay,sutunsay:integer):dizitipi;
var
i,j:integer;
q,p:variant;
begin
  for i:=1 to satirsay do
    begin
      for j:=1 to sutunsay do
        begin
          if j>i then
            begin
            q:=dizi[i,j];
            p:=dizi[j,i];
            dizi[i,j]:=p;
            dizi[j,i]:=q;
            end;
        end;
    end;
result:=dizi;
end;

+Kullanımı ve sağlaması:

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
dizi1:dizitipi;
begin
setlength(dizi1,3,3);
dizi1[1,1]:='11';
dizi1[1,2]:='12';
dizi1[2,1]:='21';
dizi1[2,2]:='22';
dizi1:=transpoz_al(dizi1,2,2);
memo1.Lines.clear;
memo1.Lines.Add(dizi1[1,1]+'     '+dizi1[1,2]);
memo1.Lines.Add(dizi1[2,1]+'     '+dizi1[2,2]);
end;

+Sadece kare matrisler için geçerlidir yazdığım kod. Geliştirebilirsin.
+Program içinde matrisin hangi özelliklerine sahip olduğunu ve matrisin elemanlarını nerede nasıl sakladığını da söylersen daha iyi yardımcı olabiliriz.
+Kolay Gelsin, projenizde başarılar dilerim.

- ßatuhan -