Расставить в порядке возрастания элементы массива. - VB

Узнай цену своей работы

Формулировка задачи:

Здраствуйте уважаемые программисты!не могли бы вы помочь разобратся с задачей: Сформировать массив р из 20 элементов, i – ый элемент которого определяется по формуле: Р_i=x*c^i (sin x/i), где:х=0,225. Расставить в порядке возрастания элементы массива. Мой макрос (почему то выдает значения в разноброс!!!)

Решение задачи: «Расставить в порядке возрастания элементы массива.»

textual
Листинг программы
Dim p(100) As Single, k#, i%, j%
 
x = InputBox("Ââåäèòå Г§Г*Г*Г·ГҐГ*ГЁГҐ x")
c = InputBox("Ââåäèòå Г§Г*Г*Г·ГҐГ*ГЁГҐ c")
For i = 1 To 20
p(i) = x * (c) ^ (i) * (Sin(x / i))
Next i
 
For i = 1 To 19
  For j = i + 1 To 20
   If p(i) > p(j) Then
     k = p(i)
      p(i) = p(j)
       p(j) = k
    End If
  Next j
Next i
 
For i = 1 To 20
 
Cells(i, 7).Value = p(i)
Next i

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.2 из 5
Похожие ответы