Работа с матрицами

[Rikki-Tikki]

Здравствуйте! помогите, пожалуйста!
нужно вставить в матрицу столбец после столбца k со сдвигом столбцов влево.
вот я написала процедуру:

procedure vstav(ma:a;k:integer);
var
i,j:integer;
Begin
for j:=n-1 downto k do ma[i,j+1]:= ma[i,j];
for i:=1 to n do ma[i,k+1]:=55;

for i:=1 to n do
 begin
 for j:=1 to n do write(mas[i,j]:3);
 writeln;
 end;
end;

на что мне паскальчик пишет :"выход за границы диапозона 1..5". (у меня n=5).
только что сделала задачу с одномерным массивом (вставка - сдвиг влево, и ничего, не ругался насчет границ диапазона :

procedure vstav(ma:a;k:integer);
var
i:integer;
Begin
for i:= n-1 downto k do ma[i+1]:= ma[i];
ma[k+1]:= 55;
for i:=1 to n do write(ma[i],' ');
end;

почему? ну почему???

[Stilet]

со сдвигом столбцов влево.

Если последний столбец выбрасывается то предлагаю такой вариант вставок:

var a:array[1..5,1..5] of byte;
    e:array[1..5] of byte;
  q,w,k:integer;
begin
 for q:=1 to 5 do e[q]:=0;
 for q:=1 to 5 do begin
  for w:=1 to 5 do begin
   a[q,w]:=w;
   write(a[q,w]:3);
  end;
  writeln;
 end;
 
 k:=2;
 {Сдвиг столбцов}
 for q:=1 to 5 do begin
  move(a[q,k],a[q,k+1],5-k);
 end;

 {Вставка столбца}
 for w:=1 to 5 do begin
  a[w,k]:=e[w];
 end;
 writeln;
 for q:=1 to 5 do begin
  for w:=1 to 5 do begin
   write(a[q,w]:3);
  end;
  writeln;
 end;

 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Смысл ясен?

[Rikki-Tikki]

спасибо за отклик !

begin
for q:=1 to 5 do e[q]:=0;
for q:=1 to 5 do begin
for w:=1 to 5 do begin
a[q,w]:=w;
write(a[q,w]:3);
end;
writeln;
end;

- заполение и вывод матрицы 5х5. Так.
а вот дальше...

k:=2;
{Сдвиг столбцов}
for q:=1 to 5 do begin
move(a[q,k],a[q,k+1],5-k);
end;

впревые в жизни вижу процедуру move.вы так ее написали, будто он азаранее в паскале есть. нам же по заданию ее самим нужно написать. "написать процедуру или функцию, позволяющую вставить столбец...". вот какое задание.

[Скарам]

procedure vstav(ma:a;k:integer);
var
i,j:integer;
Begin
for j:=n-1 downto k do ma[i,j+1]:= ma[i,j];
for i:=1 to n do ma[i,k+1]:=55;

for i:=1 to n do
begin
for j:=1 to n do write(mas[i,j]:3);
writeln;
end;
end;

Я вообще Делфи изучал в инсте 1 семестр 4 года назад,но думаю должно быть примерно так,извините не проверял,не на чем ).

procedure vstav(ma:a;k:integer);
var
i,j:integer;
Begin
for j:=1 to k do 
begin
for i:=1 to n
ma[i,j]:= ma[i,j+1];
end;
for i:=1 to n do ma[i,k+1]:=55;

for i:=1 to n do
 begin
 for j:=1 to n do write(mas[i,j]:3);
 writeln;
 end;
end;

[Rikki-Tikki]

Сообщение от Скарам

Я вообще Делфи изучал в инсте 1 семестр 4 года назад,но думаю должно быть примерно так,извините не проверял,не на чем ).

procedure vstav(ma:a;k:integer);
var
i,j:integer;
Begin
for j:=1 to k do 
begin
for i:=1 to n
ma[i,j]:= ma[i,j+1];
end;
for i:=1 to n do ma[i,k+1]:=55;

for i:=1 to n do
 begin
 for j:=1 to n do write(mas[i,j]:3);
 writeln;
 end;
end;

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

[Consol]

procedure vstav(ma:a;k:integer);
var i,j,temp:integer;
begin
i:=1;
while i<=k-1 do
 begin
  for j:=1 to n do{n-число строк}
     ma[j,i]:=ma[j,i+1];
  i:=i+1;
  end;
  for j:=1 to n do
    ma[j,k]:=55;
    
end;

[Stilet]

будто он азаранее в паскале есть.

Не поверишь, но как раз она там есть.

[Rikki-Tikki]

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

procedure vstav(ma:a;k:integer);
var i,j,temp:integer;
begin
i:=1;
while i<=k-1 do 
 begin
  for j:=1 to n do{n-число строк}
     ma[j,i]:=ma[j,i+1];
  i:=i+1;
  end;
  for j:=1 to n do
    ma[j,k]:=55;
    
end;

Спасибо за участие но, к сожалению, у меня эта процедура так же просто добавляет столбец и строку с нулями

Stilet, я верю и не возражаю! Но просто если я подойду с таким решением к преподавателю, он оценит такое решение, как наглость (ну, как-то так -), потому что в условии сказано:"Написать процедуру", а не "использовать".

[Alenchik]

Помогите пожалуйста в решении задачи:
В целочисленной последовательности есть нулевые элементы. Определить количество этих элеменотов.

[andrewpalkin]

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

Помогите пожалуйста в решении задачи:
В целочисленной последовательности есть нулевые элементы. Определить количество этих элеменотов.

Запусти цикл и просто считай все нули , которые будут встречаться в последовательности