Расставить в порядке возрастания элементы массива. - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д