Подпрограммы(Pascal)

[Niero]

Подпрограммы.

1) Вычисление суммы положительных элементов матрицы.
2) Умножить матрицы на скаляр.

[QuadroX]

program Matrix;
type
  TMatrix = array of array of Integer;
function ReadMatrix: TMatrix;
var
  N, M, I, J: Integer;
begin
  WriteLn('Введите размер матрицы NxM через пробел.');
  ReadLn(N, M);
  SetLength(Result, N, M);
  for I := 0 to High(Result) do
    for J := 0 to High(Result) do begin
      Write('a[', I, ',', J, ']=');
      ReadLn(Result[I,J]);
    end;
end;
procedure WriteMatrix(Matrix: TMatrix);
var
  I, J: Integer;
begin
WriteLn;
  for I := 0 to High(Matrix) do begin
    for J := 0 to High(Matrix) do
      Write(Matrix[I,J], ' ');
  WriteLn;
  end;
end;
function SumPol(Matrix: TMatrix): Integer;
var
  I, J: Integer;
begin
  Result := 0;
  for I := 0 to High(Matrix) do
    for J := 0 to High(Matrix) do
      if Matrix[I,J] > 0 then Result := Result + Matrix[I,J];
end;
procedure UmnNaSkalar(var Matrix: TMatrix; P: Integer);
var
  I, J: Integer;
begin
  for I := 0 to High(Matrix) do
    for J := 0 to High(Matrix) do
      Matrix[I,J] := Matrix[I,J] * P;
end;
var
  Matrica: TMatrix;
  P, Sum: Integer;
begin
  Matrica := ReadMatrix;
  WriteMatrix(Matrica);
  WriteLn;
  Write('Введите скаляр P = ');
  ReadLn(P);
  Sum := SumPol(Matrica);
  UmnNaSkalar(Matrica, P);
  WriteMatrix(Matrica);
  WriteLn;
  Write('Сумма положительных Sum = ', Sum);
end.

[Niero]

Это жэ по дэльфи?

[ОДИНОЧЕСТВО В СЕТИ]

Это жэ по дэльфи?

нет! просто массив динамический)))

[Niero]

Ано у меня в паскале никампилицо((( выдаёт несоответствие TMatrix = array of array of Integer; и насколько я помню... TMatrix это элемент борланд дэльфи

[QuadroX]

Писал действительно в Дельфи, но в консоли и соответственно в Паскале должно работать. TMatrix это не элемент Дельфи. Это просто название типа. Оно может быть любым. Почему не компилит у тебя не знаю. Паскаля у меня нет.

[Лубышев]

SetLength в паскале не прокатит... поэтому и ошибка... сделай лучше размерность фиксированной. А если динамическая то это ППЦ в паскале

[Niero]

Помогите исправить... я уже 3 часа пытаюсь понять ошибки и до меня не доходит

[dr.Chas]

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

Ано у меня в паскале никампилицо((( выдаёт несоответствие TMatrix = array of array of Integer; и насколько я помню... TMatrix это элемент борланд дэльфи

Исправь просто динамические массивы на простые.

program Matrix;
type
  TMatrix = array [1..20,1..20] of Integer;
function ReadMatrix: TMatrix;
var
  N, M, I, J: Integer;
begin
  WriteLn('Введите размер матрицы NxM через пробел.');
  ReadLn(N, M);
  for I := 1 to n do
    for J := 1 to m do begin

Поправил тебе часть остальное исправляй сам по подобию.

[Niero]

Исправь просто динамические массивы на простые.

дак это... ниумею!(