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

[Ramha]

Добрый день...
Прошу правильность выполнения задачи "Дана матрица 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;

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

 

[Dock1100]

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

StringGrid для ввода/вывода значений.

 

[Ramha]

Объясните пожалуйста в чём проблема пишет что ошибка в функции 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.

 

[Dock1100]

record (запись). Задать тип можно следующим образом:

 type < имя _ типа >=record
<имя_поля1>: тип; 
<имя_поля2>: тип; 
…………………. 
<имя_поля K >: тип 
end;

где record – служебное слово, а <имя_типа> и <имя_поля> - правильные идентификаторы языка Паскаль.

Переименуйте название функции.

 

[Ramha]

Переименуйте название функции.

Но я ведь на Дэлфи делаю

 

[Cambur]

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

какой-то непонятный вопрос..
и..ошибка в функции record.. что-то я не заметил описания этой функции..
Dock1100.5 прав - переименуй название функции, например на begin