Помощь - Поиск - Пользователи - Календарь
Полная версия: Функция в программе
Форум «Всё о Паскале» > Разработка ПО, алгоритмы, общие вопросы > Общие вопросы разработки программ
DDOn
Ребят, вот сама программа
В ней процедуры
Нужно написать функцию
Возможно ли поменять изменить процедуры Ml и Md
На функцию, или же, если не брать из процедур, то функцию иную написать?
Спасите безумца, ибо зачетная работа и долго над ней уже безрезультатно сижу
Федосеев Павел
Что-то очень похожая программа на эту.

Что не так с многострадальными 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}

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.