Автор: Bronislav

Bronislav — Fri, 31 Aug 2018 13:53:32 +0000

Но лучше в модуле TaskMatrix прописать другую перегрузку процедуры FillMatrixByRandom, в которой указать параметры границ для генератора случайных чисел, скажем, k и l. Например так:

procedure FillMatrixByRandom(var a: intMatrix; m, n, k, l: integer);
var
  i, j: integer;
begin
  if k <= l then
    for i := 1 to M do
      for j := 1 to N do
        a[i, j] := Random(l - k + 1) + k//от k до l включительно, k<=l
  else
    for i := 1 to M do
      for j := 1 to N do
        a[i, j] := (-1) * Random(abs(l - k - 1)) + k;
end;

procedure FillMatrixByRandom(var a: intMatrix; m, n, k, l: integer);

var

i, j: integer;

begin

if k <= l then

for i := 1 to M do

for j := 1 to N do

a[i, j] := Random(l - k + 1) + k//от k до l включительно, k<=l

else

for i := 1 to M do

for j := 1 to N do

a[i, j] := (-1) * Random(abs(l - k - 1)) + k;

end;

Тогда при вызове процедуры FillMatrixByRandom(a,m,n,-1,1) матрица заполнится элеметнами от -1 до 1

Автор: Bronislav

Bronislav — Fri, 31 Aug 2018 12:23:51 +0000

program Matrix33;//fpc

uses TaskMatrix;

var
  a: intMatrix;
  m, n, i, j, Pozitive, Negative: integer;

begin
  m := 10;
  n := 10;
  
  FillMatrixByRandom(a, m, n, 3, 1);//a[i,j] := Random(k) - z; (k=3; z=1)
  PrintMatrix(a, m, n);
  
  j := n;
  
  while j > 0 do
  begin
    Pozitive := 0;
    Negative := 0;
    for i := 1 to m do
      if a[i, j] > 0 then Pozitive += 1
      else if a[i, j] < 0 then Negative += 1;
    if (Pozitive = Negative) and (Pozitive <> 0) then break;
    j -= 1
  end;
  
  Write(j);
  Readln;
end.

program Matrix33;//fpc

uses TaskMatrix;

var

a: intMatrix;

m, n, i, j, Pozitive, Negative: integer;

begin

m := 10;

n := 10;

FillMatrixByRandom(a, m, n, 3, 1);//a[i,j] := Random(k) - z; (k=3; z=1)

PrintMatrix(a, m, n);

j := n;

while j > 0 do

begin

Pozitive := 0;

Negative := 0;

for i := 1 to m do

if a[i, j] > 0 then Pozitive += 1

else if a[i, j] < 0 then Negative += 1;

if (Pozitive = Negative) and (Pozitive <> 0) then break;

j -= 1

end;

Write(j);

Readln;

end.

Комментарии: Решаем задачи Абрамян на Паскале. Matrix33

Автор: Bronislav

Автор: Bronislav