Паскаль.Отыскать приближенное значение суммы ряда.Вот приблизительно, что сумел сделать, только надобно

Question

Паскаль.Отыскать приближенное значение суммы ряда.Вот приблизительно, что сумел сделать, только надобно

Паскаль.Отыскать приближенное значение суммы ряда.
Вот приблизительно, что сумел сделать, только надо дополнить либо поправить что-то:
var n,k,s,e:real;
begin
writeln ('vvedite slagaemoe');
readln(e);
n:=1;s:=1;
repeat
n:=n+1;
k:=1/n;
s:=s+k;
writeln(s);
until k=e;
writeln ('summa riada =',s);
end.
Напишите пожалуйста, на сто процентов программку.

Задать свой вопрос

Алла Чужевская 2019-02-06 11:40:22

В постановке задачки ошибка. Вероятность того, что значение вида i*cos(3*i) , будет Одинаково eps недалека к нулю.

Леночка
Информатика
2019-02-06 11:34:18
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

6-7 вопросов к предложению Sam could ski twice a week last

Для ветхого за готовили выкройки заплаток. Сторона каждого квадрата на 10

решиииттееее пожалуйстаа )2 заданиевместе с дано, решением

ажетт шылауларды ойып жазыдар. Мезгл маынасын беретн сздерд астын сызыдар.1. Пн

срочно! пж решите!!!!

разделите число 96 в отношении 1)1:2:3, 2)3:5:8

помогите пжпжпжпжпжпж

К сплаву массой 600 г., содержавшему 20% меди, добавили 40 г.

Прямоугольник разделён на 10 квадратов. Периметр закрашенного квадрата равен 36. Найдите

[tex]35 frac415 - 29 frac15 [/tex]помагите решить

Денис · Answer 1 · 2019-02-06 11:35:52+3:00

Var x,eps,xk,s:real; k:integer;
begin
writeln ('vvedite x');
readln(x);
writeln ('vvedite eps');
readln(eps);
k:=0;s:=0;
repeat
k:=k+1;
xk:=k*cos(k*x);
s:=s+xk;
until abs(xk)lt;=eps;
writeln ('summa riada =',s);
end.

Пример:
vvedite x
1.5
vvedite eps
0.9
summa riada = 7.073720166770291e-02

О проекте

Паскаль.Отыскать приближенное значение суммы ряда.Вот приблизительно, что сумел сделать, только надобно

Добро пожаловать!