В каждом столбце матрицы D[n,m] нулевые элементы переставить в начало столбца

[pitak]

Возникли трудности с еще одной программой, просьба подсказать в чем ошибка. Или может быть можно сделать как-то по другому?

Program massiv;
const N=10;
const M=10;
var D:array [1..N,1..M] of real;
f,b,i,j:integer;
c:real;
flag:boolean;
begin
write('vvedite razmernost massiva f-b');
readln(f,b);
for i:=1 to f do
for j:=1 to b do
readln(D[i,j]);
for j:=1 to b do
repeat flag:=true;
for i:=1 to f-1 do
if (D[i,j]<>0) and (D[i+1,j]=0) then
begin
c:=D[i,j];
D[i,j]:=D[i+1,j];
D[j+1,j]:=c;
flag:=false;
end;
until flag;
for i:=1 to f do begin
for j:=1 to b do
write (D[i,j]:3:2);
writeln;
end;
end.

[effbus]

У меня такая же трудность

[Kemperh4]

Код на основе твоего:

Program massiv;
const N=10;
const M=10;

var D:array [1..N,1..M] of real;
a,b,i,j,k,t,f:integer;
c:real;
begin
write('vvedite razmernost massiva a-b: ');
readln(a,b);
for i:=1 to a do
for j:=1 to b do
readln(D[i,j]);

writeln('Исходный массив:');
writeln;

for i:=1 to a do begin
for j:=1 to b do begin
write (D[i,j]:3:2);
write(' ');
end;
writeln;
end;

for i:=1 to a do begin
f:=1;
while f > 0 do begin 
f:=0;
for j:=2 to b do 
if (D[j,i]=0) and (D[j-1,i]<>0) then begin
D[j,i]:=D[j-1,i];
D[j-1,i]:=0;
inc(f);
end;
end;
end;

writeln('Конечный массив:');

for i:=1 to a do begin
for j:=1 to b do begin
write (D[i,j]:3:2);
write(' ');
end;
writeln;
end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[pitak]

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

Код на основе твоего:

Program massiv;
const N=10;
const M=10;

var D:array [1..N,1..M] of real;
a,b,i,j,k,t,f:integer;
c:real;
begin
write('vvedite razmernost massiva a-b: ');
readln(a,b);
for i:=1 to a do
for j:=1 to b do
readln(D[i,j]);

writeln('Исходный массив:');
writeln;

for i:=1 to a do begin
for j:=1 to b do begin
write (D[i,j]:3:2);
write(' ');
end;
writeln;
end;

for i:=1 to a do begin
f:=1;
while f > 0 do begin 
f:=0;
for j:=2 to b do 
if (D[j,i]=0) and (D[j-1,i]<>0) then begin
D[j,i]:=D[j-1,i];
D[j-1,i]:=0;
inc(f);
end;
end;
end;

writeln('Конечный массив:');

for i:=1 to a do begin
for j:=1 to b do begin
write (D[i,j]:3:2);
write(' ');
end;
writeln;
end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

спасибо большое, а есть еще способ как можно сделать?

[Stilet]

Можно так:

const N=10;
const M=10;
var D:array [1..N,1..M] of real;
f,b,i,j,k:integer;l:real;
c:real;
flag:boolean;
begin

for i:=1 to n do begin
 for j:=1 to m do begin
   D[i,j]:=random(3);
   if d[i,j]=0 then
    for k:=i-1 downto 1 do begin
      l:=d[k+1,j];
      d[k,j]:=d[k+1,j];
      d[k,j]:=l;
    end;
end;
end;

 for i:=1 to n do begin
 for j:=1 to m do begin
   write(D[i,j]:5);
end; writeln;
end;
  readln;
end;

[pitak]

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

Можно так:

const N=10;
const M=10;
var D:array [1..N,1..M] of real;
f,b,i,j,k:integer;l:real;
c:real;
flag:boolean;
begin

for i:=1 to n do begin
 for j:=1 to m do begin
   D[i,j]:=random(3);
   if d[i,j]=0 then
    for k:=i-1 downto 1 do begin
      l:=d[k+1,j];
      d[k,j]:=d[k+1,j];
      d[k,j]:=l;
    end;
end;
end;

 for i:=1 to n do begin
 for j:=1 to m do begin
   write(D[i,j]:5);
end; writeln;
end;
  readln;
end;

Спасибо, смысл вроде понял, но она не работает

[Stilet]

У меня работает. Я проверял.

[pitak]

Все равно вот по этому коду исходный и конечный массивы получаются одинаковые:

Program massiv;
const N=10;
const M=10;

var D:array [1..N,1..M] of real;
a,b,i,j,k,t,f:integer;
c:real;
begin
write('vvedite razmernost massiva a-b: ');
readln(a,b);
for i:=1 to a do
for j:=1 to b do
readln(D[i,j]);

writeln('Исходный массив:');
writeln;

for i:=1 to a do begin
for j:=1 to b do begin
write (D[i,j]:3:2);
write(' ');
end;
writeln;
end;

for i:=1 to a do begin
f:=1;
while f > 0 do begin 
f:=0;
for j:=2 to b do 
if (D[j,i]=0) and (D[j-1,i]<>0) then begin
D[j,i]:=D[j-1,i];
D[j-1,i]:=0;
inc(f);
end;
end;
end;

writeln('Конечный массив:');

for i:=1 to a do begin
for j:=1 to b do begin
write (D[i,j]:3:2);
write(' ');
end;
writeln;
end;

end.

[Serge_Bliznykov]

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

Все равно вот по этому коду исходный и конечный массивы получаются одинаковые:

во-первых, Вы не правы. Не одинаковые получаются.
вы же забываете, наверное, нулевые элементы вводить!

во-вторых, соглашусь, что код ваш работает криво. Логику работы вашего кода я не понимаю, отлаживать ломы. Да и зачем, если Вам Stilet дал свой код ?!

Исходный массив:

1.00 2.00 3.00 4.00 5.00 
6.00 7.00 8.00 9.00 0.00 
0.00 0.00 2.00 17.00 19.00 
Конечный массив:
0.00 0.00 0.00 4.00 5.00 
0.00 0.00 0.00 9.00 0.00 
0.00 0.00 3.00 17.00 19.00

[pitak]

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

во-первых, Вы не правы. Не одинаковые получаются.
вы же забываете, наверное, нулевые элементы вводить!

во-вторых, соглашусь, что код ваш работает криво. Логику работы вашего кода я не понимаю, отлаживать ломы. Да и зачем, если Вам Stilet дал свой код ?!

по коду Stilet получается примерно то же самое, разве может получаться такое количество нулей?