Курсовая работа: Обработка матриц

Листинг программы

unitUnit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids;

type

TForm1 = class(TForm)

gbMatrix: TGroupBox;

sgMatrix: TStringGrid;

buZapoln: TButton;

gbMassiv: TGroupBox;

lbA: TLabel;

lbB: TLabel;

sgA: TStringGrid;

sgB: TStringGrid;

buMassiv: TButton;

sgC2: TStringGrid;

sgC1: TStringGrid;

lbC1: TLabel;

lbC2: TLabel;

buC: TButton;

procedure FormCreate(Sender: TObject);

procedure buZapolnClick(Sender: TObject);

procedure buMassivClick(Sender: TObject);

procedure buCClick(Sender: TObject);

private

{ Private declarations }

public