Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Velx
0 / 0 / 0
Регистрация: 25.11.2014
Сообщений: 7
1

Задачу с факториалом решить с использованием цикла

17.02.2015, 22:18. Просмотров 938. Ответов 4
Метки нет (Все метки)

Нужно: "Решить задачу с помощью цикла. При реализации данной задачи используются операторы for."

http://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{k=0}^{16}\frac{(x-1)^k}{2k!}; \  \ x=0.25
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.02.2015, 22:18
Ответы с готовыми решениями:

Решить задачу, используя 2 вида цикла: с параметром с предусловием
Решить задачу, используя 2 вида цикла: с параметром с предусловием

Дано число. Вставить в данное число первую цифру 2. Решить задачу с использованием функции.
Напишите решение пожалуйста, на завтра очень нужно, за ранее спасибо !:friends:

Как решить уравнение с двойным факториалом в паскале?
Вычислить n: (2n-1)!!=1*3*5*...*(2n-1), n>0

Переписать программу с использованием цикла While, без цикла For
Дана такая программа: uses Crt; var n, R, D,i: integer; begin ClrScr;...

Решить задачу.
Добрый день. Нужно решить задачку, помоги пожалуйста. 4. Даны две...

4
Joy
Эксперт Pascal/Delphi
2175 / 1202 / 1438
Регистрация: 29.08.2014
Сообщений: 4,389
18.02.2015, 05:56 2
Лучший ответ Сообщение было отмечено Velx как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
const x=0.25;
var
  s,r:real;
  k:integer;
begin
  s:=1/2;r:=1.0;
  for k:=1 to 16 do begin
    r:=r*(x-1)/k;
    s:=s+r/2;
  end;
  writeln(s:0:6);
end.
1
Velx
0 / 0 / 0
Регистрация: 25.11.2014
Сообщений: 7
18.02.2015, 10:39  [ТС] 3
Не совсем понял вычислительную часть кода.

У меня получалось вот это(но почему-то выдает постоянно ошибки):
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program pr25;
uses crt;
var
s,x,a:real;
k:integer;
k1:extended;
begin
clrscr;
S:=0;
x:=0.25;
k1:=1;
for k:=0 to 16 do
begin
if k>0
then k1:=k1*k;
a:=exp(k*ln(x-1))/2*k1;
S:=S+a;
end;
writeln('Summa=',S:9:5);
readkey;
end.
0
JuriiMW
2052 / 1119 / 1595
Регистрация: 10.12.2014
Сообщений: 4,262
18.02.2015, 12:29 4
Velx, формула рекуррентная, т.е каждый новый член последовательности получается из предыдущего.
При k=0 значение будет (x-1)0 / (2·0!) = 1 / (2·1) = 1/2
А начиная с k=1 каждое слагаемое больше предыдущего в (x-1)/k раз.
Т.е. для k=1 слагаемое равно -0,75/2 = -0,375
Для k=2 получается -0,375 * -0,75/(2*2!) = 0,0703125
и т.д.
1
Joy
Эксперт Pascal/Delphi
2175 / 1202 / 1438
Регистрация: 29.08.2014
Сообщений: 4,389
18.02.2015, 15:53 5
Velx, ошибка - из-за вычисления степени через логарифм - он не бывает <0

Добавлено через 50 секунд
надо было брать по модулю и подставлять минус, если показатель степени нечетный
0
18.02.2015, 15:53
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.02.2015, 15:53

помогите решить задачу

помогите решить задачу.
Задача. Можно ли коробку размерами A x B x C, Упаковать в посылку размером R...

помогите решить задачу
из интервала вывести на экран элементы у которых сумма делителей равна...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru