|
0 / 0 / 0
Регистрация: 18.04.2012
Сообщений: 3
|
|
| 1 | |
Найти норму матрицы18.04.2012, 18:54. Показов 1019. Ответов 0
Метки нет (Все метки)
Матрица дана в StringGrid-е, желательно чтобы норма записалась в Edit Добавлено через 2 часа 55 минут Решил сам, может кому пригодится procedure TForm1.Button3Click(Sender: TObject); var i,j:integer; s,k:real; begin for j:=0 to strtoint(Edit1.Text)-1 do begin s:=0; for i:=0 to strtoint(Edit1.Text)-1 do begin s:=s+abs(strtofloat(StringGrid3.Cells[i,j])); end; StringGrid5.Cells[0,j]:=floattostr(s); end; k:=strtofloat(StringGrid5.Cells[0,0]); for i:=1 to strtoint(Edit1.Text)-1 do if strtofloat(StringGrid5.Cells[0,i])>k then k:=strtofloat(StringGrid5.Cells[0,i]); Edit2.Text:=floattostr(k); end; Записывает норму в Едит
0
|
|
(| 18.04.2012, 18:54 | |
|
Ответы с готовыми решениями:
0
Определите норму заданной матрицы Дана квадратная матрица А порядка n. Определите норму заданной матрицы Дана квадратная матрица А порядка n. Определите норму заданной матрицы
|
| 18.04.2012, 18:54 | |
| 18.04.2012, 18:54 | |
|
Помогаю со студенческими работами здесь
1
Найти L-норму матрицы Найти норму матрицы
Найти норму матрицы Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
