Вставка строки в двумерном массиве Опции

[mugler02]

Прошу помочь разобраться с решением задачи:

В двумерном массиве вставить перед всеми строками, первый элемент которых делится на 3, строку из нулей.

Заранее спасибо.

[Lapp]

В двумерном массиве вставить перед всеми строками, первый элемент которых делится на 3, строку из нулей.

Как-то вот так:

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

...
begin
  ...
  for i:=m downto 1 do
    if a[i,1] mod 3=0 then begin
      for j:=m-1 downto i do a[j+1]:=a[j];
      for j:=1 to n do a[i,j]:=0
    end;

Только ты имей в виду, что, поскольку строки сдвигаются при вставке, то последние исчезают.

[mugler02]

Спасибо.

[mugler02]

Ещё вот такая задачка:
В двумерном массиве удалить столбец, в котором находится первый четный отрицательный элемент.
Как я понимаю,

Код

…
k:=0;
for j:=1 to n do
begin
  for i:=1 to m do
  if (a[i,j]<0)and (a[i,j]) mod 2 <> 0 then{если отрицательный и нечетный}
        k:=j;{запоминаем номер столбца}
end;
if k=0 then write('В матрице нет отрицательных нечетных элементов')
else
begin
  writeln('Номер первого столбца с нечетным отрицательным элементом=',k);
  for i:=1 to m do{всем элементы всех строк}
  for j:=k to n-1 do{от номера столбца до предпоследнего}
  a[i,j]:=a[i,j+1];{присваиваем значение следующего}
  n:=n-1;{уменьшаем количество столбцов}
end;
writeln('Удаление столбца:');
…

Как думаете, верно?

Сообщение отредактировано: mugler02 - 26.12.2010 23:50

[Lapp]

Ещё вот такая задачка:
В двумерном массиве удалить столбец, в котором находится первый четный отрицательный элемент.
Как я понимаю,
...
Как думаете, верно?

Думаю, нет.
В условии - про первый четный, а ты ищешь на самом деле последний нечетный. Если хочешь искать первое вхождение - обрывай цикл поиска сразу после нахождения.
Само удаление, вроде, верно.

[mugler02]

То есть верно будет так?

Код

k:=0;
for j:=1 to n do
begin
  for i:=1 to m do
  if (a[i,j]<0)and (a[i,j]) mod 2 =0 then
        k:=j;
end;
if k=0 then write('В матрице нет отрицательных нечетных элементов')
else
begin
  writeln('Номер первого столбца с нечетным отрицательным элементом=',k);
  for i:=1 to m do{всем элементы всех строк}
  for j:=k to n-1 do{от номера столбца до предпоследнего}
  a[i,j]:=a[i,j+1];{присваиваем значение следующего}
  n:=n-1;{уменьшаем количество столбцов}
end;
writeln('Удаление столбца:');
…

[Lapp]

То есть верно будет так?

Нет.
Можно вот так:

k:=0;
for j:=1 to n do begin
  for i:=1 to m do
    if (a[i,j]<0)and (a[i,j]) mod 2<>0 then begin
      k:=j;
      break
    end;
  if k>0 then break
end;

Но лучше использовать цикл while. Еще один вариант (самый красивый)) - использовать функцию и выходить из нее во внутреннем цикле.

[Гость]

Прошу помочь разобраться с решением задачи:

В двумерном массиве вставить перед всеми строками, первый элемент которых делится на 3, строку из нулей.

Заранее спасибо.

не понял

[Гость]

Как-то вот так:

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

...
begin
  ...
  for i:=m downto 1 do
    if a[i,1] mod 3=0 then begin
      for j:=m-1 downto i do a[j+1]:=a[j];
      for j:=1 to n do a[i,j]:=0
    end;

Только ты имей в виду, что, поскольку строки сдвигаются при вставке, то последние исчезают.

извини но обьясни мне_________________________ смысл.

[Lapp]

не понял

извини но обьясни мне_________________________ смысл.

Ну, и чего же ты не понял, дорогой Гость? Что тебе объяснить?