Вычисление функции с помощью разложения в степенной ряд - Pascal

  1. Составить программу для вычисления значения функции y=ln(1-x) с помощью разложения функции в степенной ряд: Ln(1-x) =-x/1-(x)^2/2-(x)^3/3-(x)^4/4...-(x)^n/n+... Помогите пжл.


textual

Код к задаче: «Вычисление функции с помощью разложения в степенной ряд - Pascal»

uses crt;
var x,e,t,s:real;
    n:integer;
begin
clrscr;
repeat
write('|x|<1 x=');
readln(x);
until abs(x)<1;
repeat
write('e [10^-6..10^-4] e=');
readln(e);
until(e>=0.000001)and(e<=0.0001);
n:=1;
t:=x;
s:=-t;
while abs(t)/n>e do
 begin
  n:=n+1;
  t:=t*x;
  s:=s-t/n;
 end;
writeln('S=',s:0:6);
write('ln(1-x)=',ln(1-x):0:6);
readln
end.

Блок-схема:

Блок-схема к задаче: Вычисление функции с помощью разложения в степенной ряд - Pascal

СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 3.600 из 5



Похожие ответы
  1. Вычислить значение функции f(x) =x/(25-х2). X изменяется от А до В с шагом h. Вычисление F(x) оформить как функцию, результаты вывести в виде таблицы в основной программе

  1. ребята на екзамен срочно нужно помогите Написать программу вычисления функции при a=2; b=0.5; c=-4. Аргумент x принимает значения от 1 до 10 с шагом 1.

  1. Даны действительные числа x,y. Вычислить значение функции z=arcsin(x+y)

  1. Как вычислить функцию sgn(x) в паскале? Заранее спасибо)

  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   ...   

  1. составить поставку,алгоритм и программу выдачи на экран в PASCALe неравных 3.2 значений функции t=ln(14.5q/152.9)+Sin5.3q на отрезке [k.w] с шагом z

  1. Составить программу для вычисления функции (функция внизу), где x - меньший корень уравнения ax^2+bx+c=0. Значения a, b, с задавать при вводе. На экран дисплея вывести значения a, b, c, x, y. Спасибо

  1. Ребята, помогите, пожалуйста написать код программы (консоль). Задача: Даны действительные числа X, E (E не = 0 и Е>0). Вычислить с точностью E: Никогда не сталкивался с подобными задачами, и если я правильно понял, то решить её нужно через repeat-until?