IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Kare Matriste Köşegen Üzerindeki Elemanların Toplamı

Pascal programlama dilinde yazılmış bu programda bir matrisin köşegeni üzerindeki elemanlarının toplamını bulan alt program yapılmıştır. Daha önceki derslerimizde ters köşegen üzerindeki elemanlarını da toplatmıştık.

Kod:

 

 

 

uses crt;

var

tablo :array [1..100,1..100] of integer;

i,j,m,say :integer;

 

procedure kosegen;

begin

for i:=1 to m do

 for j:=1 to m do

  read(tablo[i,j]);

 

readln;

say:=0;

for i:=1 to m do

   say:=say+tablo[i,i];

end;

 

 

begin

clrscr;

writeln('Kare matris satir sayisini giriniz.. : ');

readln(m);

writeln('Tablo degerlerini giriniz.. : ');

kosegen;

writeln('Kosegen degerleri toplami.. : ',say);

readln;

end.