MemoMatrix.SetFocus;

Exit;

End;

End;

btnMatrixWork.Enabled:= True;

End;

Обработчик события “активизация формы ” выводит подсказку пользователю о максимальном размере вектора и обеспечивает установку курсора в поле редактирования edtSizeVector, куда ввод должен быть осуществлен в первую очередь.

procedure TForm1.FormActivate(Sender: TObject);

Begin

Label2.Caption:= 'Размер вектора (<='+IntToStr(MaxSizeVector)+')';

EdtSizeVector.SetFocus;

End;

Обработчик события “щелчок на кнопке “ Работа с вектором” обеспечивает подсчет суммы его элементов и контрольный вывод элементов массива с указанием их номеров:

procedure TForm1.btnVectorWorkClick(Sender: TObject);

Var

Summa: Integer;

I: Integer;

Begin

Summa:= 0;

for i:= 1 to N do

Summa:= Summa+V[i];

Label5.Caption:= 'Сумма='+IntToStr(Summa)+#13#13+

'Исходный вектор'+#13+' # Число'+#13+' ';

for i: = 1 to N do

Label5.Caption:= Label5.Caption+IntToStr(i)+' '+

SelectNumber (edtVector.Text,i)+#13+' ';

EdtSizeVector.SetFocus;

End;

Обработчик события “изменения в поле edtVectorChange делает кнопку “Работа с вектором “ недоступной для пользователя.

procedure TForm1.edtVectorChange(Sender: TObject);

Begin

btnVectorWork.Enabled:= False;

End;

Обработчик события “ изменения в поле memoMatrix” обеспечивает недоступность кнопки “Транспонированная матрица” и делает невидимым поле memoTransposed.

procedure TForm1.memoMatrixChange(Sender: TObject);

Begin

btnMatrixWork.Enabled:= False;

memoTransposed.Visible:= False;

End;

Обработчик события “нажатие на кнопку “Транспонированная матрица” подсчитывает сумму элементов матрицы с предварительным выводом сообщения об этом и транспонирует исходную матрицу с выводом полученных результатов в поле memoTransposed, одновременно делая его видимым.

procedure TForm1.btnMatrixWorkClick(Sender: TObject);

Var

i, j, t: Integer;

sum: Integer;

Begin

for i:= 0 to MaxSizeRow - 1 do

for j:= i + 1 to MaxSizeColumn do

Begin

t:= A[i,j];

A[i,j]:= A[j,i];

A[j,i]:= t;

End;

t:= SizeColumn;

SizeColumn:= SizeRow;

SizeRow:= t;

Sum:= 0;

Дата добавления: 2015-07-10