qbasic

[FLORA]

помогите очень надо
составить алгоритм и программу для нахождения максимального количества слагаемых в сумме членов ряда, при котором эта сумма станет больше 2000. Кроме того найти значение суммы и последнего слагаемого(а и х-любые числа)
(a^3*x^2)/1*3+(a^4*x^3)/1*3*5+(a^5*x^4)/11*3*5*7+..............

[Sazary]

Вроде так. Проверьте.
Чтобы программа не зацикливалась (например, при вводе a=1,x=1), добавил проверку.

DIM a AS SINGLE
DIM x AS SINGLE
DIM n AS LONG
DIM sum AS SINGLE
DIM c AS SINGLE
DIM i AS LONG
CLS
INPUT "Vvedite a: ", a
INPUT "Vvedite x: ", x

sum = 0
i = 3
c = a * a * x
n = 0
DO WHILE sum <= 2000
c = c * a * x / i
sum = sum + c
i = i + 2
n = n + 1
IF i > 1000000 THEN
PRINT "2000 ne dostignuto!"
STOP


END IF
LOOP

PRINT USING "Result: ##"; n
PRINT USING "Summa= ####"; sum - c
PRINT USING "Poslednee slagaemoe= ####"; c * i / (a * x)

END

[FLORA]

спс за программу всё понятно кроме того что значит i>1000000 там не нужна формула????можеш ответить да и хотелось бы понять почему sum<=2000 ведь она должна быть больше 2000

[Sazary]

что значит i>1000000

Это и есть проверка на зацикливание, о которой я говорил. Если этого не сделать, то при вводе определенных значений (например, a=1,x=1) программа будет работать вечно.

почему sum<=2000 ведь она должна быть больше 2000

Цикл выполняется, пока сумма не станет равна 2000.

Вообще, честно говоря, условие понял с трудом.. Если вообще правильно понял.
В моем варианте выводится сумма и последнее слагаемое перед тем, как сумма станет равна 2000. Возможно, тут требуется наоборот, вывести значения сразу, как сумма станет равна 2000. В этом случае последние строчки будут

PRINT USING "Summa= ####"; sum
PRINT USING "Poslednee slagaemoe= ####"; c