Определить, является ли заданная квадратная матрица n-ого порядка ортонормированной, т.е. такой, в которой скалярное произведение каждой пары строк равно нулю, а скалярное произведение каждой строки на себя равно 1. Матрица 4 порядка.

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

unit Unit1;

interface

uses

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

Dialogs, Grids, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

StringGrid1: TStringGrid;

Label2: TLabel;

Button2: TButton;

Label3: TLabel;

procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

function pr_pari: boolean;

function samo_na_sebya: boolean;

{ Private declarations }

public

{ Public declarations }

...