Пoмoгите найти ошибку в программе

[izoalex]

program lab5;
var
x,s:real;
fact,fact1,k:integer;
begin
write('Enter X');
readln(x);
fact:=1;
k:=0;
s:=exp(ln(x/2)*(2*k+1));
writeln('summ= ',s);
for k:=1 to 9 do begin
fact:=fact*k;
fact1:=fact*(k+1);
if k mod 2=0 then
s:=exp(ln(x/2)*(2*k+1))/(fact*fact1)
else
s:=-exp(ln(x/2)*(2*k+1))/(fact*fact1);
writeln('summ= ',s);
end;
readln;
end.

Программа компилируется но после ввода X выходит ошибка:
exited with exitcode = 201

[McFrey]

твоя программа работает...

[White_Nelud]

А что вы в Х вводите? Число или что-то другое?

[izoalex]

число ввожу

[izoalex]

Ввел то же самое число и все равно не работает. А ты через какую прогу делал?

[izoalex]

Вот скрин:
http://programmersforum.ru/attachmen...1&d=1322907432

[McFrey]

ну ты числу "x" присвоил вещественный тип. т.е. дробное число...у меня и в паскаль авс и в борланд паскаль все работает

[izoalex]

Может ошибка из-за использования Free pascal?
Скачал паскаль АВС и на нем все заработало
Тока нам лабу надо сдавать на Free pascal

[Hacker19_90]

Runtime Error 201

Ошибка проверки диапазона!
Короч грубо говоря вам значащих цифр не хватает! в real их 11 или 12!
наверное

[izoalex]

Исправил но на фри паскале все равно не пашет