Показать сообщение отдельно
Старый 04.02.2010, 10:02   #6 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Troll Посмотреть сообщение
Задание:
Задан х. Вычислить y= E x в степени 2n-1/ n! Е - сумма, где n=1 to 12.
За ранее огромное спасибо!
Код:
VAR
 a,S,x:REAL;
 n:INTEGER;
Begin
 Write('x= ');
 ReadLn(x);
 a:=x;
 S:=a;
 For n:=2 to 12 do
  begin
   a:=a*SQR(x)/n;
   S:=S+a;
  end;
 WriteLn('S= ',S);
 ReadLn;
End.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

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