Написать программу, содержащую подпрограмму

[Илья16]

Написать программу, содержащую подпрограмму для расчета числа положительных элементов массива В(10,20);

[TinMan]

Попробуй вот так..
[addenium: этот код нерабочий; см. исправленный в посте №6]

function NumberOfPositive(var a: array of integer; k: integer): integer;
begin
  if k=0 then
    NumberOfPositive:= 0
  else
    NumberOfPositive:= Ord(a[k]>0) + NumberOfPositive(a,k-1)
end;

const
  n= 10;
  m= 20;
var
  b: array[1..m,1..n] of integer;

begin
  // here, insert the array input, and print it, if needed
  writeln('In this array, there are ',NumberOfPositive(b,m*n),' positive elements')
end.

Что неясно - спрашивай. Успехов.

[Serge_Bliznykov]

TinMan, ну и зачем использовать рекурсию там, где она и даром не нужна!
кроме того, это даже не скомпилируется:
массив b - двухмерный, а массив a — одномерный...

[Mad_Cat]

Type TMat = array[1..100,1..100] of integer;

function NumberOfPositive(var a: TMat;m,n: integer): integer;
var i,j:byte;
count:integer;
begin
count:=0;
for i:=1 to m do
for j:=1 to n do
   inc(count,Ord(a[i,j]>0));
NumberOfPositive:=count;
end;

 writeln('In this array, there are ',NumberOfPositive(b,m,n),' positive elements');

[Serge_Bliznykov]

Mad_Cat, не скомпилируется. Ну неужели не видно, что в описании функции массив одномерный, а передаёте в качестве фактического параметра - двухмерный?!

[TinMan]

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

TinMan, ну и зачем использовать рекурсию там, где она и даром не нужна!

Серж, главная причина для этого такова - чтоб ТС жизнь медом не казалась. В расчете, что он скопипастит, а при сдаче к нему возникнут вопросы, над которыми он должен будет задуматься.
Остальные причины:
1. так короче;
2. рекурсии многие боятся и избегают - пусть видят, что это просто;
3. постить простые циклы мне, извини, в лом..

кроме того, это даже не скомпилируется:
массив b - двухмерный, а массив a — одномерный...

Ну, что тут скажешь.. Лажанулся я, да (+1 тебе)). Всегда надо проверять.. К тому же, там была еще одна ошибка.
Вот исправленный код.

function NumberOfPositive(var a: array of integer; k: integer): integer;
begin
  if k=0 then
    NumberOfPositive:= 0
  else
    {$R-}NumberOfPositive:= Ord(a[k-1]>0) + NumberOfPositive(a,k-1){$R+}
end;

const
  m= 10;
  n= 20;
var
  b: array[1..m,1..n] of integer;
  i,j: integer;

begin
  Randomize; 
  for i:=1 to m do begin
    for j:=1 to n do begin
      b[i,j]:= Random(m*n)-m*n div 2;
      write(b[i,j]:4)
    end;
    writeln
  end;
  writeln('In this array, there are ',NumberOfPositive(b[1],m*n),' positive elements')
end.

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

[Serge_Bliznykov]

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

чтоб ТС жизнь медом не казалась

да. в этом случае, конечно, ваш код безупречен!
респект!



Mad_Cat, да. вот теперь зачёт!
Думаю, что именно ваш вариант TC выберет для копи-паста и сдачи!

[TinMan]

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

Думаю, что именно ваш вариант TC выберет для копи-паста и сдачи!

Дык ))
Серж, надеюсь, ты не думал, что я старался выиграть этот тендер.. ))

[Илья16]

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

Дык ))
Серж, надеюсь, ты не думал, что я старался выиграть этот тендер.. ))

Эта программа выдает ошибку...помогите переделать!

[Serge_Bliznykov]

Эта программа выдает ошибку...

Это плохо...

помогите переделать!

помочь? Вам? Так Вы здесь ничего не делали, как можно помочь тому, кто ничего не делает?!
кроме того, Вы с Mad_Cat и TinMan ещё за оказанную помощь не рассчитались... стыдитесь!