Вычислить значение ряда по формуле. Паскаль

[OlS]

Помогите пожалуйста! Написала программу, но результаты работы программы не совпадают с результатами, посчитанными в exсel. нужно для лабораторной работы в универ. Помогите исправить. ВСЕМ СПАСИБО ЗА ПОМОЩЬ ПО ПЕРВОЙ ЛАБЕ!

извините все, но хочу еще обратиться со второй лабораторной. тоже проблема.
Задание


прога:

program laba2;
Uses CRT; 
var x,y,i:integer; 
begin 
clrscr; 
writeln('x='); 
readln(x); 
y:=0; 
for i:=1 to 23 do 
begin 
i:=i+2; 
if i=3 or 7 or 11 or 15 or 19 or 23
then y=y+(1/i*exp(i*ln(x))); 
else y=y-(1/i*exp(i*ln(x)));
end; 
writeln('y=', y); 
readln; 
end.

________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[whatever]

Похоже в экселе ошибочка.

[OlS]

Спасибо! Вопрос: почему ограничения заданы именно такими числами? (х и у)

[whatever]

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

Спасибо! Вопрос: почему ограничения заданы именно такими числами? (х и у)

Потому, что у тебя на скриншоте такие, а вручную мне вводить было лень

[OlS]

я имею в виду wtiteln(x:2:9)
кстати, у меня программа почему то не запускается

[whatever]

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

я имею в виду wtiteln(x:2:9)
кстати, у меня программа почему то не запускается

2 означает, что для вывода значения переменной x используется 2 позиции, важнА тут только 9 - количество знаков после запятой. Программа может не запускаться, если нет модуля math например.

[OlS]

его убрала как раз таки. все равно пишет : неизвестный индефикатор

[OlS]

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

2 означает, что для вывода значения переменной x используется 2 позиции, важнА тут только 9 - количество знаков после запятой. Программа может не запускаться, если нет модуля math например.

где ошибка?

[Аватар]

Программа может не запускаться, если нет модуля math например

его убрала как раз таки. все равно пишет : неизвестный индефикатор

Нормальный ход мыслей

[BDA]

Добавьте перед begin:

function Arcsin (x : real) : real;
begin
Arcsin := Arctan(x/Sqrt(1-x * x));
end;