Задачи Паскаль

[ЕленаКсен]

Я не знаю где начало(
Такие условия задачи(

а что 3 ?

[RUSt88]

эх, девушка, девушка... ну нельзя вам отказывать )))

Дана последовательность An и e>0. Найти первый член последовательности An для которого lAn - An-1l < e.
An = 1+ 1/2^x + 1/4^x + 1/6^x + ...

program p;
var
    e: real;
    a, b, c: real;
    i, j: integer;
begin
    writeln("Raschet posledovatelnosti");
    Writeln("Vvedite tocnost e: ");
    Readln(e);
    b := 1;
    a := 1;
    i := 2;
    repeat
        c := b;
        b := 1 /i;
        a := a + b;
        inc(i, 2);
    until ( abs(b - c) > e );
    writeln("Posledovatelnost = ", a);
    readln;
end;

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

[ЕленаКсен]

спасибо
а почему не возвели в степень?
как это сделать?

[_-Re@l-_]

возведение в степень(общая суть)

t:=x;
for i:=1 to y-1 do
x:=x*t;

[Stilet]

общая суть

Очень плохая суть.
Число:=exp(Степень*LN(базы)) - гораздо лучший вариант

[_-Re@l-_]

Ну ... просто я ещё не знаю что такое экспонента.. А из логарифмов вообще только lg и log
Гляньте снова код - я подправил

[ЕленаКсен]

Извините, не могли бы вы написать эту задачу с изменениями?
пожалуйста

[ЕленаКсен]

Извините, не могли бы вы написать эту задачу с изменениями?
пожалуйста

[ЕленаКсен]

или скажите куда писать эту степень

[ROMA2PVT]

b := 1 /i;

ХеХе.А по коду непонятно куда писать да.