Процедура Нахождения Матрицы(помогите)

  • Автор темы Ramha
  • Дата начала
R

Ramha

#1
Добрый день...
Прошу правильность выполнения задачи "Дана матрица A=размером m*n. Составить процедуру нахождения матрицы A на(*) B матрицу
X,y - начальные массивы, Z-массив результат, t-размер

Код:
Procedure Umn (X,y; martics; t:integer; var z : matrics);
var
i,j,k,s:integer;
bagin
for i:= 1 to t do
for j:= 1 to t do
begin
S:=0
for k:=1 to t do
s:=s+x[k,i]*y[j,k];
z[i,j]:=s;
end;
end;

Я вот не могу понять , что рисовать в форме.. кнопки или что?
 
R

Ramha

#3
Объясните пожалуйста в чём проблема пишет что ошибка в функции Record.. я не понимаю этой задачи кто может помогите пожалуйста
"Дана матрица A=размером m*n. Составить процедуру нахождения матрицы A на(*) B матрицу
X,y - начальные массивы, Z-массив результат, t-размер"


Код:
unit Matrix;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
MatrixPtr : MatrixRec;
MatrixRec : record
MatrixRow  : byte;
MatrixCol  : byte;
MatrixArray : pointer;
private
{ Private declarations }
public
{ Public declarations }
end;
MatrixElement = real;
var
Form1: TForm1;

implementation
function CreateSquareMatrix(Size : byte) : MatrixPtr;
var
TempPtr : MatrixPtr;
begin
TempPtr:= nil;
GetMem(TempPtr,SizeOf(MartixRec));
if TempPtr = nil then begin
CreateSquareMatrix:= nil;
Exit;
end;
with TempPtr^ do begin
MartixRow:=Size;
MatrixCol:=Size;
MatrixArray:=nil
GetMem(MatrixArray,Size**SizeOf(MatrixElement));
if MatrixArray = nil then begin
FeeMem(TempPtr,SizeOf(MatrixRec));
CreateSquareMatrix:= nil;
Exit;
end;
end;
FillMatrix(TempPtr,0);
CreateSquareMatrix:= nil;
end;
{$R *.dfm}

end.

procedure TForm1.strngrd1Click(Sender: TObject);
begin

end;

end.
 
09.11.2009
665
1
#4
record (запись). Задать тип можно следующим образом:
Код:
 type < имя _ типа >=record
<имя_поля1>: тип; 
<имя_поля2>: тип; 
…………………. 
<имя_поля K >: тип 
end;
где record – служебное слово, а <имя_типа> и <имя_поля> - правильные идентификаторы языка Паскаль.
Переименуйте название функции.
 

Cambur

Active member
20.06.2010
27
0
#6
Прошу правильность выполнения задачи "Дана матрица A=размером m*n. Составить процедуру нахождения матрицы A на(*) B матрицу
X,y - начальные массивы, Z-массив результат, t-размер
какой-то непонятный вопрос..
и..ошибка в функции record.. что-то я не заметил описания этой функции..
Dock1100.5 прав - переименуй название функции, например на begin :(