Здравствуйте! У меня возникли сложности с таким вопросом:
Необходимо:
1) Сформировать матрицу, количество строк и столбцов которой случайное число в интервале от 2 до 10, и заполнить её элементами ряда. Это задание я выполнил, но с формулой видимо накосячил.
2) Вывести указанные элементы в строку по правилу:
- при щелчке левой кнопкой мыши вывести строку по которой щелкнули;
- при щелчке правой мыши, вывести столбик на который щелкнули.
На данный момент имеют такой код, который необходим естественно в доработке...
[code lang=pascal]procedure TForm1.ButtonFirstClick(Sender: TObject);
var i,j:integer;
n:real;
begin
Randomize;
StringGridFirst.ColCount:=2+Random(8);
StringGridFirst.RowCount:=2+Random(8);
n:=1;
for i:=0 to StringGridFirst.ColCount -1 do
for j:=0 to StringGridFirst.ColCount -1 do
begin
StringGridFirst.Cells[i,j]:=FloatToStr(exp(n*ln(sqr(2*n))+3)/ sqr(n)+4);
StringGridStr.ColCount:= StringGridFirst.ColCount;
end;

end;

procedure TForm1.ButtonFirstMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin

end;
procedure TForm1.StringGridFirstClick(Sender: TObject);
begin

end;

procedure TForm1.StringGridFirstMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var nc, nr:integer;
begin
StringGridFirst.MouseToCell(X,Y,nc,nr);
if (nc> StringGridFirst.ColCount-1) or (nr > StringGridFirst.ColCount-1) or
(nc<0) or (nr<0) then
begin
ShowMessage ('Неверное указание ячейки');
exit;
end;
end;

end.[/code]
Саму практическую можно посмотреть во вложении. 1 часть задания выполнил, спасибо огромное Зенченко Константину Николаевичу
Необходимо выполнить САМОСТОЯТЕЛЬНОЕ ЗАДАНИЕ 2 ЧАСТИ ДЛЯ 1 ВАРИАНТА...