Помогите решить 2 легкие задачки - VB
Формулировка задачи:
Извините что отвлекаю но подруге требуется помощь.Дала 2 задачки:
Задача 1
А. Составить процедуру сортировки по убыванию значений элементов массива А(К) (К - заданное число).
В. Используя процедуру рассортировать по убыванию значения элементов каждого столбца массива С(5,4).
Задача 2
А. Составить функцию для вычисления:
У = 1 -х2/2!-х4/4!-х6/6!-...
принимая, что аргумент X по модулю меньше единицы. Вычисления продолжать, пока модуль разности между слагаемым и его предыдущим значением не меньше малой заданной величины (точности вычислений).
В. Напечатать таблицу значений функции У для аргумента X, изменяющегося от заданного начального значения до заданного конечного с заданным шагом.
Задача 1
А. Составить процедуру сортировки по убыванию значений элементов массива А(К) (К - заданное число).
В. Используя процедуру рассортировать по убыванию значения элементов каждого столбца массива С(5,4).
Задача 2
А. Составить функцию для вычисления:
У = 1 -х2/2!-х4/4!-х6/6!-...
принимая, что аргумент X по модулю меньше единицы. Вычисления продолжать, пока модуль разности между слагаемым и его предыдущим значением не меньше малой заданной величины (точности вычислений).
В. Напечатать таблицу значений функции У для аргумента X, изменяющегося от заданного начального значения до заданного конечного с заданным шагом.
Решение задачи: «Помогите решить 2 легкие задачки»
textual
Листинг программы
<font color="blue">Function</font> Xnext(Xprev, x, n) <font color="blue">As</font> <font color="blue">Double</font>
Xnext = Xprev * x ^ <font color="darkblue"><b>2</b></font> / (n * (n - <font color="darkblue"><b>1</b></font>))
<font color="blue">End</font> <font color="blue">Function</font>
<font color="blue">Function</font> Y(x, d) <font color="blue">As</font> <font color="blue">Double</font>
Y = <font color="darkblue"><b>1</b></font>
X0 = <font color="darkblue"><b>1</b></font>
n = <font color="darkblue"><b>0</b></font>
<font color="blue">Do</font>
n = n + <font color="darkblue"><b>2</b></font>
Xn = Xnext(X0, x, n)
<font color="blue">If</font> Abs(Xn - X0) > d <font color="blue">Then</font>
Y = Y - Xn
X0 = Xn
<font color="blue">Else</font>
<font color="blue">Exit</font> <font color="blue">Do</font>
<font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Loop</font>
<font color="blue">End</font> <font color="blue">Function</font>
<font color="blue">Sub</font> test()
d = <font color="darkblue"><b>10</b></font> ^ -<font color="darkblue"><b>10</b></font>
i = <font color="darkblue"><b>1</b></font>
<font color="blue">For</font> x = -<font color="darkblue"><b>0</b></font>.<font color="darkblue"><b>5</b></font> <font color="blue">To</font> <font color="darkblue"><b>0</b></font>.<font color="darkblue"><b>5</b></font> + d <font color="blue">Step</font> <font color="darkblue"><b>0</b></font>.<font color="darkblue"><b>1</b></font>
Cells(i, <font color="darkblue"><b>1</b></font>) = x
Cells(i, <font color="darkblue"><b>2</b></font>) = Y(x, d)
i = i + <font color="darkblue"><b>1</b></font>
<font color="blue">Next</font>
<font color="blue">End</font> <font color="blue">Sub</font>