Найти максимум числового ряда - QBasic

Формулировка задачи:

Числовой ряд не задан. Надо его еще построить так, чтобы он имел максимальную сумму. построение. задан ряд натуральных чисел 1, 2, 3, ... , 555 От каждого числа должна быть взята одна из функций y = SIN(i) y = COS(i) y = SIN(SIN(i)) y = SIN(COS(i)) y = COS(SIN(i)) y = COS(COS(i)) После чего все суммируется. Надо найти максимум такой суммы. Программа вычислила и нашла SUMMA = 505.7876 Вопросы 1. Можно ли решить эту задачу иначе? 2. Есть ли возможность использовать в программе периодичность функций?
REM
REM   505.7876
REM
 
DECLARE FUNCTION MAX! (a!, b!)
DECLARE FUNCTION MX6! (a!, b!, c!, d!, e!, f!)
 
CLS
 
FOR i = 1 TO 555
   a1 = SIN(i)
   a2 = COS(i)
   a3 = SIN(SIN(i))
   a4 = SIN(COS(i))
   a5 = COS(SIN(i))
   a6 = COS(COS(i))
   S = S + MX6(a1, a2, a3, a4, a5, a6)
NEXT
 
PRINT S
END
 
FUNCTION MAX (a, b)
   IF a > b THEN MAX = a ELSE MAX = b
END FUNCTION
 
FUNCTION MX6 (a, b, c, d, e, f)
   a = MAX(a, b)
   a = MAX(a, c)
   a = MAX(a, d)
   a = MAX(a, e)
   MX6 = MAX(a, f)
END FUNCTION

Код к задаче: «Найти максимум числового ряда - QBasic»

textual
   a1 = SIN(i)
* *a2 = COS(i)
* *a3 = SIN(a1)
* *a4 = SIN(a2)
* *a5 = COS(a1)
* *a6 = COS(a2)

9   голосов, оценка 4.222 из 5


СОХРАНИТЬ ССЫЛКУ