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

[igor278130]

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

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

 

[igor278130]

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

 

[Vladimir_S]

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

Да... тяжелый случай. Молодой человек, ну что Вы за ахинею вместо формулы выложили, да еще набрав в незнамо каком редакторе? Вы это имели в виду:

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

 

[igor278130]

да именно это

 

[Vladimir_S]

да именно это

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

 

[igor278130]

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

 

[Vladimir_S]

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

 

[igor278130]

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

 

[Vladimir_S]

Получите:

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.

 

[AlexZir]

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

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

 

[Vladimir_S]

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

Лёш, ну Вы умный - сил нет! На самом деле тут исключительно психологический момент. С самого начала я решил было формулы несколько "причесать", но потом подумал, что:
1. Пусть будет так - оно нагляднее.
2. Пусть препод улыбнется, а улыбнувшись, вдруг да поверит, что студент это сам написал. Маловероятно, конечно, но шансов всё-таки чуть больше...

 

[igor278130]

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

6 вариант пожалуйста

 

[AlexZir]

6 вариант пожалуйста

Ну и в чем проблема? Подставляете вместо x значение x0, вычисляете члены ряда и суммируете их в цикле до тех пор, пока они не меньше допустимого, результат - выводите на экран.

Задачи у вас практически все однотипные, только самую малость подумать надо.

 

[AlexZir]

Пусть препод улыбнется, а улыбнувшись, вдруг да поверит, что студент это сам написал. Маловероятно, конечно, но шансов всё-таки чуть больше...

Не, зря стараетесь, все равно не поверит, особенно видя "успехи" этого студента на занятиях

 

[Vladimir_S]

Задачи у вас практически все однотипные, только самую малость подумать надо.

Абсолютно согласен! Две задачи разобраны, программы выложены - вполне достаточно!