[Lenka455]

Матрицы большой размерности бывает выгодно хранить в куче. Один из вариантов такого хранения – список, состоящий из записей, одним из полей которых является указатель, а информационным полем – массив (строка исходной матрицы). Составить программу, которая обеспечит заполнение подобной структуры и перемножение двух матриц. Результат хранить в такой же динамической структуре.

многоуважаемые программеры помогите.....

[lmikle]

Читай о храниении разреженных массивов.

[Lenka455]

я только начала заниматься прогррамированием может напишет кто нибудь прогррамку?!))

[Konrad]

Сообщение от Lenka455

я только начала заниматься прогррамированием может напишет кто нибудь прогррамку?!))

Так что ж Вы сразу не сказали?

Почитайте также о храниении сжиженных массивов, и о конденсированных массивах, ну и обазятельно о растворенных массивах, куда ж без них.

[Страдалецъ]

А чего забыл про возгонку и дистиляцию массивов, нормальный прогер только дистилированные и использует.
Ну а если серьезно, за готовой программой обращайтесь в работу, а тут оказывается помощь т.е. подразумевается, что вы что-то сделали и у вас не получается. Вот почитайте данный материал, попробуйте использовать, и если возникнут вопросы - добро пожаловать.

[Lenka455]

Вот перемножение матриц то я делаю, а как список то оформить: "Один из вариантов такого хранения – список, состоящий из записей, одним из полей которых является указатель, а информационным полем – массив (строка исходной матрицы)."

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const nmax=20;
var A,B,C:array[1..nmax,1..nmax]of integer;
    ka,la,kd,ld,i,j,r:integer;
begin

randomize;
writeln('Razmery matricy A:');
repeat
write('Kolichestvo strok ka=');
readln(ka);
until (ka>0)and(ka<=nmax);
repeat
write('Kolichestvo stolbcov la=');
readln(la);
until (la>0)and(la<=nmax);
writeln('Razmery matricy B:');
repeat
write('Kolichestvo strok kd=');
readln(kd);
until (kd>0)and(kd<=nmax);
repeat
write('Kolichestvo stolbcov ld=');
readln(ld);
until (ld>0)and(ld<=nmax)and(ld=ka);
writeln('Matrica A:');
for i:=1 to ka do
   begin
     for j:=1 to la do
       begin
         A[i,j]:=random(9)+1;
         write(A[i,j]:3);
       end;
     writeln;
   end;
readln;
writeln('Matrica B:');
for i:=1 to kd do
   begin
     for j:=1 to ld do
       begin
         B[i,j]:=random(9)+1;
         write(B[i,j]:3);
       end;
     writeln;
   end;
readln;
for r:=1 to ka do
for j:=1 to ld do
   begin
     C[r,j]:=0;
     for i:=1 to la do
       begin
         C[r,j]:=C[r,j]+A[r,i]*B[i,j];
       end;
   end;
writeln('Matrica C=A*B:');
for i:=1 to ka do
    begin
      for j:=1 to ld do
      write(C[i,j]:5);
      writeln;
    end;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

lmikle: Lenka, не забываем про теги, а то последует наказание...

[Страдалецъ]

Если-бы вы внимательно прочитали документ по ссылке у вас были-бы другие вопросы. Нехорошо...

Поскольку строка матрицы у вас видимо предполагается фиксированного размера и задана как массив, то примерно так получается:

Код:

Type
 PMatrix = ^TMatrix;
 TMatrix = record
   Prev,Next: PMatrix;
   Row: Array[1..10] of string;
 end;

[Lenka455]

а как это будет выглядеть в программе