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

> Вывод в программе (преобразованная таблица)
сообщение
Сообщение #1





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

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


В самом конце программы делает нули заместо матрицы.
Не понимаю почему.
Две недели уже сижу над этим. =/
ML и MD сортирует положительные и отрицательные.
Все работает сначала нормально, но потом преобразованная таблица заполняется неверно!
Помогите пожалуйста ypriamii.gif


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


Знаток
****

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

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


Это шутка?

Вы не формируете новую матрицу, вернее полностью её копируете. Без малейших изменений.
Вот где здесь формирование отличий A от TABL?
  {---------------Ввод элементов матрицы(положительные)---------------}
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
Write(a[i, j]: 4)
else
Write(' ');
TABL[i, j] := A[i, j];
writeln;
end; {3}
end; {2}

end;

Почти так же и здесь
  {---------------Ввод элементов матрицы(отрицательные)---------------}
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

if a[i, j] < 0 then
Write(a[i, j]: 4)
else
Write(' ');
TABL[i, j] := A[i, j];
writeln;

end; {2}
readln;
end; {1}


Всё что мог, я уже диагностировал. Дальше вы должны предпринять меры по исправлению.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 





- Текстовая версия 16.12.2019 1:47
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name