подпрограмма: Дана матрица. Подсчитать количество строк, в которых элемент побочной диагонали четный

[darkshade]

помогите пжлста найти ошибку
вот условие
1. Дана матрица А(6,6). Подсчитать количество строк, в которых элемент побочной диагонали четный.работать не с одной матрицей, а с двумя А1 и А2. В основной программе предусмотреть вызовы подпрограмм к обеим матрицам

Uses crt;
Type
  mas=array [1..25,1..25]of integer;
Var
  a,b: mas;
  n:integer;
Procedure Vvod (var msv:mas;var nn:integer);
Var
i,j:integer;
Begin
 for i:=1 to nn do
 begin
 writeln;
  for j:=1 to nn do
  begin
   msv [i,j]:=random(50)-25;
   write(msv[i,j]:4);
  end;
 end; 

end;
Procedure vivod ( msv:mas; nn:integer);
Var
  i,j:integer;
Begin
  for i:=1 to nn do begin
     for j:=1 to nn do
       write (msv [i,j]:5);
       writeln;
       end;
 End;
 Function Kol (msv:mas; nn:integer):integer;
 Var
   k,i,j:integer;
 Begin
   k:=0;
    for i:=1 to nn do
      for j:=1 to nn do
        if(j=n-i+1)and (a[i,j] mod 2=0) then k:=k+1;
         Kol:=k;
end;
Begin
 clrscr;
 write('ВВедите размер матрицы А=');
 read(n);
 Vvod (a,n);
 writeln;
 

 Writeln('Количество строк с четным элементом на побочной диагонали=',Kol(a,n));
 write ('Введите размер матрицы B=');
 Read(n);
 Vvod (b,n);
 
 writeln;
 Writeln(''Количество строк с четным элементом на побочной диагонали=',Kol(b,n));
end.

___________
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)

Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

для того чтобы пройти по диагонали НЕ НУЖНО два цикла!
Нужен ОДИН цикл.
Поэтому процедура kol будет выглядеть так:

function Kol(msv: mas; nn: integer): integer;
var
  k, i : integer;
begin
  k := 0;
  for i := 1 to nn do
     if (a[i, nn - i + 1] mod 2 = 0) then k := k + 1;
  Kol := k;
end;

p.s. а ещё, будьте внимательны - старайтесь не использовать глобальные переменные внутри функций (вы используете n - а нужно использовать nn )

[darkshade]

Все равно когда я вожу размер матрицы B программа не правильно считает

[Serge_Bliznykov]

Сообщение от darkshade

Все равно когда я вожу размер матрицы B программа не правильно считает

ещё раз ваш код после всех изменений, скриншот того, что Вы вводите и что выдаёт программа.
Иначе это разговор про пустой мешок...

[darkshade]

Безымянный.jpg

Program laba6;
Uses crt;
Type
  mas=array [1..25,1..25]of integer;
Var
  a,b: mas;
  n:integer;
Procedure Vvod (var msv:mas;var nn:integer);
Var
i,j:integer;
Begin
 for i:=1 to nn do
 begin
 writeln;
  for j:=1 to nn do
  begin
   msv [i,j]:=random(50)-25;
   write(msv[i,j]:4);
  end;
 end; 

end;
Procedure vivod ( msv:mas; nn:integer);
Var
  i,j:integer;
Begin
  for i:=1 to nn do begin
     for j:=1 to nn do
       write (msv [i,j]:5);
       writeln;
       end;
 End;
 Function Kol (msv:mas; nn:integer):integer;
 Var
   k,i:integer;
  begin
  k := 0;
  for i := 1 to nn do
     if (a[i, nn - i + 1] mod 2 = 0) then k := k + 1;
  Kol := k;
end;
Begin
 clrscr;
 write('Введите размер Матрицы А=');
 read(n);
 Vvod (a,n);
 writeln;
 

 Writeln('Количество строк с четным элементом на побочной диагонали=',Kol(a,n));
 write ('Введите размер матрицы B=');
 Read(n);
 Vvod (b,n);
 
 writeln;
 Writeln('Количество строк с четным элементом на побочной диагонали=',Kol(b,n));
 end.

[BDA]

Картинку лучше загрузить на http://www.radikal.cc/, например, или другой фотохостинг, а то она, кхм, скукожилась до полной невозможности ее разобрать.

[darkshade]

http://s019.radikal.ru/i633/1304/2c/e3110cc5ac8f.png

[BDA]

Function Kol (msv:mas; nn:integer):integer;
 Var
   k,i:integer;
begin
  k := 0;
  for i := 1 to nn do
     if (msv[i, nn - i + 1] mod 2 = 0) then k := k + 1;
  Kol := k;
end;

[Serge_Bliznykov]

if (msv[i, nn - i + 1] mod 2 = 0) then k := k + 1;

BDA, точно так!
а я прозевал (и повторил ошибку TC в своём примере)! Позор на мою седую голову!

darkshade, на будущее. рекомендую ВСЕ переменные описывать ПОСЛЕ функций и процедур.
т.е. вот так:

Program laba6;
Uses crt;
Type
  mas=array [1..25,1..25]of integer;

Procedure Vvod (var msv:mas;var nn:integer);
Var
i,j:integer;
Begin
..
end;
Procedure vivod ( msv:mas; nn:integer);
Var
  i,j:integer;
Begin
..
End;
Function Kol (msv:mas; nn:integer):integer;
Var
   k,i:integer;
begin
....
end;

Var
  a,b: mas;
  n:integer;
Begin
 clrscr;
 write('Введите размер Матрицы А=');
 read(n);
 Vvod (a,n);
 writeln;
 

 Writeln('Количество строк с четным элементом на побочной диагонали=',Kol(a,n));
 write ('Введите размер матрицы B=');
 Read(n);
 Vvod (b,n);
 
 writeln;
 Writeln('Количество строк с четным элементом на побочной диагонали=',Kol(b,n));
end.

это позволит автоматически избежать ошибок и опечаток (т.е. процедура kol уже НЕ скомпилируется со строкой

if (a[i, nn - i + 1] mod 2 = 0) then

[darkshade]

спасибо большое