Составить программу вычисления и печати бесконечной суммы для произвольного значения x, заданного

[kalugin19]

Составить программу вычисления и печати бесконечной суммы для произвольного значения x, заданного
Снимок.PNG

[type_Oleg]

Для вычисления - нет проблем, а вот печати придется ждать бесконечно долго.
Может быть, как то ограничить?

[kalugin19]

задание именно так дано

[kalugin19]

помогите пожалуйста

[Stilet]

Компьютер не умеет считать до бесконечности.
По факту это:

var y,x:double; fac,n,n2:integer;
fac:=2;n:=1;n2:=2;
while true do begin
 y:=y+exp(2*n*ln(x))/fac;
 inc(n);
 inc(n2); fac:=fac*n2;inc(n2); fac:=fac*n2;
end;

Но в реале комп поперхнется бесконечностью.
Так что уточняй задание.

[kalugin19]

может тогда его как то ограничить?

[type_Oleg]

То же сделал, " до бесконечности", чуть по другому

program Pr_inf;
var x,y,t:real;
    n:Integer;
 begin
 write('x= ');
 readln(x);
 t:=1;
 y:=0;
 n:=0;
 while true do  //  бесконечно
  begin
   y:=y+t;  
   Inc(n);
   t:=t*x*x/((2*n-1)*2*n);
  end;
 writeln(y);   // этого никогда не дождетесь
 end.

Так что думайте, что поставить вместо true

[kalugin19]

парни, скажите, для чего в условии дан ch(x)?

[type_Oleg]

Блин, вы вообще хоть что-нибудь знаете.
Гиперболический косинус. Гуглите...
Это - не условие, это то, что разлагается в ряд.

[kalugin19]

что-нибудь может и знаю, спасибо