Вычислить сумму ряда с заданной точностью - Pascal ABC

  1. При заданном х=0.75 вычислить сумму N членов ряда с точностью e<=0.0001 Сравнить результаты со значением стандартной функции Паскаля. где


textual

Код к задаче: «Вычислить сумму ряда с заданной точностью - Pascal ABC»

uses crt;
const x=0.75;
var n,i:integer;
    e,t,s:real;
begin
repeat
write('Введите точность 0<e<=0.0001 e=');
readln(e);
until(e>0)and(e<=0.0001);
repeat
write('Введите количество слагаемых n>0 n=');
readln(n);
until n>0;
t:=x;
s:=t;
for i:=1 to n do
 begin
  t:=t*x*x*(2*i-1)/(2*i);
  if abs(t)/(2*i+1)>e then s:=s+t/(2*i+1);
 end;
writeln('S=',s:0:5);
write('arcsin(x)=',arctan(x/sqrt(1-x*x)):0:5);
end.

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.917 из 5



Похожие ответы
  1. Вычислить сумму ряда

  1. Ввести трехзначное число .Вычислить корень квадратный второй цифры

  1. Найти сумму целых положительных чисел из промежутка от А до B, кратных 4.(значения А и В вводятся с клавиатуры)

  1. 34. Найти сумму положительных целых чисел, меньших 100

  1. Помогите решить, пожалуйста Вычислить y=tg(x+2)+ctg^2x(ctg(x+1)-tgx), при х=30 градусов, оформив в виде функций вычисление тангенса и котангенса.

  1. Нужно написать программу, в которой пользователь вводит альфа(alpha), а программа бы считывала z1=cos в квадрате от разности ((3/8)*pi-(alpha/4))-cos в квадрате от суммы ((11/8)*pi+(alpha/4)) z2=(корень из 2-х/2)*sin от дроби (alpha/2)

  1. Вычислить значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

  1. Дано числовую последовательность (100, 97, 94, ...). Найти сумму 30-ти членов последовательности чисел

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!