Найти номер столбца

[Вегуд]

Pascal

С помощью функции надо найти номер столбца с наибольшей суммой простых чисел.
Собственно, есть, так сказать, бета-версия программы.

type
  matr=array[1..100,1..100] of integer;
function prost(a:matr;m,n:integer):integer;
var
  i,j,k,s,kol,imax,max:integer;
  begin
    imax:=1;
    max:=low(integer);
    for i:=1 to n do
      begin
        s:=0;
        for j:=1 to m do
          begin
            kol:=0;
            for k:=1 to a[j,i] do
              if a[i,j] mod 2=0 then
                inc(kol);
            if kol=2 then
              s:=s+a[i,j];
          end;
        if s>max then
          begin
            max:=s;
            imax:=i;
          end;
      end;
  end;
var
  a:matr;
  i,j,m,n,max:integer;
begin
  writeln('Введите количество строк');
  readln(m);
  writeln('Введите количество столбцов');
  readln(n);
  writeln('Введите элементы');
  for i:=1 to m do
    for j:=1 to n do
      read(a[i,j]);
  writeln (' ');
  for i:=1 to m do
    begin
      for j:=1 to n do
        write(a[i,j],' ');
        writeln;
    end;
  readln;
  readln;
  if max>0 then
    writeln(prost)
  else
    writeln ('Простых чисел нет');
  readln;
end.

Не могу до конца понять, как и где нужно описывать переменные функции, чтобы всё адекватно работало. Нужен ли где-либо var перед этими переменными?

[Ybn2]

Внимательно посмотри свой код, у тебя
1) Функция prost ничего не возвращает:
2) В функцию ничего не передаеться, а описываешь ты ее как prost(a:matr;m,n:integer);
3) Сама функция ищет не правильно простые числа,

            for k:=1 to a[j,i] do
              if a[i,j] mod 2=0 then
                inc(kol);
            if kol=2 then
              s:=s+a[i,j];

4) Ты вызываешь функцию если почему то, какой то max>0, а должна?

  if max>0 then
    writeln(prost)
  else
    writeln ('Простых чисел нет');

Исправьте эти ошибки и будем тогда смотреть дальше!

[Вегуд]

Ну я вот и спрашиваю, как расставить переменные (в том числе то место, в котором функция что-либо возвращает), чтобы всё было правильно. Читал книжку, но до конца всё же не понял, как и что делается.
А разве сама часть программы, которая ищет номер столбца с наибольшей суммой простых чисел неправильна? Вроде сама по себе, без функции, правильно работает.

[Ybn2]

Сообщение от Вегуд

А разве сама часть программы, которая ищет номер столбца с наибольшей суммой простых чисел неправильна? Вроде сама по себе, без функции, правильно работает.

Я конечно не тестировал, но

  for k:=1 to a[j,i] do
              if a[i,j] mod 2=0 then
                inc(kol);

считает четные числа, а вот если бы было (даже не считает, тут k нигде не действует и kol всегда будет равен 0 или k в зависимости от четности a[i,j])

   for k:=1 to a[j,i] do
              if a[i,j] mod k=0 then
                inc(kol);

тогда простые, при условии что kol=2; (т.е делиться без остатка на 1 и на само себя).

[Вегуд]

Хм. Да, действительно. Моя большая оплошность. Хотя даже почему-то первоначально работало. Спасибо.
А можете, пожалуйста, всё-таки объяснить, как быть с переменными?

[Ybn2]

С переменными все вроде OK. Только по структуре паскаль,

var
  a:matr;
  i,j,m,n,max:integer;

должен стоять перед функцией (это же глобальные переменные)

[Ybn2]

Короче, мне сейчас некогда объяснять, я накидаю как приблизительно должно быть, а Вы тестируйте и недочеты уберем.

type
  matr=array[1..100,1..100] of integer;
var
  i,j,m,n,max:integer;
  a:Matr;
function prost(a:matr;m,n:integer):integer;
var
  i,j,k,s,kol,max:integer;
  begin
    max:=low(integer);
    for i:=1 to n do
      begin
        s:=0;
        for j:=1 to m do
          begin
            kol:=0;
            for k:=1 to a[j,i] do
              if a[i,j] mod k=0 then
                inc(kol);
            if kol=2 then
              s:=s+a[i,j];
          end;
        if s<max then
          begin
            max:=s;
            prost:=i;
          end;
      end;
  end;
begin
  writeln('Введите количество строк');
  readln(m);
  writeln('Введите количество столбцов');
  readln(n);
  writeln('Введите элементы');
  for i:=1 to m do
    for j:=1 to n do
      read(a[i,j]);
  writeln (' ');
  for i:=1 to m do
    begin
      for j:=1 to n do
        write(a[i,j],' ');
        writeln;
    end;
  readln;
  max:=prost (a,n,m)
  if max>0 then
    writeln(max)
  else
    writeln ('Простых чисел нет');
  readln;
end.

[Вегуд]

Если вводить, например, 3, 14, 5, 20 при

if s<max then

то выдаёт, что простых чисел нет.
А если заменить на

if s>max then

то всё правильно вроде бы.

[Ybn2]

Да,я тут ошибся, пробуй, тестируй, убирай баги.

[Вегуд]

Хм. Когда нет простых чисел, то не выдаёт нужное сообщение. Вот уже минут 20 сижу, не могу понять, где ошибка