Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Написать процедурами и функциями программу вычисления всех членов ряда не меньше заданного числа E=10^-6 <br>
вот ряд: <br>
sin x/2=x/2-x^3/2^3*3!+...+(-1)^n+1*((2x^n-1)/n-1!)+... <br>
**********************<br>
n=-n*x^2/(4*i(i+1))
Блок схема

Просмотров: 98
Объяснение: -
Отзывов: 0

РЕШЕНИЕ:

Program PascalGuru; {----------------------------------------} function pow(x:real;n:integer):real; var r:real; i:integer; begin r:=x; for i:=1 to n-1 do r:=r*x; pow:=r; end; {----------------------------------------} function fact(n:integer):longint; begin if n=1 then fact:=1 else fact:=fact(n-1)*n; end; {----------------------------------------} procedure task(x:real; var summa:real); var temp:real; n:integer; begin n:=1; summa:=1; repeat inc(n); temp:=( pow(-1,n+1)*(pow(x,(2*n)-1)/(pow(2,(2*n)-1)*fact((2*n)-1) ) ) ); summa:=summa+temp; until temp<-0.0000001; end; {----------------------------------------} var x,summa:real; begin write('X:');readln(x); task(x,summa); writeln('Summa: ',summa:0:6 ); readln; end.
нажми на эту область и скопируй решение


	© 2008 - 2012 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.