Натуральный логарифм - Форум
Суббота, 03.12.2016, 22:41
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Натуральный логарифм (пожалуйста!помогите решить задачу на паскале!)
Натуральный логарифм
ОНАДата: Пятница, 17.10.2008, 17:16 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
Задание:Вычислить сумму ряда. Вычисления заканчивать при достижении заданной степени точности (т.е. очередной член ряда становится меньше введенной точности, либо разность между двумя соседними членами ряда становится меньше введенного значения точности E).
ln(1+x)=x-((x^2)/2)+((x^3)/3)-...
 
zadachkiДата: Пятница, 17.10.2008, 19:39 | Сообщение # 2
Admin
Группа: Администраторы
Сообщений: 116
[ 9 ]
Статус: Offline
Code

var x,b,z,toch: real;
var i,j: integer;
begin
readln(x);  { -1 <x <1 }
readln(toch);
write(ln(1+x),' = ');  
z:=x; {для первой проверки условия}
b:=x; {первый член последовательности}
i:=2;
while abs(z)>=toch do {пока очередной член ряда больше или равен указанной точности}
  begin
  z:=x;
  for j:=2 to i do
   begin
   z:=-z*x;
   end;       {x^i}
  z:=z/i;     {i-ый член ряда}
  i:=i+1;
  b:=b+z;   
  end;
write(b);
read(b);
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Натуральный логарифм (пожалуйста!помогите решить задачу на паскале!)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016