Задача 1. Переменные с одним индексом
Условие
Элементы последовательности \{z_i\} определяются по формуле z_i=x_i\cdot\ln\frac{1+x_i}{1-x_i}, i=\overline{0, 5}.
Значения x_i задаются таблицей:
| i | 0 | 1 | 2 | 3 | 4 | 5 |
|---|---|---|---|---|---|---|
| x_i | 0,5 | -0,5 | 0,2 | 0,7 | -0,35 | 0,63 |
Вычислить сумму тех элементов последовательности, величины которых удовлетворяют условию z_i>0,9.
Решение
Блок-схема
Текст программы
CLS ‘очистка экрана
DIM x(6) ‘объявление массива x(i)
x(0) = .5 ‘присваивание значений элементам массива x(i)
x(1) = -.5
x(2) = .2
x(3) = .7
x(4) = -.35
x(5) = .63
s = 0 ‘начальное значение суммы равно 0
FOR i = 0 TO 5 ‘начало цикла вычисления элемента z(i)
z(i) = x(i) * LOG((1 + x(i)) / (1 - x(i))) ‘вычисление элемента z(i)
IF z(i) > .9 THEN s = s + z(i) ‘сравнение элемента z(i) с 0,9 и увеличение суммы, в случае выполнения условия z(i)>0,9
NEXT i ‘возврат в начало цикла
PRINT s ‘вывод значения суммы тех элементов последовательности, которые >0,9Экран среды исполнения
Экран результатов выполнения
Задача 2. Нахождение конечных сумм
Условие
Найти S=\frac{4}{\pi}\cdot\left(\frac{1}{2}-\frac{\cos 2x}{1\cdot3}-\frac{\cos 4x}{3\cdot5}-\frac{\cos 6x}{5\cdot7}-\cdots\right) при -\frac{\pi}{2}\le x\le\frac{\pi}{2}, \varepsilon=0,0001.
Вывести на экран S и N.
Решение
Блок-схема
Текст программы
CLS ‘очистка экрана
pi = ATN(1) * 4 ‘вычисление числа пи
10 PRINT "Vvedite x" ‘ввод значения x
INPUT "x = ", x
IF x <= -pi / 2 OR x >= pi / 2 THEN ‘проверка попадания x в интервал
PRINT "oshibka: -pi/2<=x<=pi/2"
GOTO 10 ‘повтор ввода, если не попадает
END IF ‘конец условия проверки попадания в интервал
n = 1 ‘присвоение начального значения счетчику итераций
s = 2 / pi ‘начальное значение суммы
d = 1 ‘задание заведомо большого значения ε
WHILE ABS(d) > .0001 ‘сравнение разностей последовательных значений суммы
s1 = s ‘фиксирование предыдущего значения суммы
s = s - 4 / pi * COS(2 * n * x) / (2 * n - 1) / (2 * n + 1) ‘получение текущего значения суммы
n = n + 1 ‘увеличение счетчика итераций
d = s - s1 ‘сравнение текущего и предыдущего значений суммы
WEND ‘конец цикла при достижении условия
PRINT "summa S = ", s ‘вывод S
PRINT "kolichestvo iteracij N = ", n - 1 ‘вывод N
Экран среды исполнения
Экран результатов выполнения
процедура огонь и лед для лица
Пользователь, раз уж ты добрался до этой строки, ты нашёл тут что-то интересное или полезное для себя. Надеюсь, ты просматривал сайт в браузере Firefox, который один правильно отражает формулы, встречающиеся на страницах. Если тебе понравился контент, помоги сайту материально. Отключи, пожалуйста, блокираторы рекламы и нажми на пару баннеров вверху страницы. Это тебе ничего не будет стоить, увидишь ты только то, что уже искал или ищешь, а сайту ты поможешь оставаться на плаву.