Begin
Clear;
for i:= 0 to SizeRow - 1 do
Begin
for j:= 0 to SizeColumn - 1 do
Begin
Lines.Text:= Lines.Text + IntToStr(A[i,j]) + ' ';
Sum:= sum + A[i,j];
End;
Lines.Text:= Lines.Text + #13;
End;
ShowMessage ('Сумма элементов матрицы = '+IntToStr(Sum));
Visible:= True;
End;
End;
Обработчик события “изменения в поле edtSizeVector” обеспечивает недоступность для пользователя кнопки “Работа с вектором”.
procedure TForm1.edtSizeVectorChange(Sender: TObject);
Begin
btnVectorWork.Enabled:= False;
End;
Обработчик события “ изменения в поле edtSizeChange” делает недоступным кнопку “ Транспонированная матрица”.
procedure TForm1.edtSizeChange(Sender: TObject);
Begin
btnMatrixWork.Enabled:= False;
End;
Результат работы приложения «Ввод-вывод элементов вектора и матрицы» показан на рис. 19.
Рис.19. Результат работы приложения «Ввод-вывод элементов вектора и матрицы»
Дата добавления: 2015-07-10; просмотров: 51 | Нарушение авторских прав