Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму. - Pascal
Формулировка задачи:
Надо решить две задачки выручите пожалуйста!
1.Дано вещественное число X и целое число N (> 0). Найти значение выражения
X – X3/(3!) + X5/(5!) – … + (–1)N•X2•N+1/((2•N+1)!)
(N! = 1•2•…•N). (Полученное число является приближенным значением функции sin в точке X).
2.Дано число A (> 1). Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму.
Решение задачи: «Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму.»
textual
Листинг программы
uses crt; var x,t,s:real; n,i:integer; begin clrscr; write('Введите действительное число x='); readln(x); write('Введите целое число n='); readln(n); s:=x;{первое значение} t:=x; for i:=2 to n do{следующие} begin t:=-t*x*x/((2*i-1)*(2*i-2));{меняем знак, домножаем на x^2, делим на следующую пару чисел (2*3, 4*5, 6*7)} s:=s+t;{суммируем} end; writeln('S =',s:0:4); write('Sin=',sin(x):0:4); readln end.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая используется для работы с числами с плавающей точкой.
- Переменные x, t и s объявлены как real, что позволяет работать с числами с плавающей точкой.
- Переменная n объявлена как integer, что позволяет работать с целыми числами.
- С помощью функции readln считывается ввод пользователя для переменных x и n.
- Значение переменной s инициализируется значением x.
- В цикле for переменная t инициализируется значением x, а переменная s суммирует значения t и s.
- После завершения цикла значение переменной s выводится на экран.
- Затем вычисляется значение sin(x) с помощью встроенной функции sin.
- Код завершается с помощью функции readln.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д