Составьте алгоритм нахождения первого элемента последовательности, большего 1000 - QBasic
Формулировка задачи:
13°. Последовательность аn строится так:
a1 = l, a2 = 3 и аn = аn-1 - 2an-2
для каждого n>2. Составьте для ВЫЧИСЛИТЕЛЯ следующие алгоритмы:
а) алгоритм нахождения первого элемента последовательности, большего 1000;
б) алгоритм нахождения суммы первых 15 членов этой последовательности;
в) алгоритм нахождения первых десяти положительных членов этой последовательности;
г) алгоритм нахождения наибольшего из первых 20 членов последовательности.
Решение задачи: «Составьте алгоритм нахождения первого элемента последовательности, большего 1000»
textual
Листинг программы
DECLARE FUNCTION f! (n!)
CLS
REM A
DO
n = n + 1
LOOP UNTIL f(n) > 1000
PRINT "A) f("; n; ") = "; f(n)
REM B
FOR n = 1 TO 15
SUM = SUM + f(n)
NEXT n
PRINT
PRINT "B) SUM ="; SUM
PRINT
REM C
k = 1
n = 1
PRINT "C) ";
DO
IF f(n) > 0 THEN
PRINT f(n);
k = k + 1
END IF
n = n + 1
LOOP UNTIL k > 10
PRINT : PRINT
REM D
max = 1
FOR n = 1 TO 20
IF max < f(n) THEN max = f(n)
NEXT n
PRINT "D) MAX ="; max
END
FUNCTION f (n)
a1 = 1
a2 = 3
IF n = 1 THEN
f = a1
ELSEIF n = 2 THEN
f = a2
ELSE
FOR i = 3 TO n
a3 = a2 - 2 * a1
a1 = a2
a2 = a3
NEXT i
f = a3
END IF
END FUNCTION