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: Kodu kopyalamak için üzerine çift tıklayın!
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.