Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
darkdamnation
0 / 0 / 1
Регистрация: 07.10.2013
Сообщений: 7
#1

Табулирование функции и суммы функционального ряда - Delphi

07.10.2013, 21:43. Просмотров 422. Ответов 0
Метки нет (Все метки)

Протабулировать
1. функцию y на отрезке [а, b] с шагом h.
2. сумму S функционального ряда разложения этой функции на отрезке [а, b] с шагом h.
Сравнить значения заданной функции и ее разложения.
Вид вычисляемой функции задать с помощью подпрограммы-функции. Функциональный ряд S вычисляется с точностью до e по соответствующей рекуррентной формуле.

S= -(2*x)^2/2+(2*x)^4+...+ ((-1)^n*(2*x)^2n)/(2n)!+...
0,1<x<1
e=15^-4
y=2(cos^2x-1)

Подскажите, пожалуйста. Не совсем понимаю задание.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons, Math;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    BitBtn1: TBitBtn;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  i,n:integer;
  a,b,h,x,y,s:real;
  F:longint;
implementation
 
{$R *.dfm}
 
function fact(m:Integer):LongInt;
begin
if m=1 then fact:=1
else fact:=n*fact(m-1)
end;
function Sum(y,e,i,x:real):real;
begin
if y<=e then Sum:=1
else Sum:=Power((-1),i)*(Power(2*x,2*i)/fact(2*i));
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
h:=strtofloat(edit3.text);
e:=strtofloat(edit4.Text);
n:=ceil((b-a)/h)+1;
x:=a;
for i:=1 to n do
begin
begin
y:=2*(sqr(cos(x))-1);
if y<=e then
s:=s+Power((-1),i)*(Power(2*x,2*i)/fact(2*i));
memo1.Lines.Add(floattostrf(x,fffixed,5,2));
memo2.Lines.Add(floattostrf(y,fffixed,5,2));
memo3.Lines.Add(floattostrf(s,fffixed,5,2));
x:=x+h;
end;
end;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.10.2013, 21:43
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Табулирование функции и суммы функционального ряда (Delphi):

Табулирование функции и суммы функционального ряда
Протабулировать 1. функцию y на отрезке с шагом h. 2. сумму S...

Табулирование функции и суммы функционального
Табулирование функции и суммы функционального ряда. 1. 3. 7 задан?

Табулирование функции и вычисление суммы ряда
Табулирование Дана функция y=cos(2/x)-2sin(1/x)+1/x и границы отрезка и шаг ...

вычисление суммы функционального ряда
помогите пожалуйста найти ошибку, прога зацикливаеца, не могу вставить...

Рекурсивные процедуры и функции. Вычисление суммы ряда
Дано математическое выражение k - го члена последовательности , где k=1,2,3...

Табулирование функции
Сумма: S=1+ln3/1!*x+ln^2*3/2!*x^2+....+ln^n*3/n!*x^n+.... Диапазон...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2013, 21:43
Привет! Вот еще темы с решениями:

Табулирование функции
Сделал программу, но как оказалось - неправильно написал функцию мне нужно...

Табулирование функции
Нужно протабулировать функцию на отрезке с шагом, и вывести в мемео. unit...

Табулирование функции
текст программы во вложении.можете написать свои функции и значение...

Табулирование функции
В соответствии с указанным вариантом протабулировать значения функции. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru