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

  1. Разработать алгоритм и составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд. Значение функции вычислять с точностью ε>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   ...   

textual

Код:

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. Разработать алгоритм и программу решения задачи, в которой сформировать кольцевой односвязный список.

  1. Понимаю, что легкая программа на Паскале, но сделать не могу!Помогите пожалуйста Разработать алгоритм нахождения суммы и количества четных чисел натурального ряда, которые меньше К.Значение К вводится с клавиатуры.

  1. Разработать алгоритм методом пошаговой детализации и программу решения задачи, в которой отсортировать одномерный массив a[1..8], состоящий из элементов вещественного типа в порядке возрастания методом «вставки». Исходные данные массива вводятся с клавиатуры.

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

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

  1. Разработать алгоритм формирования всех разбиений 6 элементного множества . Сформировать стек содержащий разбиения состоящие из 2-элементных блоков. Помогите пожалуйста!

  1. задана матрица размерностью m на n состоящая из действительных элементов. Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощь датчика случайных чисел. Найти сколько отрицательных элементов содержит матрица в исходной строке, заменить все отрицательные элементы на 0 вывести на экран число отрицательных элементов в каждой строке и полученную матрицу

  1. Разработать алгоритм программы, которая запрашивает у пользователя номер дня недели и выводит его название или сообщает "Ошибка ввода данных".(Разработка алгоритмов разветвляющейся структуры).

  1. Разработать алгоритм и программу, определяющие сумму ряда с заданной погрешностью ε (ипсилон) для произвольно заданного аргумента x. 1+x*lna/1!+(x*lna)^2/2!+...+(x*lna)^n/n!+... . диапазон изменения x: -бесконечность


Нашли ошибку?
Развитие проекта
Яндекс.Метрика