Матрицы большой размерности

[Lenka455]

Матрицы большой размерности

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

помогите плиииз кто нибудь курсач горит...

 

[Lenka455]

программирование Delphi , консольное приложение нужно

 

[MrSTEP]

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

 

[Lenka455]

это не весь курсовик , а всего лишь одно задание из него, просто только начала заниматься делфи много не знаю... а курсач то все равно сдавать...кому не трудно напишите программку пожалуйста...

 

[MrSTEP]

Ну вам ведь консольное приложение нужно? Если знаете Pascal (в идеале - Object Pascal), то проблем возникнуть не должно. И если вы только начали им заниматься, почему уже по нему курсовик задают?

 

[Lenka455]

это у них надо спрашивать че они так рано курсачи задают...
ну так что кто нибудь поможет?!)

 

[Lenka455]

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

rogram 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.

 

[Lenka455]

в виде списка как оформит ьпомогите плиииззз курсач сдавать скоро...

 

[Lenka455]

что некто не поможет?))

 

[Lenka455]

что это такое сложное задание что все молчат?