Паскаль. Вычислить выражение.

boston1839 · 02.04.2015, 16:45

помогите написать код для вычисления выражения

Vladimir_S · 02.04.2015, 19:36

Цитата:

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

помогите написать код для вычисления выражения

Да пожалуйста... Правда, Вы не снизошли до указания, нужно ли суммировать определенное число членов ряда или же добиться некоей точности, а посему я поступил по своему разумению.

Код:

Const
 Eps=0.0001;

Var
 S,a,x:Real;
 k:Integer;

Begin
 Write('x = ');
 Readln(x);
 a:=1;
 S:=a;
 k:=0;
 Repeat
  Inc(k,2);
  a:=-a*x*x/(k-1)/k;
  S:=S+a;
 Until Abs(a)<Eps;
 Writeln('Result: ',S:0:5,',   n = ',k);
 Writeln('Accurate value: ',Cos(x):0:5);
 Readln
End.

02.04.2015, 16:45	#1 (permalink)
boston1839 Новичок Регистрация: 02.04.2015 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Паскаль. Вычислить выражение. помогите написать код для вычисления выражения Миниатюры

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070