Технический форум - Здравствуйте, помогите пожалуйста написать программы на языке Паскаль

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

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

3 вариант
Вычислить значение суммы ряда с заданной степенью точности e=0.001 в точке x0 (если задана точка x0) или протабулировать с шагом h [a,b] (если заданы a,b,h):

Вычислить значение суммы ряда с заданной степенью точности Е=0.001 в точке х0 (если задана точка х0) или протабулировать с шагом h на [a,b] (если заданыa,b,h)
X0= -,
A=0.2,
B=0.8,
H=0.2.

Цитата:

Сообщение от igor278130 (Сообщение 967978)

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

Да... тяжелый случай. Молодой человек, ну что Вы за ахинею вместо формулы выложили, да еще набрав в незнамо каком редакторе? Вы это имели в виду:
Вложение 159798
Или может быть что-то другое? Почему было не набрать формулу в нормальном редакторе или, на худой конец, не написать аккуратно от руки и не сфотографировать? Цирк, да и только.
Теперь по задачам.
В наши цели не входит выполнение детских заданий за лентяев. Если совсем ничего не можете, пролистайте программистский раздел нашего форума (подразделы "Помощь студентам" и "Delphi, Kylix and Pascal") - здесь решений подобных задачек выложено море, затем попробуйте хоть что-нибудь изобразить самостоятельно, а мы Вам поможем, не сомневайтесь.
Успехов!

да именно это

Цитата:

Сообщение от igor278130 (Сообщение 968012)

да именно это

Чудесно! Ну а как насчет что-нибудь написать для разгона? Или совсем никак?

Пожалуйста помогите решить эти 2 задачи!:tehnari_ru_837::tehnari_ru_837::tehnari_ru _837:

Н-да... Чувствую, всё моё педагогическое красноречие отправилось псу под хвост... Ладно, сделаю. Минут через 15-20, надеюсь, закончу.

спасибо огромное

Получите:

Код:

Const

 Eps=0.001;



Function Sum(x:real):real;

var

 S,a:real;

 i:word;

begin

 a:=x*2;

 S:=a;

 i:=0;

 Repeat

  Inc(i);

  a:=-a*x*x*2*2/(i*2*(i*2+1));

  S:=S+a;

 Until Abs(a)<Eps;

 Sum:=S;

end;



Begin

 Writeln('Result: ',Sum(0.2):0:5);

 Readln

End.

Код:

Const

 Eps=0.001;

 A=0.2;

 B=0.8;

 H=0.2;



Var

 N,i:byte;

 x:real;



Function Sum(z:real):real;

var

 S,q:real;

 j:word;

begin

 q:=-z*z;

 S:=q;

 j:=1;

 Repeat

  Inc(j);

  q:=-q*(j-1)*(j-1)*z*z/(j*j);

  S:=S+q;

 Until Abs(q)<Eps;

 Sum:=S;

end;



Begin

 N:=Round((B-A)/H);

 For i:=0 to N do

  begin

   x:=A+H*i;

   writeln('x= ',x:3:1,'    Sum= ',Sum(x):0:5);

  end;

 Readln

End.

Цитата:

Сообщение от Vladimir_S (Сообщение 968036)

a:=-a*x*x*2*2/(i*2*(i*2+1));

а сразу на 4 умножить слабо? :)