Описать функцию, находящую приближенное значение функции

@tolyan1247 · Регистрация: 06.05.2014

Author24 — интернет-сервис помощи студентам

Описать функцию Ln1(x,n) вещественного типа (параметры x, e - вещественные, |x|<1, e>0), находящую приближенное значение функции ln(1+x): ln(1+x)=x–x^2/2+x^3/3–...+(–1)^n*x^n+1/(n+1)+... . В сумме учитывать все слагаемые, большие по модулю e. С помощью Ln1 найти приближенное значение ln(1+x) для данного x при шести данных exp.

e-exp- экспонента. Напишите программу на языке паскаль использую процедуру и функцию.

@Puporev · 14.11.2014, 19:26

Pascal

uses crt;
function ln1(x,e:real):real;
var t,s:real;
    n:integer;
begin
s:=0;
n:=0;
t:=1;
while abs(t)>=e do
 begin
  n:=n+1;
  t:=t*x;
  if n mod 2=1 then s:=s+t/n
  else s:=s-t/n;
 end;
ln1:=s
end;
procedure resh(x:real);
var e:real;
    i:byte;
begin
e:=1;
for i:=1 to 6 do
 begin
  e:=e/10;
  writeln('eps=',e:0:6);
  writeln('S=',ln1(x,e):0:6);
 end;
end;
var x:real;
begin
repeat
write('Введите |x|<1  x=');
readln(x);
until abs(x)<1;
resh(x);
writeln;
writeln('Ln(x+1)=',ln(x+1):0:6);
end.

@tolyan1247 · 14.11.2014, 19:33 **[ТС]**

программа работает только для X=0?

@Puporev · 14.11.2014, 19:47

Сообщение от Puporev

abs(x)<1;

Это -1<x<1

Добавлено через 39 секунд
Например для х=-0.4 или х=0.6

@tolyan1247 · 15.11.2014, 08:49 **[ТС]**

А можешь объяснить как с процедурами и функциями работать?

@Puporev · 15.11.2014, 09:00

Так найди в Гугле и почитай, я что тебе должен искать и ссылку давать?

@tolyan1247 · 15.11.2014, 12:02 **[ТС]**

Так читал не особо понял просто ((

@Puporev · 15.11.2014, 12:13

Ну так я понятнее не напишу, да и не учебник я...

@tolyan1247 · 17.11.2014, 06:46 **[ТС]**

Ну все ровно спасибо большое!))

@tolyan1247 1 / 1 / 0 Регистрация: 06.05.2014 Сообщений: 32
		1
	Описать функцию, находящую приближенное значение функции 14.11.2014, 18:19. Показов 2621. Ответов 8 Метки нет (Все метки) Описать функцию Ln1(x,n) вещественного типа (параметры x, e - вещественные, \|x\|<1, e>0), находящую приближенное значение функции ln(1+x): ln(1+x)=x–x^2/2+x^3/3–...+(–1)^n*x^n+1/(n+1)+... . В сумме учитывать все слагаемые, большие по модулю e. С помощью Ln1 найти приближенное значение ln(1+x) для данного x при шести данных exp. e-exp- экспонента. Напишите программу на языке паскаль использую процедуру и функцию. 0

@tolyan1247 1 / 1 / 0 Регистрация: 06.05.2014 Сообщений: 32
	14.11.2014, 19:33 [ТС]	3
	программа работает только для X=0? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.11.2014, 19:47	4
	Сообщение от Puporev abs(x)<1; Это -1<x<1 Добавлено через 39 секунд Например для х=-0.4 или х=0.6 0

@tolyan1247 1 / 1 / 0 Регистрация: 06.05.2014 Сообщений: 32
	15.11.2014, 08:49 [ТС]	5
	А можешь объяснить как с процедурами и функциями работать? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.11.2014, 09:00	6
	Так найди в Гугле и почитай, я что тебе должен искать и ссылку давать? 0

@tolyan1247 1 / 1 / 0 Регистрация: 06.05.2014 Сообщений: 32
	15.11.2014, 12:02 [ТС]	7
	Так читал не особо понял просто (( 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.11.2014, 12:13	8
	Ну так я понятнее не напишу, да и не учебник я... 0

@tolyan1247 1 / 1 / 0 Регистрация: 06.05.2014 Сообщений: 32
	17.11.2014, 06:46 [ТС]	9
	Ну все ровно спасибо большое!)) 0

Опции темы

Описать функцию, находящую приближенное значение функции

Решение