Даны вещественное число a и натуральное число n. Вычислить S

[Dimaska931]

Составить программу, используя цикл с постусловием. Даны вещественное число a и натуральное число n. Вычислить S.
S=1/a+1/a^2+1/a^4+...1/a^(2n-2)
Помогите, плиз!)

[Poma][a]

Собственно в чем проблемы?
Не знаешь как записать цикл с постусловием? Или что?

[Dimaska931]

Сообщение от Poma][a

Собственно в чем проблемы?
Не знаешь как записать цикл с постусловием? Или что?

В теории знаю принцип работы, но для задач не могу составить программы

[Mad_Cat]

S=1/a+1/a^2+1/a^4+...1/a^(2n-2)

1/a как то выпадает из формулы общего члена ряда

var a,s,o:real;
begin
readln(a);
s:=1/a+1/(a*a);
o:=1/(a*a);
for i:=2 to n do
begin
o:=o/a/a;
s:=s+o;
end;
writeln(s);
readln;
end.

[Dimaska931]

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

1/a как то выпадает из формулы общего члена ряда

var a,s,o:real;
begin
readln(a);
s:=1/a+1/(a*a);
o:=1/(a*a);
for i:=2 to n do
begin
o:=o/a/a;
s:=s+o;
end;
writeln(s);
readln;
end.

почему выпадает? может в задачнике, конечно опечатка, уже раза 2 попадались ошибки

[Mad_Cat]

почему выпадает?

n=0 ;
член ряда равен 1/a^(2*0-2)=a^2 ..а у вас
n=1
член ряда равен 1/a(2*1 -2)= 1/a^0 = 1/1=1 ... аналогично
n=2
член ряда равен 1/a(2*2 -2)= 1/a^2 (ну тут уже все верно)

[Dimaska931]

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

почему выпадает?

n=0 ;
член ряда равен 1/a^(2*0-2)=a^2 ..а у вас
n=1
член ряда равен 1/a(2*1 -2)= 1/a^0 = 1/1=1 ... аналогично
n=2
член ряда равен 1/a(2*2 -2)= 1/a^2 (ну тут уже все верно)

Переподаватель подтвердил, что опечатка в задании, а если вот так сделать? S=1/1+1/a^2+1/a^4+...1/a^(2n-2)