Вычисление геометрической прогрессии с использованием рекурсии

@Ольга Ходотчук · Регистрация: 12.04.2012

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

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

Я смогла организовать непосредственное вычисление прогрессии,а вот с условиями никак не могу справиться.Вот,что у меня получилось

Prolog

predicates
run
nondeterm sum(integer,real,real,real)
clauses
run:- write("\n Vvedite chislo chlenov geometricheskoi progressii:"),
readint(N),
write("\n Vvedite znachenie pervogo chlena geometricheskoi progressii:"), 
readint(A), 
write("\n Vvedite znamenatel geometricheskoi progressii:"),
readint(K),
sum(N,A,K,Sum),
write("\n Summa n-ih chlenov geometricheskoi progressii:",Sum),
readchar(_),
run.
sum(0,_,_,0).
sum(N,A,K,B):- N>0,N1=N-1,
    A1=A*K,sum(N1,A1,K,B1),
    B=B1+A.
    goal
 sum(5,2,2,Sum).

@Грымзик · 12.04.2012, 16:53

От меньшего к большему

Prolog

predicates
run
nondeterm sum(integer,integer,real,real,real,real)
nondeterm sum(integer,real,real,real)
clauses
run:- write("\n Vvedite chislo chlenov geometricheskoi progressii:"),
readint(N),
write("\n Vvedite znachenie pervogo chlena geometricheskoi progressii:"), 
readint(A), 
write("\n Vvedite znamenatel geometricheskoi progressii:"),
readint(K),
sum(N,A,K,Sum),
write("\n Summa n-ih chlenov geometricheskoi progressii:",Sum),
readchar(_),
run.
sum(I,N,_,_,S,S):-I>N,!.
sum(I,N,A,K,TempS,S):- 
    TempS1=TempS+A,
    A1=A*K,I1=I+1,sum(I1,N,A1,K,TempS1,S).
 
sum(N,A,K,Sum):-sum(1,N,A,K,0,Sum).
 
goal
sum(5,2,2,Sum).

А от большего к меньшему - не совсем понятно что требуется. Каждый раз a^n высчитывать? Поэтому наверно можно считать подходящим то, что Вы написали.

@Ольга Ходотчук · 12.04.2012, 19:42 **[ТС]**

Спасибо большое)

Добавлено через 1 час 9 минут
Простите,а вы не могли бы пояснить,почему вы использовали в программе 2 функции sum и как именно работает этот отрывок программы

Prolog

sum(I,N,_,_,S,S):-I>N,!.
sum(I,N,A,K,TempS,S):- 
    TempS1=TempS+A,
    A1=A*K,I1=I+1,sum(I1,N,A1,K,TempS1,S).
 
sum(N,A,K,Sum):-sum(1,N,A,K,0,Sum).

@Грымзик · 12.04.2012, 20:50

2я sum - просто вспомогательная, поскольку к основной sum нужны некоторые начальные значения (1-индекс элемента, с которого начинаем считать, 0 - начальная сумма ряда).

@Ольга Ходотчук · 12.04.2012, 20:55 **[ТС]**

спасибо)

@Грымзик 2505 / 1480 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	12.04.2012, 20:50	4
	2я sum - просто вспомогательная, поскольку к основной sum нужны некоторые начальные значения (1-индекс элемента, с которого начинаем считать, 0 - начальная сумма ряда). 1

@Ольга Ходотчук 0 / 0 / 0 Регистрация: 12.04.2012 Сообщений: 12
	12.04.2012, 20:55 [ТС]	5
	спасибо) 0