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

[RaZ.OK2]

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

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

n:=1;
s:=0;

repeat

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

until s>d;

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

end.

результаты
после ввода точности программы вылетает с собщением exited with exitcode = 106

пробовал 1 0,01 0,1 0,2 0,001

[Ybn2]

Вы же опять наступаете на те же грабли until s>d;
Почему Вы сравниваете сумму, а не очередной элемент?
Я бы мог вам полностью решить задачу, но Вы не глупый и в состянии сами ее решить (так будет полезней), а я всего навсего Вам помогу.

[RaZ.OK2]

ьлин думал исправил(
вот результаты с until och<d
1==5.00....00E-001
2==5.00....00E-001
3==5.00....00E-001
0.1==6.66....67E-001
0.01==6.8854166...67E-001

[Ybn2]

Во первых, как я уже говорил, d нужно вводить от 0 до 0.5
Во вторых в выводе суммы, сделайте формат числа, чтобы понятней было, например

writeln('S Равна= ',s:4,5);

И давайте с ново посмотрим.

[RaZ.OK2]

результаты
0.1== 6.7E-0015
0.2==6.3E-0015
0.3==6.3E-0015
0.4==6.3E-0015
0.5==6.3E-0015
кажется опять что то не то(
вот код

program lab3_1;
uses crt;
var
n:integer;
s,och,d: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:4,5);
readkey;

end.

[Ybn2]

Прошу прощения надо

writeln('S Равна= ',s:4:5);

[RaZ.OK2]

понял
вот результаты после изменения
0.1==0.66667
0.2==0.62500
0.3==0.62500
0.4==0.62500
0.5==0.62500

[Ybn2]

Ну все правильно считает, только сам подумай, я к стате говорил, у тебя первый элемент ряда 0.5, а второй 0.125, и смысл вводить точность 0.2, 0.3, 0.4, он будет складывать у тебя только два элемента. Надо вводить 0.1 - 3 элемента,0.0001 и т.д., чтобы точность суммы ряда была точнее. А если хочешь посмотреть слагаемые, в цикле напиши WriteLn(n,': ',och:4:5);

[RaZ.OK2]

спс за подсказки)
Не могли бы Вы еще рассказать как сделать эту программу с помощью функции и процедуры?

[Ybn2]

10 рублей мне на тел положишь?