Часть II. Delphi

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Label5: TLabel; Label6: TLabel; Button4: TButton;

procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); private

{Private declarations } public

{Publicdeclarations } end;

Как видим, в класс включены компоненты (данные) и методы их обработки (процедуры). В секции private (закрытые) объявляются элементы класса, которые должны быть недоступны в других модулях. В секции public(открытые) помещаются элементы, доступные в других модулях.

Практика

Задача 7a

Составить программу для транспонирования квадратной матрицы порядка N и определения следа матрицы.

Транспонированной матрицей к исходной является такая матрица, у которой элементы строк исходной матрицы расставлены в столбцы, а элементы столбцов исходной в строки.

Следом матрицы называется сумма главных диагональных элементов. Компоненты

Часть II. Delphi

Часть II. Delphi

Часть II. Delphi

Часть II. Delphi

Переменные и массивы

Часть II. Delphi

Проекты форм

Для решения данной задачи рекомендуется создать три окна.

Часть II. Delphi

//открывается вторая форма

Form2.Show;

//количеству строк и столбцов компонента StringGrid на второй форме

//присваивается значение порядок: матрицы +1 Form2.StringGrid1.RowCount:=N+1; Form2.StringGrid1.ColCount:=N+1;

//подписываются заголовок таблицы, и номера строк

For i:=1 to Form2.StringGrid1.RowCount do

Form2.StringGrid1.Cells[i,0]:= IntToStr(i);

For j:=1 to Form2.StringGrid1.ColCount do

Form2.StringGrid1.Cells[0,j]:= IntToStr(j);

{вывод в компонент StringGrid на второй форме транспонированной матрицы}

{Транспонированная матрица не создается. Транспонирование осуществляется путем вывода столбца исходной матрицы в строку компонента StringGrid. ВStringGridномерстолбцаi, номерстроки j.}

For i:=1 to Form2.StringGrid1.ColCount-1 do

For j:=1 to Form2.StringGrid1.RowCount-1 do Form2.StringGrid1.Cells[i,j]:=FloatToStr(M[i,j]);

end;

{Процедура подготовки таблицы на форме для ввода квадратной матрицы, которая выполняется при выходе из поля ввода размерности матрицы.}

procedure TForm1.Edit1Exit(Sender: TObject); Vari,j:Integer;//номера строки столбца квадратной матрицы begin

// порядок матрицы получает свое значение из поля ввода

N:=StrToInt(Edit1.Text);

// свойство количество строк компонента StringGrid // получает значение: порядок +1 StringGrid1.RowCount:=N+1;

// свойство количество столбцов компонента StringGrid // получает значение порядок: +1 StringGrid1.ColCount:=N+1;

//подпись столбцов таблицы

For i:=1 to StringGrid1.RowCount do StringGrid1.Cells[i,0]:= IntToStr(i); //подписьстроктаблицы

For j:=1 to StringGrid1.ColCount do StringGrid1.Cells[0,j]:= IntToStr(j);

Часть II. Delphi

//добавление в свойства таблицы признака

//допустимости редактирования содержимого ячеек таблицы

StringGrid1.Options:= StringGrid1.Options +[goEditing]; end;

procedure TForm1.Button3Click(Sender: TObject); begin

Form1.Close

end;

//процедура вычисляет след матрицы и выводит результат

//натретьюформу

procedure TForm1.Button2Click(Sender: TObject);

Var i: Integer; begin

Sled:=0;

Form3.Show;

For i:=1 to Form1.StringGrid1.ColCount-1 do Sled:= Sled + M[i,i];

Form3.Label2.Caption:=' Следматрицыравен ' + FloatToStr(Sled) end;

end.

{ Модуль, связанный со второй формой} unit Unit2;

interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;

type

TForm2 = class(TForm) StringGrid1: TStringGrid; Button1: TButton;

procedure Button1Click(Sender: TObject); private

{Private declarations } public

{Public declarations }

end; var

Часть II. Delphi

Тестовый пример