Нельзя преобразовать тип function(a: integer;b: integer):integer к real

@Marksman_SwAt · Регистрация: 22.10.2013

Pascal

unit matr1;
interface
type matr2=array[1..10] of real;
     matr3=array[1..10,1..10] of real;
     procedure sum (A:matr3;var B:matr2; n:integer);
     procedure max1 (A:matr3;var B:matr2; n:integer);
     procedure schtrich (A:matr3;var B:matr2; n:integer);
implementation
procedure sum;
var i,j:integer;
s:real;
begin
for i:=1 to n do
for j:=1 to n do
s:=s+A[i,j];
end;
procedure max1;
var i,j:integer;
max:real;
begin
for i:=1 to n do
for j:=1 to n do
if A[i,j]>Max then Max:=A[i,j];
end;
procedure schtrich;
var i,j:integer;
maxs:real;
begin
 for i:=1 to n do
for j:=1 to n do
if i=j  then
if A[i,j] > Max then Max:=A[i,j];
end;
begin
end.

Ошибка со стракой "if A[i,j] > Max then Max:=A[i,j];" Нельзя преобразовать тип function(a: integer;b: integer): integer к real

Нужно было Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над матрицами:
1. Вычисление суммы элементов в строках матрицы Аnxn.
2. Нахождение наибольшего элемента в каждом столбце матрицы Аnxn.
3. Найти наибольшее из значений элементов, расположенных в заштрихованной части
Название: Безымянный.jpg
Просмотров: 655

Размер: 7.0 Кб

Название: Безымянный.jpg
Просмотров: 655

Размер: 7.0 Кб

@pahuss · 08.03.2014, 22:42

Зачем переменную max определять как real?
Далее в строке 27 надо исправить имя переменной maxs на max и тип ее сменит на integer.

@pahuss 79 / 73 / 66 Регистрация: 11.04.2013 Сообщений: 221
	08.03.2014, 22:42	2
	Зачем переменную max определять как real? Далее в строке 27 надо исправить имя переменной maxs на max и тип ее сменит на integer. 0

Опции темы