Удалить столбцы матрицы, в которых все элементы заканчиваются на единицу

@Мартиника · Регистрация: 29.09.2010

Author24 — интернет-сервис помощи студентам

Задача - удалить столбцы, в которых все элементы заканчиваются на единицу.
вот процедура:

Pascal

type
  matrix=array[1..100,1..100] of integer;
 
procedure doit(var a:matrix; m:integer; var n:integer);
var
  i,j,k:integer;
  l:boolean;
begin
  k:=0;
  for j:=1 to n do
  begin
    l:=false;
    for i:=1 to m do
      if a[i,j] mod 10<>1 then
        l:=true;
      if l=false then
      begin
        for k:=j to n do
          for i:=1 to m do
            a[i,k]:=a[i,k+1];
        dec(n);
      end;
  end;
end;

Она идет, все хорошо. НО алгоритм удаления столбца я просто скопировала с сайта и не понимаю его. Не могли бы вы в двух словах объяснить следующие строчки

Pascal

if l=false then
      begin
        for k:=j to n do      //почему от к:=j?
          for i:=1 to m do
            a[i,k]:=a[i,k+1];  //Почему к+1?
        dec(n);

@Puporev · 11.12.2010, 20:06

Это называется сдвиг влево.

Pascal

if l=false then//если все элементы в столбце оканчиваются на 1
      begin
        for k:=j to n-1 do      //от этого столбца до предпоследнего, здесь нужно to n-1 
          for i:=1 to m do//всем элементам строк
            a[i,k]:=a[i,k+1];  //присвоить значения элементов справа
        dec(n);//обрезать последний столбец

@Мартиника · 11.12.2010, 20:51 **[ТС]**

простите, но почему до предпоследнего?

@Puporev · 11.12.2010, 20:55

Потому что последний станет предпоследним, все сдвинутся на 1 влево, а последний станет "пустым", его обрежем, например было
12 11 23
21 21 21
12 31 40
второй столбец нужно удалить, второму присвоим значения третьего, будет
12 23 0
21 21 0
12 40 0
обрежем третий n:=n-1
будет
12 23
21 21
12 40

@Мартиника 0 / 0 / 0 Регистрация: 29.09.2010 Сообщений: 43
	11.12.2010, 20:51 [ТС]	3
	простите, но почему до предпоследнего? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.12.2010, 20:55	4
	Потому что последний станет предпоследним, все сдвинутся на 1 влево, а последний станет "пустым", его обрежем, например было 12 11 23 21 21 21 12 31 40 второй столбец нужно удалить, второму присвоим значения третьего, будет 12 23 0 21 21 0 12 40 0 обрежем третий n:=n-1 будет 12 23 21 21 12 40 0

Опции темы