Pacsal, Модули, Наработки есть

[Otre4eHHbIu]

В заданной прямоугольной матрице поставить на первое место столбец с наименьшим количеством нулевых элементов, переставив все нули в конец этого столбца. (Изменённая матрица должна содержать все элементы исходной матрицы).

  	
unit modul1;
interface
const m=5; n=4;
type matr=array[1..n,1..m] of real;
procedure vvod(var a:matr);
procedure vivod(a:matr);
function kolnul(a:matr; k:integer):integer;
procedure minnul(var a:matr);
implementation

procedure vvod(var a:matr);
var i,j:integer;
begin
     writeln('Input matr: ');
     for i:=1 to n do
         for j:=1 to m do
             read(a[i,j]);
end;

procedure vivod(a:matr);
var i,j:integer;
begin
     for i:=1 to n do
         begin
              for j:=1 to m do
                  write(a[i,j]:5:2);
         end;
end;

function kolnul(a:matr; k:integer):integer;
var i:integer;
begin
     k:=0;
     for i:=1 to m do
         if a[i,N]=0 then
            k:=k+1
end;

procedure minnul(var a:matr);
var i,minN,kolN:integer;
begin
     minN:=1;
     kolN:=kolnul(a,minN);
                          for i:=2 to m do
                              if kolnul(a,i)<kolnul(a,minN) then
                                begin
                                      kolN:=;
                                      minN:=;
                                 end;
end;

[Impuls1989]

А чего вы собственно хотите?

[Otre4eHHbIu]

собственно условие есть, наработки есть, хотелось бы указать на мои ошибки, помочь дописать и составить модуль...)

[Impuls1989]

Ну тогда давайте разберемся:

procedure vvod(var a:matr);
var i,j:integer;
begin
     writeln('Input matr: ');
     for i:=1 to n do
         for j:=1 to m do
             read(a[i,j]);
end;

Тут я бы сделал ввод не в столбик, а ввиде матрицы. Вот так:

procedure vvod(var a:matr);
var i,j:integer;
begin
     writeln('Input matr: ');
     for i:=1 to n do
         for j:=1 to m do
           begin
             GoToXY(i,j);
             read(a[i,j]);
           end;
end;

К сожалению, если числа будут очень большими, матрица всеравно получится неровной((((.
Вывод тоже не в столбик:

procedure vivod(a:matr);
var i,j:integer;
begin
     for i:=1 to n do
         begin
              for j:=1 to m do
                  write(a[i,j]:5:2,'  ');
           Writeln;
         end;
end;

Тут таже проблемма, некрасивый вывод.

function kolnul(a:matr; k:integer):integer;
var i:integer;
begin
     k:=0;
     for i:=1 to m do
         if a[i,N]=0 then
            k:=k+1
end;

Ваша функция не возвращает результата.

function kolnul(a:matr;N:integer):integer;
var i,k:integer;
begin
     k:=0;
     for i:=1 to m do
         if a[i,N]=0 then
            k:=k+1
   kolnul:=k;
end;

procedure minnul(var a:matr);
var i,j,minN,kolN:integer;
     buf:real;
begin
     minN:=1;
     kolN:=kolnul(a,minN);
      for i:=2 to m do
        if kolnul(a,i)<kolN then
          begin
            kolN:=kolnul(a,i);
            minN:=i;
          end;
{Далее по заданию}
      for i:=1 to n do
       begin
         buf:=a[i,minN];
         a[i,minN]:=a[i,1];
         a[i,1]:=buf;
       end;
     for i:=1 to n do
      begin
       if a[i,1] = 0 then 
        begin 
          j:=i;
          while (a[j,1]<>0) or (j=n)
            inc(j); 
         a[i,1]:=a[j,1]
        end;
       for i:=n downto n-kolN+1 do
        a[i,n]:=0;
      end;
end;

Вот как-то так. Скорее всего будут ошибки, так как ничего не компилил. Пишите если что.