Найти сумму заданной погрешности 1+sinx+ sin2x/2+sin3x/3+sin4x/4 .... на языке паскаль
Найти сумму заданной погрешности 1+sinx+ sin2x/2+sin3x/3+sin4x/4 .... на языке паскаль
Ответ(ы) на вопрос:
Гость
var
x, s: real;
i, n: integer;
begin
readln(x, n);
s := 1;
for i := 1 to n do
s := s + sin(i * x) / i;
writeln(s);
end.
//или
//PascalABC.NET 3.1 сборка 1219
begin
var x := ReadReal('x =');
Println(
Range(1, ReadInteger('n =')).
Aggregate(1.0, (s, r)-> s + sin(r * x) / r)
);
end.
Не нашли ответ?
Похожие вопросы