Найти сумму ряда S

@kaz1naka · Регистрация: 14.05.2013

Author24 — интернет-сервис помощи студентам

Найти сумму ряда S функции y=f(x) в диапазоне 0,1 ... 1 с шагом 0,1. Ответ вывести тремя столбцами x, S, y.

y=cosx ; s=Ʃ¹⁰_n=1 (-1)ⁿ*x²ⁿ/(2n)*xⁿ

Ошибка: вещественное деление на 0 (4.pas, строка 27)
помогите плиз.

Pascal

Program zadanie_4;
Uses crt;
 
 const
 hy=0.1;
 g=10;
 var
 n:integer;
 k,y,yn,yk,s,x:real;
 
 Begin
  clrscr;
  Writeln(' s - сумма чисел');
  Writeln(' ___________________');
  Writeln(' !  x  !  S  !  y  !');
  Writeln(' ___________________');
  S:=0;
  yn:=0.1;
  yk:=1;
   For N:=1 to g do
    Begin
     y:=yn;
     y:=cos(x);
     If N mod 2=0 then k:=1
      else k:=-1;
       Repeat
        s:=s+k*(exp(2*n*Ln(x))/(2*n)*exp(n*ln(x)));
        Writeln(x:5:1,s:6:2,y:8:2);
        y:=y+hy;
       until y>yk;
    end;
 end.

	19.05.2013, 12:38

Опции темы