Задача с матрицей.ОЧЕНЬ НАДО!

[alexandrovna]

С помощью функции Random сформировать двумерный массив размером n*m вещественных чисел с элементами от -30 до 30. Определить количество положительных элементов в каждом столбце матрицы. Сформировать два новых массива из 20-ти первых элементов исходного массива, деленных на max, и из 20-ти последних, деленных на max. Вывести все три массива.

[astecenko]

Смотрите правила раздела

[domovou]

uses wincrt;
 type
    mat = array [0..10,0..10] of integer;
   mat1 = array [0..10,0..10] of real;
Var   n,l:integer;
 m: mat;
    m1,m2  :mat1;

procedure MxR (var m : mat);
 Var    i,j : integer;
begin
randomize;
writeln ('Введите количество строк (столбцев) в матрице')  ;
readln  (n,l);
for i:=1 to n do
begin
     for j:=1 to l do
     m[i,j]:=random(60)-30;
end;
writeln;
end;

procedure Mx2 (var m : mat);
 Var    i,j : integer;
begin
for i:=1 to n do
begin
     for j:=1 to l do
     write (m[i,j]:3);
writeln;
end;

end;

procedure polshisla (var m : mat);
var   i,j,z : integer;
begin
z:=0;
for j:=1 to n do
    begin
         for i:=1 to l  do
             if m[i,j]>0
                then inc(z);
         writeln('pol shesel v ',j,'stolbce = ',z) ;
         z:=0;
    end;
end;

procedure soz2(var   m:mat;    m1,m2  :mat1);
var   i,j,z,max,i1,i2 : integer;
begin
max:=0;
for i:=1 to n do
    for j:=1 to l  do
          if m[i,j]>max
             then max:=m[i,j];
z:=0;

   for i:=1 to n do begin
       if z=20 then break;
       for j:=1 to l  do   begin
             m1[i,j]:=m[i,j] / max ;
             inc(z);

                        end;

                    end;



z:=0;
for i:=1 to n do         begin
 if z=20 then break;
 for j:=1 to l  do begin
 write (m1[i,j]:5:2);
 inc(z);
                         end;
 writeln;
                   end;

writeln;


 z:=0;

for i:=n downto 1 do begin
    if z=20 then break;
    for j:=l downto 1  do begin
             m2[i,j]:=m[i,j] / max ;
              inc(z);

                        end;

                      end;
z:=0;
for i:=n downto 1 do   begin
     if z=20 then break;
     for j:=l downto 1  do   begin
         write (m2[i,j]:5:2);
         inc(z);
                                end;
    writeln;
                         end;

end;

begin
MxR(m);
Mx2(m);
readln;
polshisla(m);
soz2(m , m1,m2    );
end.

[TinMan]

Похоже, Александровна и домовой нашли друг друга. Одна ставит задачу абы как, что требуется сотня уточнений, а другой ее решает абы как, чтоб типа рядом лежало.. Совет вам да любовь! ))

[Serge_Bliznykov]

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

, а другой ее решает абы как, чтоб типа рядом лежало..

угу. согласен.
Ещё вчера хотел написать об этом же!
Тут много к чему можно придраться, начиная с использования целочисленного массива вместо вещественного, отсутствия контроля за величинами N и L, путаницы с количеством строк и столбов (см. циклы в polshisla) и заканчивая тем, что формула random(60)-30 даст числа от -30 до 29).
Но потом подумал, что автор темы сама разберётся.
А, возможно, даже и так сдаст!

[domovou]

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

путаницы с количеством строк и столбов (см. циклы в polshisla)

А какая там путаница, я не понял

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

Определить количество положительных элементов в каждом столбце матрицы.

  for j:=1 to n do
    begin
         for i:=1 to l  do
             if m[i,j]>0
                then inc(z);
         writeln('pol shesel v ',j,'stolbce = ',z) ;
         z:=0;
    end;

я перебираю не по строкам(m[1,1];m[1,2];m[1,3]...m[2,1]),
а по столбцам(m[1,1];m[2,1];m[3,1]...m[1,2])

Ну написал не без огрехов

[Serge_Bliznykov]

А какая там путаница, я не понял

поясняю. когда вы заполняете массив, первый индекс (строки) изменяется от 1 до N, а второй индекс (столбцы) — от 1 до L:

writeln ('Введите количество строк (столбцев) в матрице')  ;
readln  (n,l);
for i:=1 to n do
begin
     for j:=1 to l do
     m[i,j]:=random(60)-30;
end;

а когда ищете положительные элементы, то первый индекс уже изменяется от 1 до L, а второй - от 1 до N:

for j:=1 to n do
    begin
         for i:=1 to l  do
             if m[i,j]>0
                then inc(z);
         writeln('pol shesel v ',j,'stolbce = ',z) ;
         z:=0;
    end;

это неверно, в этом и есть ваша путаница (ошибка).

да и вообще, я бы так написал эту процедурку:

procedure PologitelnyeChisla ( m : mat );
var   i, j, z : integer;
begin
  for j:=1 to l do
    begin
         z:=0;
         for i:=1 to n  do
             if m[i,j]>=0   then inc(z);
         writeln('Kolichestvo pologitelnyh chisel v ',j,' stolbce = ',z) ;
    end;
end;

Ну написал не без огрехов

ну да, не без них!


Вы лучше объясните, каким образом Вы трактовали:

Сформировать два новых массива из 20-ти первых элементов исходного массива, деленных на max, и из 20-ти последних

если у меня есть двумерный массив размером N*M - какие элементы в нём ПЕРВЫЕ ?!
1 9 8
2 7 4
3 5 4
4 6 8

выпишите отсюда пять первых элементов, пожалуйста!

[domovou]

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

поясняю. когда вы заполняете массив, первый индекс (строки) изменяется от 1 до N, а второй индекс (столбцы) — от 1 до L:

а когда ищете положительные элементы, то первый индекс уже изменяется от 1 до L, а второй - от 1 до N:

это неверно, в этом и есть ваша путаница (ошибка).

А, все понял.

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

Вы лучше объясните, каким образом Вы трактовали:

если у меня есть двумерный массив размером N*M - какие элементы в нём ПЕРВЫЕ ?!
1 9 8
2 7 4
3 5 4
4 6 8

выпишите отсюда пять первых элементов, пожалуйста!

1 9 8
2 7

[Serge_Bliznykov]

а почему Вы решили, что не по столбцам?
1 2 3 4 9 - это не первые элементы?

[domovou]

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

а почему Вы решили, что не по столбцам?

Так если "обычно" массив обрабатываем [1,1] [1,2] [1,3] ...
а потом переходим на следующею строку, вот этим я и руководвовался

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

1 2 3 4 9 - это не первые элементы?

Нет)