Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 22.11.2016
Сообщений: 31
1

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

06.01.2017, 13:20. Просмотров 1672. Ответов 7
Метки нет (Все метки)

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

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
f(x)=\frac{2x}{\pi}\left( 1-\frac{x^2}{1!3}+\frac{x^4}{2!5}-...+(-1)^k\,\frac{x^{2k}}{k!(2k+1)}+...\right)<br />

Значение функции вычислять с точностью z>0, т.е. вычисление суммы членов ряда необходимо прекратить, когда абсолютная величина очередного члена ряда разложения окажется меньше z: | ак | <z.
При вычислении очередного члена целесообразно воспользоваться выражением:

ак+1как; к= 0, 1, 2, ...,

где ак - некоторый к-ый член ряда; ак+1 - следующий к+1-ый член ряда; ск - коэффициент, определяемый номером к.
При составлении программы необходимо по возможности воспользоваться операторами организации циклов WHILE, REPEAT, FOR.
Границы интервала вычислений функций a и b, величина шага изменения аргумента h и точность вычисления функции z задаются при вводе.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.01.2017, 13:20
Ответы с готовыми решениями:

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

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

Разработать алгоритм и составить по нему программу для вычисления значений функции y = f(x)
Разработать алгоритм и составить по нему программу для вычисления значений функции y = f(x)....

Разработать алгоритм и составить по нему программу для вычисления значений функции z = f(x,y)
Разработать алгоритм и составить по нему программу для вычисления значений функции z = f(x,y)....

__________________
7
Модератор
63322 / 47038 / 32422
Регистрация: 18.05.2008
Сообщений: 114,017
06.01.2017, 16:35 2
Pascal
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
uses crt;
function f(x,z:real):real;
var k:integer;
    s,t:real;
begin
k:=0;
t:=1;
s:=t;
while abs(t/(2*k+1))>z do
 begin
  k:=k+1;
  t:=-t*x*x/k;
  s:=s+t/(2*k+1);
 end;
f:=2*x*s/pi;
end;
var a,b,h,z,x:real;
begin
clrscr;
repeat
writeln('Введите диапазон a<b');
readln(a,b);
until a<b ;
repeat
write('Введите шаг h<',b-a:0:1,' h=');
readln(h);
until h<b-a;
repeat
write('Введите точность 0<z<1 z=');
readln(z);
until(z>0)and(z<1);
x:=a;
while x<b+h/2 do
 begin
  writeln('x=',x:6:2,' f=',f(x,z):8:4);
  x:=x+h;
 end;
readln;
end.
Добавлено через 54 секунды
Цитата Сообщение от Arlequin228 Посмотреть сообщение
таблицы значений функции
А функция для проверки есть?
1
0 / 0 / 0
Регистрация: 22.11.2016
Сообщений: 31
10.01.2017, 16:58  [ТС] 3
а как переделать программу, чтобы она была без function?
0
Модератор
63322 / 47038 / 32422
Регистрация: 18.05.2008
Сообщений: 114,017
10.01.2017, 17:07 4
Лучший ответ Сообщение было отмечено Arlequin228 как решение

Решение

Pascal
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
uses crt;
var a,b,h,z,x,s,t:real;
    k:integer;
begin
clrscr;
repeat
writeln('Введите диапазон a<b');
readln(a,b);
until a<b ;
repeat
write('Введите шаг h<',b-a:0:1,' h=');
readln(h);
until h<b-a;
repeat
write('Введите точность 0<z<1 z=');
readln(z);
until(z>0)and(z<1);
x:=a;
while x<b+h/2 do
 begin
  k:=0;
  t:=1;
  s:=t;
  while abs(t/(2*k+1))>z do
   begin
    k:=k+1;
    t:=-t*x*x/k;
    s:=s+t/(2*k+1);
   end;
  s:=2*x*s/pi;
  writeln('x=',x:6:2,' f=',s:8:4);
  x:=x+h;
 end;
readln;
end.
1
0 / 0 / 0
Регистрация: 22.11.2016
Сообщений: 31
10.01.2017, 17:52  [ТС] 5
Большое спасибо
0
0 / 0 / 0
Регистрация: 22.11.2016
Сообщений: 31
12.01.2017, 14:31  [ТС] 6
Извините, не дописал, что помимо значения аргумента, значения функции, нужно вывести номер члена ряда, на котором закончилось вычисление значение функции.
0
Модератор
63322 / 47038 / 32422
Регистрация: 18.05.2008
Сообщений: 114,017
12.01.2017, 14:40 7
Это конечно задача не для хилых мозгов, измученных непосильной учебой.
Pascal
31
writeln('x=',x:6:2,' f=',s:8:4,' k=',k);
1
0 / 0 / 0
Регистрация: 22.11.2016
Сообщений: 31
12.01.2017, 15:51  [ТС] 8
Я же гуманитарий.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.01.2017, 15:51

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

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

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

Составить алгоритм и написать программу вычисления значений функции
Составить алгоритм и написать программу вычисления значений функции F (x) на отрезке * с шагом h....

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


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

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

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