Обнуление и смещение в начало строки элементов квадратной матрицы (готовый код, найти косяк)

@Own3D · Регистрация: 29.10.2011

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

Условие: Создать массив размерностью N×N (описать константу и задать размер по умолчанию
равный 10). Разработать процедуру заполняющую массив, переданный как параметр,
случайными числами в интервале от −N до N. Создать дополнительную процедуру
оперирующую с сформированным массивом -> Удалить в каждой строке все положительные элементы массива путём обнуления их
значений и смещения в начало строки.

Pascal

uses crt;
const n=10;
//-------------------------------------------------------
procedure FillArray (var mas:array[1..n, 1..n] of integer);
var i,j:integer;
begin
randomize;
for i:=1 to n do
    begin
     for j:=1 to n do
          mas[i,j]:=random(n*2)-n;
    end;
end;
//-------------------------------------------------------
procedure PrintArray (var mas:array[1..n, 1..n] of integer);
var i,j:integer;
begin
for i:=1 to n do
begin
     for j:=1 to n do
          write (mas[i,j]:4);
writeln;
end;
end;
//-------------------------------------------------------
procedure ZerroAndShift (var mas:array[1..n, 1..n] of integer);
var i,j,s:integer;
 
begin
for j:=1 to n do
    begin
    for i:=1 to n do
        begin
        if mas[i,j]>0 then
           begin
           mas[i,j]:=0;
           s:=i;
                for i:=s-1 downto 1 do
                begin
                     mas[i,j]:=mas[i+1,j];
                     mas[1,j]:=0;
                end;
           end;
        end;
    end;
end;
 
//-------------------------------------------------------
var
mas:array[1..n, 1..n] of integer;
i,j:integer;
 
begin
clrscr;
FillArray(mas);
PrintArray(mas);
ZerroAndShift(mas);
PrintArray(mas);
readln;
end.

Конкретно косяк в procedure ZerroAndShift. Суть идеи:перебором находит положительное число в строке, находит например 1 число - обнуляет его, и делает сдвиг всех предшествующих ему элементов на шаг вперед (i+1), а 1й элемент строки делает равным 0. и так до конца строки. но где то косяк, не работает.. подскажите что подправить.

@Puporev · 29.10.2011, 21:46

Pascal

procedure ZerroAndShift (var mas:array[1..n, 1..n] of integer);
var i,j,s:integer;
begin
for i:=1 to n do
 begin
  j:=1;
  while j<=n do
  if mas[i,j]>0 then
   begin
    if j=1 then mas[i,j]:=0
    else
     begin
      for s:=j downto 2 do
      mas[i,s]:=mas[i,s-1];
      mas[i,1]:=0;
      j:=j+1;
     end;
   end
  else j:=j+1;
 end;
end;

@Own3D · 30.10.2011, 12:57 **[ТС]**

Благодарю!

@Own3D 122 / 122 / 73 Регистрация: 29.10.2011 Сообщений: 308
	30.10.2011, 12:57 [ТС]	3
	Благодарю! 0

Опции темы