74

Написать прогу на паскале! Дан числовой ряд и некоторое малое число e (например,…

02 марта 2023

Написать прогу на паскале! Дан числовой ряд и некоторое малое число e (например, e=0,00001). Найти сумму тех членов ряда, модуль которых большеили равен заданному e. Общий член ряда имеет вид: An=n! / (2n)!

категория: информатика



42

var fac1,fac2,sum,an,e: real; i,j: integer; beginreadln (e); an: =0,5; fac1: =1; fac2: =1; i: =1; while an>=e do begin inc (i); sum: =an+sum; for j: =1 to i do fac1: =j*fac1; for j: =1 to 2*i do fac2: =j*fac2; an: =fac1/fac2; end; writeln (sum); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...