Опубликовано 4 года назад по предмету Информатика от valer4ik18

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

Ответ

Ответ дан v1248

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
1. Ответ
  
  Ответ дан valer4ik18
  
  а это какой язык програмирования?
2. Ответ
  
  Ответ дан v1248
  
  VBA Excel, если на компьютере стоит офис, то и есть этот язык. Открой Word, или лучше Excel /сервис/ макрос /редактор VBA
3. Ответ
  
  Ответ дан valer4ik18
  
  а в паскаль это тяжко переделать?
4. Ответ
  
  Ответ дан v1248
  
  Паскалем не пользуюсь уже 20 лет

Самые новые вопросы

Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают