Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 25.06.2015
Сообщений: 5
1

Значение функции S(x) и Y(x) циклические алгоритмы

28.06.2015, 08:24. Показов 1069. Ответов 1
Метки нет (Все метки)

Необходимо вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x изменяющихся от xn до xk с шагом h=(xn-xk)/10. Близость значений S(x) и Y(x) во всем диапазоне значений x указывает на правильность вычисления S(x) и Y(x).
0
Миниатюры
Значение функции S(x) и Y(x) циклические алгоритмы  
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.06.2015, 08:24
Ответы с готовыми решениями:

Циклические алгоритмы (Алгоритмы с одним циклом)
Доброго времени суток! Помогите пожалуйста написать программы на циклы в Delphi 7, а то я только...

Циклические алгоритмы
Пожалууйстааа

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

циклические алгоритмы...
помогите плз написать проги на циклы в Delphi Console.. а то я только на линейные и разветвляющиеся...

1
Модератор
63391 / 47080 / 32450
Регистрация: 18.05.2008
Сообщений: 114,118
28.06.2015, 08:39 2
Лучший ответ Сообщение было отмечено DmitriuA как решение

Решение

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
const n=10;
      xn=0.1;
      xk=1.0;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function S(x:real):real;
var t:real;
    i:integer;
begin
t:=1;
result:=t;
for i:=1 to n do
 begin
   t:=t*x*x/(2*i)/(2*i-1);
   result:=result+t;
 end;
end;
function F(x:real):real;
begin
result:=(exp(x)+exp(-x))/2;
end;
procedure TForm1.Button1Click(Sender: TObject);
var x,h:real;
    k:integer;
begin
with StringGrid1 do
 begin
  colcount:=3;
  rowcount:=12;
  cells[0,0]:='x';
  cells[1,0]:='S(x)';
  cells[2,0]:='Y(x)';
 end;
h:=(xk-xn)/10;
x:=xn;
k:=0;
while x<=xk do
 begin
  k:=k+1;
  with StringGrid1 do
   begin
    cells[0,k]:=FloatToStrF(x,ffFixed,5,1);
    cells[1,k]:=FloatToStrF(S(x),ffFixed,8,4);
    cells[2,k]:=FloatToStrF(F(x),ffFixed,8,4);
   end;
  x:=x+h;
 end;
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.06.2015, 08:39

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

Циклические алгоритмы
Определить k -- количество трёхзначных натуральных чисел, сумма цифр которых рана n (1&lt;=n&lt;=27)....

ЦИКЛИЧЕСКИЕ АЛГОРИТМЫ
Доказать (путем перебора возможных значений), что для любых величин а, b, с типа boolean следующие...

Циклические алгоритмы
необходимо вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x...

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


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

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

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