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

Тема в разделе "Pascal and Delphi", создана пользователем Ramha, 8 янв 2012.

  1. Ramha

    Ramha Гость

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

    Код (Text):
    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;

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

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    StringGrid для ввода/вывода значений.
     
  3. Ramha

    Ramha Гость

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


    Код (Delphi):
    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.
     
  4. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Переименуйте название функции.
     
  5. Ramha

    Ramha Гость

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

    Cambur Active Member

    Регистрация:
    20 июн 2010
    Сообщения:
    27
    Симпатии:
    0
    какой-то непонятный вопрос..
    и..ошибка в функции record.. что-то я не заметил описания этой функции..
    Dock1100.5 прав - переименуй название функции, например на begin :(
     
Загрузка...
Похожие Темы - Процедура Нахождения Матрицы(помогите)
  1. swyatogor
    Ответов:
    9
    Просмотров:
    560
  2. KiR
    Ответов:
    3
    Просмотров:
    2.571
  3. GROMILA
    Ответов:
    0
    Просмотров:
    2.185
  4. slipslip
    Ответов:
    0
    Просмотров:
    1.601
  5. Barmsl
    Ответов:
    1
    Просмотров:
    1.118

Поделиться этой страницей