Pascal : Составление и отладка программ циклической структуры

[Базиля]

Мой косяк.
Исправлено.

var
i,j:integer;
  s,a,x:real;
begin
  s := 0;
  writeln('Введите x');
  readln(x);
 s:=x;
 i:=3;
  while i<=13 do
    begin
    a:=exp(i*ln(x));
    s:=s+(a/(i-1));
    i:=i+2;
    end;
  WriteLn('Ответ=',s:8:3);
  ReadLn;
end.

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

вообщето только полодительные так как:

x:=exp(i*ln(x));

натурального лагорифа от отрицательных не существует...

Дело в том что значение x, заданное изначально, теряется И там идет переполнение вещественного типа, в этом и была ошибка

[VIK_aka_TOR]

Дело в том что значение x заданное изначально, теряется И там действительно идет переполнение вещественного типа, в этом и была ошибка

согласен.... но отрицательные всеравно запрещенно вводить)))

[Базиля]

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

согласен.... но отрицательные всеравно запрещенно вводить)))

Я этого не отрицал

[Леша Цыбин]

спасибо за помощь ) Теперь я могу идти спать спокойно...)