Паскаль. Вычислить сумму ряда. (помогите найти ошибку в программе)

[Максимилианн]

Суммирование рядов.

Program q;
const n=1000; e=0.0001;
label met;
var x,y,s,xn,xk,dx,c:real;
k,i:integer;
begin 
write('xn='); readln(xn);
write('xk='); readln(xk);
write('dx='); readln(dx);
x:=xn;
while x<=xk do 
begin 
y:= (exp(x)+exp(-x))/2;
c:=x;
s:=1+(sqr(x)/2);
for i:=1 to n do 
begin 
c:=c*sqr(x)/i;
if abs(c)<e then goto met;
s:=s+c;
end;
met:writeln('x=',x,'  ', 'y=',y,'  ', 's=', s,'  ', 'i=',i);
x:=x+dx;
end; 
end.

[Вадим Мошев]

Вообще, лучше бы полностью переписать программу.


1. Не используйте оператор goto.

2. советую до цикла задать s = 1, а в цикле считать член ряда и прибавлять его к сумме.
3. Обойтись можно и одним циклом. Замените while на for, а второй уберите.

[Максимилианн]

на самом деле ничего не понимаю в паскале, кроме самых банальных операторов. и все это сделал по шаблону

[Вадим Мошев]

Я ошибся, второй цикл всё же нужен. ну ладно... а вы на кого учитесь? Может вам имеет смысл обратиться за платной помощью, чтобы вам решили эти задачи, а вы их могли только сдать?

[Максимилианн]

учусь на строителя. с этим заданием вроде-как должны суметь справиться, вот и пытаюсь.. думал если уж мозги совсем сплавятся буду покупать

[Вадим Мошев]

Если потребуется платная помощь, обращайтесь на адрес:
vadimFreelance {(собаka} yandex {точка>} ru
За одно укажите другие средства связи с вами (Skype/ICQ), если таковые имеются.

[Poma][a]

Я упорно не понимаю, каким боком там стоит 1-ка..
Однако..

ReadLn(x);

k := x;
s := 1;
for i := 2 to 2*n do begin
	k := k * x / i;
	s := s+k
end;

Второй я не понимаю..
Можно просто вычислить y = (e^2-e^(-2) )/ 2.. и всё..

[Аватар]

Сначала разберитесь что вообще в задании нужно сделать. Есть некий ряд, интервал для аргумента и приращение аргумента. Вычислить значение суммы ряда для всех значений аргумента на заданном интервале с заданным приращением? Для чего функция y(x)?

[Serge_Bliznykov]

Сообщение от Аватар

Для чего функция y(x)?

тоже думал об этом.
Не проверял, но подозреваю, что эта функция для проверки точности ряда - данный ряд как раз и вычисляет значение представленной функции.

Нужно вычислять ряд, нужно вычислить функцию и сравнить результаты.

Ещё раз повторю, чтобы акцентировать внимание - данное утверждение - это мои догадки, я их не проверял и поэтому ручаться за истинность не возьмусь!

[Вадим Мошев]

Я уверен в том, что функция y(x) нужна для проверки результата. Ещё раз повторю, y(x) - оригинал, а s(x) разложение этой функции в ряд. При достаточно большом n различия между y(x) и s(x) должны быть "не заметны", то есть совпадать друг с другом до знака 4-5 после запятой, хотя здесь ещё аргумент играет роль, если я не ошибаюсь. При неизменном n и увеличивающимся x разница y(x) и s(x) возрастает.