Программа вычисления бесконечного числового ряда

[anna_]

Turbo pascal 7
Задание:
Составить программу вычисления и выдачи на печать суммы N элементов бесконечного числового ряда:
у=(1-6)+(11-16)+(21-…
Видно что в каждой следующей скобке оба числа увеличиваются на 10
была написана следующая программа:

program kontr;
uses crt;
var i,a,b,y,s,N:integer;
begin
clrscr;
write('Vvedite N = ');
readln(N);
a:=1;
b:=6;
y:=0;
for i:=1 to n do
begin
s:=a-b;
a:=a+10;
b:=b+10;
y:=y+s;
end;
writeln('y = ',y);
readln;
end.

Но преподаватель назвал это подгонкой и сказал все загнать под общую формулу
Я ума не приложу что он имел ввиду(
Может кто знает, как тут загнать под общую формулу?

[Utkin]

program kontr;
uses crt;
var i,y,N:integer;
begin
clrscr;
write('Vvedite N = ');
readln(N);
y:=0;
for i:=1 to n do
begin
y:=y-5;
end;
writeln('y = ',y);
readln;
end.

[anna_]

Сообщение от Utkin

program kontr;
uses crt;
var i,y,s,N:integer;
begin
clrscr;
write('Vvedite N = ');
readln(N);
y:=0;
for i:=1 to n do
begin
s:=-5;
y:=y+s;
end;
writeln('y = ',y);
readln;
end.

я думала о таком, но неужели все настолько просто? )

[Utkin]

Ну я не знаю, что имел ввиду Ваш препод, но я бы поступил именно таким образом.

[anna_]

Спасибо) попробую предложить такой вариант )

[anna_]

задача та же что и описна в шапке, только вариант другой:
у=32(-16)8(-4)2…
видно что каждое последующее число делится на -2
думаю что без жесткого задания первого элемента не обойтись
но если например

..........
k:=32;
s:=1;
for i:=1 to n do
begin
p:=k;
k:=k/(-2);
s:=s*p;
end;
.....

Правильно ли ? вроде нужный результат выдает правильно

[Serebro]

а для чего здесь p и s?

[anna_]

а можно как то по другому ?

[olliGri]

ПОЖАЛУЙСТА ПОМОГИТЕ РЕШИТЬ!!!!
СОСТАВИТЬ ПРОГРАММУ ВЫЧИСЛЕНИЯ СУММЫ БЕСКОНЕЧНОГО РЯДА(ФУНКЦИЯ бЕССЕЛЯ ПЕРВОГО РОДА,ПОРЯДКА)
I1(Z)=Z/2*∑_(Z=0)^∞▒((-Z^2 (〖4〗^2)/(k!(k+1)!)
С ТОЧНОСТЯМИ 10-3 ,10-6,10-8 ДЛЯ Z=0.7,Z=1.1
I(0.7)=0.3289957415
I(1.1)=0.4709023949