Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama Pascal Kare Matriste Ters Köşegendeki Elemanlar Toplamı


Kare Matriste Ters Köşegendeki Elemanlar Toplamı

Pascal programlama dilinde yazılmış bu programda kullanıcıdan alınan kare matrise ait elemanlardan ters köşegen elemanlarının ( sağ üst köşeden sol alt köşeye olan) toplamını hesaplayan bir işlem yapılmıştır.

Program Kodu:

Ör:

4

5

6

1

2

3

5

6

7

matrisi için ters köşegen elemanları toplamı 11 dir.

  1.  
  2.  
  3. uses crt;
  4. var
  5. tablo :array [1..100,1..100] of integer;
  6. i,j,m,say :integer;
  7.  
  8. procedure ters_kosegen;
  9. begin
  10. for i:=1 to m do
  11.  for j:=1 to m do
  12.   read(tablo[i,j]);
  13.  
  14. readln;
  15. say:=0;
  16. for i:=1 to m do
  17.    say:=say+tablo[i,m-i+1];
  18.  
  19.  
  20. begin
  21. clrscr;
  22. writeln('Kare matris satir sayisini giriniz.. : ');
  23. readln(m);
  24. writeln('Tablo degerlerini giriniz.. : ');
  25. ters_kosegen;
  26. writeln('Ters kosegen degerleri toplami.. : ',say);
  27. readln;
  28.  
  29.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Cuma, 03 Ağustos 2012 18:34 )