2 задания на паскале(сумма ряда, помогите найти ошибку)

[Niko Uoki]

1) найти сумму S с точность до Е
S=∑^n=1^∞ 1/n^2*(sin(n)+1)
Помогите, пожалуйста найти ошибку: когда запускаю программу и ввожу Е выдает Error 200: Division be zero Вот что у меня получилось:

Program four;
Uses crt;
var
e,s,m: real;
n: integer;
begin
writeln('please enter E');
read(e);
s:=0;
n:=0;
repeat
inc(n);
m:=1/sqr(n)*(sin(n)+1);  {ошибку указывает в этой строчке=(((}
s:=s+m;
until
abs(s)>e;
writeln('S = ',s:3:);
readkey;
end.

2)Помогите пожалуйста разобраться с заданием
Найти Z
Z=cos(f(f(a^2-1,b),f(a-b,b))+f(a^2,b^2+0,2)) , где f(u,v)=|u+v|,u*v<=0 ; f(u,v)=|u-v|,u*v>0
Не пойму что и как тут нужно делать=(

[Cannibal]

подозреваю, что (sin(n)+1) должно быть в знаменателе(а у тебя оно получается в числителе), поэтому добавь скобки


условие выхода из цикла не верно

var
e,s,s1,m: real;
n: integer;
begin
writeln('please enter E');
read(e);
s:=0;
n:=0;
repeat
inc(n);
s1:=s;
m=1/(sqr(n)*(sin(n)+1));   {ошибку указывает в этой строчке=(((}
s:=s+m;
until
abs(s-s1)>e;

[Niko Uoki]

Cannibal, спасибо большое, работает, только возникла новая проблема: при любом значении Е он выдает сумму = 845,967...не подскажете в чем проблема может быть?

[Niko Uoki]

По второму заданию вопрос снимаеться.