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

[RaZ.OK2]

задача:
Вычислить сумму ряда. Вычисления заканчивать при достижении заданной
степени точности (т.е. очередной член ряда становится меньше введенной точности).
s=1/1*2+1/2*2^2+1/3*2^3 и тд

вот что я написал но он у меня не компилируется(

program lab3_1;
uses crt;
var
   d,n,s:integer;


begin
  writeln('Введите точность ');
  readln (d);

  n:=1;

   repeat

     s:=1\(n*(exp(ln(2)*n)))+s;
     n:=n+1;

   until s<d;

   writeln('S равна= ',s);
   readkey;

end.

[Ybn2]

А что значит не компилируется? В какой паскаль используете и какую ошибку выдает?

[RaZ.OK2]

использую фрипаскаль а ошибка fatal:compilation aborted

[Ybn2]

Ну во первых у вас стоит не правильное условие выхода из цикла, Вы же сами пишите,
(т.е. очередной член ряда становится меньше введенной точности) а условие у Вас until s<d;, т.е сравниваете с не очередным членом ряда, а с суммой, что в принципе никогда (для вашего ряда) не случиться. Исправте это, а потом будем думать дальше, если ошибка не исчезнит.

[RaZ.OK2]

program lab3_1;
uses crt;
var
d,n:integer;
s,och:real;

begin
writeln('введите точность ');
readln (d);

n:=1;
s:=0;

repeat

och:=1/(n*(exp(ln(2)*n)));
s:=s+och;
n:=n+1;

until och<d;

writeln('S Равна= ',s);
readkey;

end.

From Stilet: Для оформления кода попрошу использовать спецтег по кнопке #

так?

[Ybn2]

Все равно ошибка?

[RaZ.OK2]

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

[Ybn2]

Во вторых, у Вас все равно будет бесконечный цикл, потому что вы точность вводите как d:Integer (целое), а у вашего ряда первый элемент 0.5, второй 0.125 третий 0.0416(6) и т.д. т.е. точность нужно определить как Real (Вещественное) и вводить что-то вроде 0.00001

[RaZ.OK2]

хм все равно как то не так она работает)
щас точность определил как реал

[Ybn2]

Сообщение от RaZ.OK2

как то не так она работает)

А покажите пожалуйста код програмы и результаты для введенных значений.