Решаем задачи Абрамян на Паскале. Matrix32

Matrix32. Дана целочисленная матрица размера $$M \times N$$. Найти номер первой из ее строк, содержащих равное количество положительных и отрицательных элементов (нулевые элементы матрицы не учитываются). Если таких строк нет, то вывести $$0$$.

Решение:

program Matrix32;
var
  a:array [1..10,1..10] of integer;
  Num, M, N, i, j, RezN,RezM:Integer;

begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);

 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;

 for  i:=1 to M do
  begin
   Num:=0;
   for j:=1 to N do
    if a[i,j]<>0 then Num:=Num+(a[i,j] div abs(a[i,j]));

   if Num=0 then break;
  end;
  Writeln(i);
end.

program Matrix32;

var

a:array [1..10,1..10] of integer;

Num, M, N, i, j, RezN,RezM:Integer;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to N do

begin

Write(j,' : ');

Read(a[i,j]);

end;

for i:=1 to M do

begin

Num:=0;

for j:=1 to N do

if a[i,j]<>0 then Num:=Num+(a[i,j] div abs(a[i,j]));

if Num=0 then break;

end;

Writeln(i);

end.

Тоже самое решение, но вместо обрыва цикла for через break, используется конструкция repeat..until<>;

program Matrix32;

var
  a:array [1..10,1..10] of integer;
  Num, M, N, i, j, RezN,RezM:Integer;

begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);


 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;

 i:=0;
 Repeat
  i:=i+1;
  Num:=0;
  for j:=1 to N do
   if a[i,j]<>0 then Num:=Num+(a[i,j] div abs(a[i,j]));
 Until ((i>=M) or (Num=0));

 Writeln(i);
end.

program Matrix32;

var

a:array [1..10,1..10] of integer;

Num, M, N, i, j, RezN,RezM:Integer;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to N do

begin

Write(j,' : ');

Read(a[i,j]);

end;

i:=0;

Repeat

i:=i+1;

Num:=0;

for j:=1 to N do

if a[i,j]<>0 then Num:=Num+(a[i,j] div abs(a[i,j]));

Until ((i>=M) or (Num=0));

Writeln(i);

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Комментарии 12

Денис

02.11.2018 в 10:08

В первом решении у вас не соблюдается условие в конце задания: «Если таких строк нет, то вывести 0».
В случае если строк с равным количеством отрицательных и положительных элементов не будет, ответом будет число повторения цикла.

Ответить

В этом коде, соблюдается условие в конце задачи, исправьте своё первое решение.

program matrix32;
const n=4;m=4;
var
a:array[1..n,1..m] of integer;
i,j,l,k,z:integer;
begin
randomize;
for i:=1 to n do begin
 for j:=1 to m do begin
 a[i,j]:=random(20)-10;
 write(a[i,j]:3);
 end;
 writeln;
 end;
 writeln;
 z:=0;
for i:=1 to n do begin
k:=0;
l:=0;
 for j:=1 to m do begin
 if (a[i,j]>0) and (a[i,j]<>0) then 
 l:=l+1
 else begin
 if (a[i,j]<0) and (a[i,j]<>0) then
 k:=k+1;
 end;
 end;
 if l=k then 
 break
 else if l<>k then 
z:=z+1;
end;
if z=n then writeln('0')
else
write(i);
end.

program matrix32;

const n=4;m=4;

var

a:array[1..n,1..m] of integer;

i,j,l,k,z:integer;

begin

randomize;

for i:=1 to n do begin

for j:=1 to m do begin

a[i,j]:=random(20)-10;

write(a[i,j]:3);

end;

writeln;

end;

writeln;

z:=0;

for i:=1 to n do begin

k:=0;

l:=0;

for j:=1 to m do begin

if (a[i,j]>0) and (a[i,j]<>0) then

l:=l+1

else begin

if (a[i,j]<0) and (a[i,j]<>0) then

k:=k+1;

end;

if l=k then

break

else if l<>k then

z:=z+1;

end;

if z=n then writeln('0')

else

write(i);

end.

Ответить

Bronislav

02.11.2018 в 23:38

Владелец сайта тут редко появляется. Вряд ли теперь он будет что-то менять в своем коде. Наверное у него уже другие интересы. А вот к вашему есть замечание. Если элемент больше (или меньше) нуля, то ясно, что он не равен нулю. Зачем это еще раз проверять. Строки 21 и 24. Хотя вы сами тоже не сможете ничего изменить, только попросить владельца сайта, а он ну вы поняли.

Ответить
- Anton
  
  03.11.2018 в 07:31
  
  Ну вы зря так… я читаю ваши комментарии… избавляюсь от спама … и не забиваю сайт рекламой 🙂 Но вы правы сейчас очень много всякой работы. А программирования сейчас в моей жизни вообще нет 🙁
  А для того что бы дать адекватный ответ или поправить код надо разбираться. А для этого надо выспаться. 🙂
  притом вы вышли из раздела Begin. А матрицы это сложно… там думать надо. 🙂
  К тому же можно добавить ещё один комментарий.
  А ваши решения я в итоге помещу в статьи Pascal .Net так как они используют много механизмов отличающегося от Borland Pascal.
  
  Ответить
  - Bronislav
    
    03.11.2018 в 16:40
    
    Здравствуйте, Антон. Если для вас это не трудно, добавьте на сайт функционал редактирования своего кода. И удаления тоже. Было бы замечательно.
    
    Ответить
    - Anton
      
      03.11.2018 в 17:12
      
      Дал аккаунту Bronislav права редактора.
      
      Ответить
      - Bronislav
        
        03.11.2018 в 17:41
        
        Зайти на сайт не получается, я не регистрировался. Зарегистрироваться же заново под тем же именем не получается, т.к. это имя уже зарегистрировано, почему-то. Mожет быть был еще один Bronislav, который зарегистрировался с какой-то своей другой почтой? Получить ссылку на изменение пароля тоже не могу, т.к. моя почта не указана при регистрации. Может вам дать свой email и вы перерегистрируете ник Bronislav с моей почтой, чтобы я смог получить ссылку на изменение пароля?
        
        Ответить
        
        Anton
        
        03.11.2018 в 17:47
        
        Была указана ваша почта. Удалил аккаунт попробуйте ещё раз зарегистрироваться и сменить пароль.
        
        Ответить
        
        Bronislav
        
        03.11.2018 в 18:13
        
        Наконец, получилось зарегистрироваться, долго искал письмо, почему то гугл кинул его в спам. А как здесь редактировать свой код? Пока не соображу что-то.
        
        Ответить
        
        Anton
        
        03.11.2018 в 18:17
        
        Прав небыло. Выдал заново.
        
        Ответить
        
        Bronislav
        
        03.11.2018 в 18:28
        
        Ага, кажется разобрался, попробую позже. Благодарю за доверие. =)
- Денис
  
  04.11.2018 в 15:29
  
  Спасибо за совет! Действительно, лишнее.
  
  Ответить

Решаем задачи Абрамян на Паскале. Matrix32

Комментарии:

Комментарии 12

Добавить комментарий Отменить ответ