Версия для печати темы

Автор: DDOn 26.04.2016 1:53

Ребят, вот сама программа
В ней процедуры
Нужно написать функцию
Возможно ли поменять изменить процедуры Ml и Md
На функцию, или же, если не брать из процедур, то функцию иную написать?
Спасите безумца, ибо зачетная работа и долго над ней уже безрезультатно сижу



Прикрепленные файлы
 program.pas ( 7.99 килобайт ) Кол-во скачиваний: 431

Автор: Федосеев Павел 26.04.2016 2:23

Что-то очень похожая программа на http://forum.pascal.net.ru/index.php?showtopic=31982.

Что не так с многострадальными Ml и Md?

  {---------------Процедура, создающая новую матрицу из положительных элементов---------------}
  procedure Ml(var TABL: Matr2);
  var
    i, j: integer;
  begin{1}
    gotoxy(3, 4);
    textattr := yellow;
    writeln('Положительные элементы: ');

    for i := 1 to n do
    begin    {2}

      for j := 1 to k do
      begin    {3}
        if a[i, j] > 0 then
        begin  {4}
          TABL[i, j] := A[i, j];
          Write(tabl[i, j]: 4);

          Write('  ');

          writeln;
        end;  {4}
      end;   {3}
    end; {2}
  end; {1}



  {---------------Процедура, создающая новую матрицу из отрицательных элементов---------------}
  procedure Md(var TABL: Matr2);
  var
    i, j: integer;
  begin    {1}
    gotoxy(3, 4);
    writeln('Отрицательные элементы: ');

    for i := 1 to n do
    begin     {2}

      for j := 1 to k do
      begin  {3}
        if a[i, j] < 0 then
        begin  {4}
          TABL[i, j] := A[i, j];
          Write(tabl[i, j]: 4);

          Write('   ');

          writeln;
        end;  {4}
      end;  {3}
    end;  {2}
  end;   {1}