macros Posted November 28, 2011 Report Share Posted November 28, 2011 помогите решить а то я рекуррентные формулы не понимаю!!! мой вариант 11 на паскале Quote Link to comment Share on other sites More sharing options...
Тролль Posted November 28, 2011 Report Share Posted November 28, 2011 Для таких вопросов есть специальная тема "Заказы "Сделайте все за меня"". var k:integer; x,p,f,s,e:real;begink:=0; f:=1; p:=-1; s:=1; x:=0.75; e:=0.0005; repeat k:=k+2; f:=f*(k-1)*k; p:=-p*x*x*(k-1)/f; s:=s+p; until abs(p)<e; writeln(s:10:5); readlnend. 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.