Динамический массив

@BlackM666 · Регистрация: 29.11.2010

Author24 — интернет-сервис помощи студентам

Все как обычно просто. Задаем двумерный массив(любой) и считаем сумму положительных элементов по столбцам. Выводим результат в виде одномерного массива. И все это с динамическим выделением памяти.
Входной файл взял для удобства ввода чисел, выглядит так:
3 - число столбцов
3 - число строк
1 1 1
1 1 1
1 1 1

Вот что получилось

Pascal

{$R-}
program DynamicArray;
 
TYPE
BType=integer;
IndexRow=^MyRow;
MyRow=array [1..1] of BType;{ "Строка" динамической матрицы }
IndexArray=^MyArray;
MyArray=array [1..1] of IndexRow;{ Сама матрица - представляется как массив указателей на "строки" }
 
 
var
DynamicArray1:IndexArray;{ двумерный }
DynamicArray2:IndexRow; {одномерный}
Column,Row,i,j,l,k:integer;
InFile,OutFile:text;
 
BEGIN
Assign (InFile,'in.txt');
Assign (OutFile,'out.txt');
Reset(InFile);
Rewrite(OutFile);
Readln(InFile,Column);
Readln(InFile,Row);
 
GetMem(DynamicArray1,Row*sizeof(IndexRow));
for i:=1 to Column do
GetMem(DynamicArray1^[i],Column*sizeof(BType));
 
GetMem(DynamicArray2,column*sizeof(BType));
 
 
for i:=1 to row do begin
  for j:=1 to column do
      Read(InFile,DynamicArray1^[i]^[j]);
end;
for i:=1 to row do begin
 Writeln(OutFile,' ');
  for j:=1 to column do
 Write(OutFile,'a[',i,',',j,']=',DynamicArray1^[i]^[j]);
end;
k:=1;
for j:=1 to column do begin
  for i:=1 to row do
    if DynamicArray1^[i]^[j]>0 then begin
        DynamicArray2^[k]:=DynamicArray2^[k]+DynamicArray1^[i]^[j];
        end;
k:=k+1;
end;
 
Writeln (OutFile,'');
 
for k:=1 to column do
Writeln(OutFile,'symma [',k,'] stolba s[',k,']=',DynamicArray2^[k]);
 
close(OutFile);
 
for i:=1 to Column do
FreeMem(DynamicArray1^[i],column*sizeof(BType));
FreeMem(DynamicArray1,Row*sizeof(IndexRow));
FreeMem(DynamicArray2,column*sizeof(BType));
Readln;
END.

И не могу понять почему же у меня в памяти одномерного массива все что угодно кроме правильного ответа.

Добавлено через 5 часов 29 минут
Я понял почему ответ не правильный. В памяти мусор. Тогда вопрос как очистить динамическую память.

@ChameleoN · 29.11.2010, 08:17

заполни нулями и всё

@BlackM666 · 29.11.2010, 09:07 **[ТС]**

Ага, я так и сделал. Обнулил массивы.

@ChameleoN · 29.11.2010, 17:16

ну и как?

@BlackM666 · 29.11.2010, 20:57 **[ТС]**

Окончательно получилось

Pascal

{$R-}
program DynamicArray;
 
TYPE
BType=integer;
Type
IndexRow=^MyRow;
MyRow=array [0..0] of BType;{ "Строка" динамической матрицы }
IndexArray=^MyArray;
MyArray=array [0..0] of IndexRow;{ Сама матрица - представляется как массив указателей на "строки" }
 
 
var
DynamicArray1:IndexArray;{двумерный массив }
DynamicArray2:IndexRow; {одномерный}
Column,Row,i,j,l,k:integer;
InFile,OutFile:text;
 
BEGIN
Assign (InFile,'in.txt');
Assign (OutFile,'out.txt');
Reset(InFile);
Rewrite(OutFile);
Readln(InFile,Column);
Readln(InFile,Row);
{Выделяем память по массивы}
GetMem(DynamicArray1,Row*sizeof(IndexRow));
for i:=0 to Column-1 do
GetMem(DynamicArray1^[i],Column*sizeof(BType));
GetMem(DynamicArray2,column*sizeof(BType));
{Обнуляем содержимое памяти}
DynamicArray1^[i]^[j]:=0;
for k:=0 to column-1 do
 DynamicArray2^[k]:=0;
for i:=0 to row-1 do
 for j:=0 to column-1 do
 DynamicArray1^[i]^[j]:=0;
 
for i:=0 to row-1 do begin
  for j:=0 to column-1 do
      Read(InFile,DynamicArray1^[i]^[j]);
end;
for i:=0 to row-1 do begin
  for j:=0 to column-1 do
 Write(OutFile,'a[',i,',',j,']=',DynamicArray1^[i]^[j],'  ');
 Writeln(OutFile,'');
end;
Writeln(OutFile,'');
k:=0;
for j:=0 to column-1 do begin
  for i:=0 to row-1 do
    if DynamicArray1^[i]^[j]>0 then begin
        DynamicArray2^[k]:=DynamicArray2^[k]+DynamicArray1^[i]^[j];
        end;
k:=k+1;
end;
 
Writeln (OutFile,'');
 
for k:=0 to column-1 do
Writeln(OutFile,'symma [',k,'] stolba s[',k,']=',DynamicArray2^[k]);
 
close(OutFile);
{Освобождаем зарезервированную память}
for i:=0 to Column-1 do
FreeMem(DynamicArray1^[i],column*sizeof(BType));
FreeMem(DynamicArray1,Row*sizeof(IndexRow));
FreeMem(DynamicArray2,column*sizeof(BType));
Readln;
END.

Все примеры которые я тестил дали 100% правильный результат.

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	29.11.2010, 08:17	2
	заполни нулями и всё 0

@BlackM666 9 / 9 / 3 Регистрация: 29.11.2010 Сообщений: 40
	29.11.2010, 09:07 [ТС]	3
	Ага, я так и сделал. Обнулил массивы. 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	29.11.2010, 17:16	4
	ну и как? 0

	29.11.2010, 20:57