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 )  
404 Not Found

Not Found

The requested URL was not found on this server.

Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.