Безотлагательно!! ПОМОГИТЕ ПОЖАЛУЙСТА Необходимо отыскать наибольший элемент основной диагонали матрицы
СРОЧНО!! ПОМОГИТЕ ПОЖАЛУЙСТА
Нужно отыскать наибольший элемент главной диагонали матрицы (делфи).
Делаю вот так, но ничего не выходит
procedure TForm1.Button2Click(Sender: TObject);
var i,max,j:byte;
begin
max:=strtoint(stringgrid1.Cells[1,1]);
for i:=1 to n do
if strtoint(stringgrid1.cells[i,i])gt;max then
max:=strtoint(stringgrid1.Cells[i,i]);
label2.caption:=floattostr(max);
end;
1
2
3
4
5
6
7
8
9
procedure TForm1.Button3Click(Sender: TObject); //поиск максимального элемента
...
begin
...
Max:= StrToFloat(strngrd1.Cells[0,0]);//присвоим значение 1 элемента
for i:=0 to strngrd1.ColCount - 1 do //цикл по столбцам
for j:=0 to strngrd1.RowCount - 1 do //цикл по строчкам
...
end;
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.