запрограмувати обчислення суми ряду: S=1-x^(3)+x^(5)-x^(7)+...+x^(2*n+1). значення n та x вводяться з консоля. В паскаль
10-11 класс
|
program k;
var x:real;
n:integer
function f(y:real,j:integer):real;
begin
f:=1
for k:=1 to j do begin
f:=f*y;
end;
end;
begin
readln(x,n);
s:=1;
for i=1 to n do begin
s:=s+f(-1,i)*f(x,2*i+1)
end;
writeln(s);
end.
Другие вопросы из категории
массив целых чисел из 10 элементов заполнить случайным образом. упорядочить массив по возрастанию. подсчитать количество и произведение элементов массива, больших 20 и меньших 50, вывести полученный результат
Дана матрица А (4, 5)
2, 3, -5, -10, 7
4, -10, -3, 2, 4
5, -2, -7, 11, -13
18, 19, -2, -4, -7
Из нее образовать две матрицы: в одной оставить все отрицательные элементы матрицы А (на месте положительных элементов поставить ноль), в другой оставить все положительные элементы (на месте отрицательных поставить ноль).
НАПИСАТЬ ПРОГРАММУ в VBA excel и скинуть сюда документом
Читайте также
вычисления числового ряда для известного числа ряда N. Y=(1-2/5)+(2+4/10)+(3-8/15)+(4+16/20)+...
ических расчетов.
Цикл - это последовательность операторов, которая может автоматически выполняться более одного раза. Если количество повторов известно заранее (или может быть однозначно вычислено), используется оператор Цикл_с_параметром (DO «UNTIL»). Если количество повторов неизвестно, применяется оператор Цикл_с_Пред_условием (DO «WHILE»).
Вычислить сумму ряда:
a) с заданной точностью ξ и вывести количество итераций;
b) для 20-ти членов ряда.
Σ = 1/(1*3) + 1/(3*5) + 1/(5*7) + … ξ=0.0001 Ответ: 0.500
информации. В ряде Б сколько машин осталось?