Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
GooD_TeaM
0 / 0 / 0
Регистрация: 13.01.2017
Сообщений: 8
#1

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

13.01.2017, 18:50. Просмотров 223. Ответов 4
Метки нет (Все метки)

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

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

ak+1=ckak; k = 0, 1, 2, ...,

где ak - некоторый k-ый член ряда; ak+1 - следующий k+1-ый член ряда; ck - коэффициент, определяемый номером k.

При создании программы необходимо по возможности воспользоваться операторами организации циклов WHILE, REPEAT, FOR.

Границы интервала вычисления функции a и b, величина шага изменения аргумента h и точность вычисления функции ε задаются при вводе. На печать выводится номер по порядку, значение аргумента, соответствующее еьу, значение функции и номер члена ряда, на котором закончилось вычисление значения функции, в форме таблицы:

xf(x)№чл.р.
1   
2   
3   
...   

http://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
f(x)=1-\frac{x^2}{2}+\frac{\left(\frac{x}{2}\right)^4}{1^2\cdot 2^2}-...+(-1)^k\,\frac{\left(\frac{x}{2}\right)^{2k}}{(k!)^2}+...<br />
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.01.2017, 18:50
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Разработать алгоритм и составить программу вычисления таблицы значений функции (Pascal):

Разработать программу в паскале для вычисления таблицы значений модуля комплексной функции - Pascal
Задана комплексная функция W(jv)=k*(1+T2*jv)/jv*(1+T1*jv)*(1+T3jv)2*(1+T3jv)2 где k=100, T1=1;T2=0,4;T3=0,02;T5=0,005; j=sqrt(-1) -...

Составить программу для вычисления и вывода на экран таблицы значений функции - Pascal
Составить программу для вычисле-ния и вывода на экран таблицы значений функции. Вывод выполнить в два столбика: первый столбик - значения...

По данным разработать алгоритм и программу вычисления функции У - Pascal
1.) По данным разработать алгоритм и программу вычисления функции У (Х вводится с клавиатуры при работе программы). Данные: ...

составить алгоритм и программу вычисления значений элементов одномерного массива X1,X2, ..., Xm-1 - Pascal
Помогите решить сложное задание Дана переменная B и матрица А, состоящая из m строк и m столбцов. Задано C1 и разность R...

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

Составить алгоритм и программу вычисления функции - Pascal
Составить алгоритм и программу вычисления функции, x, y – вводится с клавиатуры y_0=\begin{cases}\sqrt{x-\sin x^2-10} &amp; \text{ if }...

4
GooD_TeaM
0 / 0 / 0
Регистрация: 13.01.2017
Сообщений: 8
14.01.2017, 00:53  [ТС] #2
Тема актуальна, прошу помочь!
0
Puporev
Модератор
52431 / 40278 / 13611
Регистрация: 18.05.2008
Сообщений: 93,123
14.01.2017, 10:22 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
40
41
42
43
44
45
46
47
48
49
uses crt;
//процедура вычисления суммы ряда(s) и числа итераций(i)
procedure F(x,e:real;var s:real;var i:longint);
var t,x1:real;
begin
t:=1;//начальные значения при i=1
s:=t;
x1:=x/2;
i:=0;
while abs(t)>e do//пока модуль очередного члена ряда больше точности
 begin
   i:=i+1;//наращиваем счетчик
   t:=-t*x1*x1/sqr(i);//менякм знак, домножаем на x1^2 и делим на квадрат индекса
   s:=s+t;//и суммируем
 end;
end;
var a,b,h,e,s:real;
    i,n:integer;
begin
write('Введите начало интервала a=');
readln(a);
repeat
write('Введите конец интервала b>',a:0:1,' b=');
readln(b);
until b>a;
repeat
write('Введите точность в интервале (0,1) e=');
readln(e);
until(e>0)and(e<1);
repeat
write('Введите шаг табуляции, положительное число меньше ',b-a:0:2,' h=');
readln(h);
until (h<b-a)and(h>0);
clrscr;
writeln('Таблица табулирования функции, представленной разложением в ряд');
writeln('на интервале ',a:0:2,'  ',b:0:2,' с шагом ',h:0:2,' с точностью ',e:0:6);
writeln('----------------------------');
writeln('| №пп |  x  |  f(x)  |  n  |');
writeln('----------------------------');
i:=0;
while a<b+e do
 begin
  i:=i+1;
  F(a,e,s,n);
  writeln('|',i:4,' |',a:5:2,'|',s:8:4,'|',n:4,' |');
  a:=a+h;
 end;
writeln('----------------------------');
end.
1
GooD_TeaM
0 / 0 / 0
Регистрация: 13.01.2017
Сообщений: 8
20.01.2017, 18:02  [ТС] #4
Тема актуальна,прошу помочь!
0
Cyborg Drone
Модератор
4735 / 2902 / 1135
Регистрация: 17.08.2012
Сообщений: 9,240
24.01.2017, 17:48 #5
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ

Не по теме:

GooD_TeaM, фотки с текстом не выкладывайте. Это запрещено.

И чем Вам не понравилось приведённое решение? А то как-то неловко получается: решение приведено, заданию соответствует, а тема вдруг снова актуальна... Типа, на одноклеточных, которые выдали Вам непонятное для Вас решение, внимание можно не обращать, и не объяснять ничего. И кто Вам теперь ответит? И с какого перепуга? И что, чёрт возьми, не так? И чем Вам теперь помочь? Напишите, по какой причине Вы подняли тему. Или Вам до сих пор невдомёк, что, если правильный ответ уже дан, на Ваши ничем не обоснованные реплики никто внимания не обратит?
1
24.01.2017, 17:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.01.2017, 17:48
Привет! Вот еще темы с ответами:

Составить алгоритм и программу вычисления функции - Pascal
Пожалуйста помогите составить программу, заранее спасибо! Составить алгоритм и программу вычисления функции, x, a, b, c - вводится с...

Разработать алгоритм и программу вычисления функции для элементов блока квадратной матрицы [A] - Pascal
Дана задача, не могу понять, что в ней надо сделать:wall: Разработать алгоритм и программу вычисления функции для элементов блока...

Составить программу вычисления значений функции - Pascal
Помогите составить программу вычисления значений функции y=|log|x|| с учетом области определения.

Составить программу вычисления значений функции - Pascal
Составить программу вычисления значений функции F(x) на отрезке в точках x(i)=A+iH, где H=(B-A)/M, M - заданное целое число. Использовать...


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

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

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