Объясните пожалуйста одну функцию

@smert0406 · Регистрация: 26.03.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Помогите пожалуйста!!!

Нужно объяснить:

Почему у этой функции

Delphi

1	sum(i, n, h, mas, k);

когда я меняю k, например, на 10, то вылазит ошибка?

Delphi

1	sum(i, n, h, mas, 10);

Ошибка такая:
E2010 Incompatible types: 'f' and 'Integer'

Вот сам код:

Delphi

{$APPTYPE CONSOLE}
uses
  SysUtils,
  Windows;
 
type
  f = function (x: integer): integer;
 
var
  i, n, h: integer;
  mas: array of integer;
  o: f;
 
function k (x: integer): integer;
begin
  result := x;
end;
 
function Sum(i, n, h: integer; mas: array of integer; m: f): integer;
var
  l: integer;
begin
  l := 0;
  for i := 0 to n - 1 do
    begin
      l := l + m(mas[i]);
    end;
  writeln(l);
end;
begin
  write('Введите размер массива: ');
  readln(n);
  setlength(mas,n);
  writeln('Введите элементы массива: ');
  for i := 0 to n - 1 do
    readln(mas[i]);
  write('Сумма чисел массива равна ');
  sum(i, n, h, mas, k);
  readln;
  end.

@Puporev · 13.04.2016, 18:19

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

когда я меняю k, например, на 10

Потому что k это не число, а функция типа f и можно писать только k(имя Вашей функции)

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	13.04.2016, 18:19	2
	Сообщение от smert0406 когда я меняю k, например, на 10 Потому что k это не число, а функция типа f и можно писать только k(имя Вашей функции) 1