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

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

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

                    Листинг программы
                
 
                        
                          
                    
 Sub задача5()
 Dim p(100)
 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 20
 If (p(i) <= p(i + 1)) Then
 k = p(i)
 p(i) = p(i + 1)
 p(i + 1) = k
 End If
 Next i
 
 For i = 1 To 20
 
 Cells(i, 7).Value = p(i)
 Next i
 
 End Sub

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы