Матрицы большой размерности
Матрицы большой размерности бывает выгодно хранить в куче. Один из вариантов такого хранения – список, состоящий из записей, одним из полей которых является указатель, а информационным полем – массив (строка исходной матрицы). Составить программу, которая обеспечит заполнение подобной структуры и перемножение двух матриц. Результат хранить в такой же динамической структуре.
помогите плиииз кто нибудь курсач горит... |
программирование Delphi , консольное приложение нужно
|
А чем тут помочь? Не вижу ни наработок, ни конкретных вопросов. А целиком писать курсовик вам тут врядли кто-то возьмется
|
это не весь курсовик , а всего лишь одно задание из него, просто только начала заниматься делфи много не знаю... а курсач то все равно сдавать...кому не трудно напишите программку пожалуйста...
|
Ну вам ведь консольное приложение нужно? Если знаете Pascal (в идеале - Object Pascal), то проблем возникнуть не должно. И если вы только начали им заниматься, почему уже по нему курсовик задают?
|
это у них надо спрашивать че они так рано курсачи задают...
ну так что кто нибудь поможет?!) |
Вот перемножение матриц то я делаю, а как список то оформить: "Один из вариантов такого хранения – список, состоящий из записей, одним из полей которых является указатель, а информационным полем – массив (строка исходной матрицы)."
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. |
в виде списка как оформит ьпомогите плиииззз курсач сдавать скоро...
|
что некто не поможет?))
|
что это такое сложное задание что все молчат?
|
Часовой пояс GMT +4, время: 23:45. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.