Исключить в матрице строку, где есть элемент 0

[Петрov]

помогите пожалуйста !!срочно надо!!!

На языке Паскаль: как иключить в матрице строку где есть элемент 0?Спасибо огромное кто мне поможет!!!!!!

[ViktorR]

Как вариант:
1. Определить через константы размерность исходной матрицы:

Const Row = 5;
      Col = 5;

2. Определить тип для переменных, которые будут хранить элементы матрицы:

Type TMatr = array[1 .. Row, 1.. Col];

3. Написать процедуру, которая подготовит матрицу, заполнив значения случайными числами. Перед завершением работы этой процедуры генерируем два числа целого типа (строка и столбец), которые используем для обнуления одного элемента.

procedure MakeMatr(var M : TMatr);
var i, j;
begin
   ...
end;

4. Написать процедуру, которая будет копировать элементы строки i матрицы M1, в элементы строки j матрицы M2:

procedure CopyRow(Const M1 : TMatr; var M2 : TMatr; i, j : integer);
begin
...
end;

5. Написать функцию, которая будет возвращать логическое значение True, если в строке есть нулевой элемент - иначе возвращается False.

function TestRow(Const M1 : TMatr; i : integer) : boolean;
var j : integer;
begin
   TestRow := False;
   for j := 1 to Col do
      if M1[i, j] = 0 then
      begin
         TestRow := True;
          Exit;
      end;
end;

6. Написать процедуру, которая либо выводит матрицу на экран, либо записывает в текстовый файл

procedure printMatr(Const M : TMatr);
var i, j : integer;
     fh : text; {при необходимости вывода в файл}
                  {имя файла можно задать в виде константной строки}
begin
...
end;

7. Написать собственно программу, в которой генерируется матрица M1, затем в цикле выполняется проверка строки на содержание нулевого элемента и если такого элемента нет, то выполняется копирование строки в матрицу M2.

begin
   MakeMatr(M1);
   printMatr(M1);{Вывод матрицы M1}
   RowM2 := 1; {подсчитывается номер строки матрицы M2}
   for RowM1 := 1 to Row do
      if Not TestRow(M1, RowM1) then
      begin
         CopyRow(M1, M2, RowM1, RowM2);
         RowM2 := RowM2 + 1;
      end;
   printMatr(M2);{Вывод матрицы M2}
end.

Задача поделена на более простые части. Так думаю, что остальное будет сделать несложно.

PS: Писал не проверяя, так что ...


Как-то так, ...

[Bugrimov]

Вашу задачу реализовывали, только на C++.

http://programmersforum.ru/showthread.php?t=261900