IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> Функция в программе, Процедуры, зачетная - Free Pascal
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


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


Прикрепленные файлы
Прикрепленный файл  program.pas ( 7.99 килобайт ) Кол-во скачиваний: 71
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Знаток
****

Группа: Пользователи
Сообщений: 466
Пол: Мужской
Реальное имя: Федосеев Павел

Репутация: -  9  +


Что-то очень похожая программа на эту.

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

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 22.02.2018 19:40
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"