Question

HELP ME!!   задан массив  размерностью (10х10) элементов. присвоить элементам массиваизначение функции Y=cos(x^0.25-0.5x^0.5+0.25x^0.75) при изменении аргумента от 6 с шагом 0.25.
найти максимальный элемент массива. сформулировать  новый массив путем вычеркивания строки и столбца, на которых расположен максимальный элемент.
вывести на экран в формате 3 знака после запятой:
1. исходный массив
2. полученный массив
3. искомые элементы ( если они есть)
предесмотреть возможность вывода на экран и в файл....

Answer 1

Sub Rab()
Dim A(10, 10)
X0 = 6
h = 0.25
Max = -1000
x = X0
For i = 1 To 10    
       For k = 1 To 10        
              A(i, k) = Cos(x ^ 0.25 - 0.5 * x ^ 0.5 + 0.25 * x ^ 0.75)        
               If Max < A(i, k) Then            
                        Max = A(i, k)
                        im = i
                        km = k
                End If
                x = x + h
    Next k
Next i
' Вывод матрицы
For i = 1 To 10    
       For k = 1 To 10        
            Cells(i, k) = Int((0.0005 + A(i, k)) * 1000) / 1000  'Округление А до 3 знака    
        Next k
Next i
' вывод обрезаной матрицы
For i = 1 To 10    
       For k = 1 To 10        
             If i = im Then        
             Else             
                  If k = km  Then
                  Else
                      Cells(i + 12, k) = Int((0.0005 + A(i, k)) * 1000) / 1000
                  End If
             End If
        Next k
Next i
End Sub

ceeb10650e111993456b2e695d8f8c2a.xls

Answer 2

а это какой язык програмирования?

Answer 3

VBA Excel, если на компьютере стоит офис, то и есть этот язык. Открой Word, или лучше Excel /сервис/ макрос /редактор VBA

Answer 4

а в паскаль это тяжко переделать?

Answer 5

Паскалем не пользуюсь уже 20 лет