Матрицы.Delphi.

[tane]

Здравствуйте,господа)Сейчас прохожу тему:«Создание программ с использованием процедур и функций»

Задание.Пользуясь функцией нахождения числа положительных элементов матрицы, найти y= z-x, где z - число положительных элементов матрицы A, х - число положительных элементов матрицы B. Считать, что матрицы имеют одинаковую размерность.

Вот просто разница матриц(архив).

Задание не слишком понятно.
1.Сначала я должен написать функцию(function():тип) нахождения числа положительных элементов матрицы?Или где ее взять,если написано "пользуясь"?
2.Вот это не ясно: "где z - число положительных элементов матрицы A, х - число положительных элементов матрицы B".Ну нашли мы "+" элементы,их отняли,а с "-" элементами что делать?

Помогите пожалуйста решить задание.

[BDA]

1) Именно написать. Просто авторы условия настаивают на вынесении этого функционала в отдельную функцию.
2) Мы ищем количество положительных элементов в одной и во второй матрицах и просто вычитаем из одного числа другое.

[tane]

Или задание тупое или я не понимаю.Нам нужно найти не положительные элементы,а их КОЛИЧЕСТВО?(например,матрица А 3х3,там 4 "-" эл-а.В матрице В - 2 отрицательных
элемента.
И мы просто делаем 4-2=2.Так я понимаю?

[BDA]

Да, так, только считаем количество не отрицательных, а положительных, если исходить из задания.

[tane]

Так мы ищем количество положительных элементов?

function TForm1.KolEL: Integer;
const n=3;
var
  a,b: array[1..n,1..n] of Real;
  kol,kol1,c, i, j:integer;
begin
 for i:=1 to n do
 for j:=1 to n do
  begin
   a[i,j]:=StrToFloat(StringGrid1.Cells[j-1,i-1]);
   b[i,j]:=StrToFloat(StringGrid2.Cells[j-1,i-1]);
   if a[i,j]>0 then kol:=kol+1;
   if b[i,j]>0 then kol1:=kol1+1;
  end;
    for i:=1 to n do
    for j:=1 to n do
   begin
     
   c:=kol-kol1;
   
    end;
    end;

[BDA]

А зачем c:=kol-kol1; в двойном цикле?
c:=kol-kol1; и есть ответ, только авторы хотели отдельную функцию для подсчета количества положительных (чтобы выработать навыки написания функций). Не забудьте инициализировать kol и kol1 нулевыми значениями.

[tane]

Т.е сама функция вот это?

function TForm1.KolEL: Integer;
const n=3;
var
  a,b: array[1..n,1..n] of Real;
  kol,kol1,c, i, j:integer;
begin
 for i:=1 to n do
 for j:=1 to n do
  begin
   a[i,j]:=StrToFloat(StringGrid1.Cells[j-1,i-1]);
   b[i,j]:=StrToFloat(StringGrid2.Cells[j-1,i-1]);
   if a[i,j]>0 then kol:=kol+1;
   if b[i,j]>0 then kol1:=kol1+1;
  end;

А как нам ее использовать для подсчета с помощью кнопки?
Напишите пожалуйста код.

[BDA]

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

const
  n = 3;
type
  mas = array [1..n, 1..n] of real;

function count_positive(const a: mas): integer;
//объявление всех нужных переменных
begin
  //здесь код подсчета
  result := 0;
end;

procedure tform1.button1click(sender: tobject);
//объявление всех нужных переменных
begin
  //заполнение массивов
  label1.caption := inttostr(count_positive(a) + count_positive(b));
end;

Это заготовка. Чуть допишите и получите рабочий код.

[tane]

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