Как решать уравнения - QBasic

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

В этой теме я решил на простом примере показать, как можно найти все корни уравнения. Пример COS(2x) = 0.5 Собственно говоря это уравнение имеет базовые корни на интервале [0; pi]. Все остальные корни отличаются от исходных слагаемым pi*n, где n - целое число

REM
REM  COS(2x) = 0.5
REM
REM   [0; pi]
REM
REM  x = 0.52357   x = 2.61798
REM
 
DECLARE FUNCTION f! (x!)
 
CLS
CONST pi = 3.141593
h = .00005
 
f1 = f(0)
 
FOR x = h TO pi STEP h
   f2 = f(x)
   IF f1 * f2 <= 0 THEN PRINT x
   f1 = f2
NEXT
END
 
FUNCTION f (x)
   f = COS(2 * x) - .5
END FUNCTION

примечание Идеальный код этой программы не оставит равнодушным даже терминатора серии Т 2017.

Решение задачи: «Как решать уравнения»

textual
                            Листинг программы 
                        

                            REM
REM  x^3 + y^3 = z^3 - 1
REM
REM  x=6   y=8   z=9
REM  x=71  y=138 z=144
REM  x=135 y=138 z=172
REM  x=372 y=426 z=505
REM  x=426 y=486 z=577
REM
 
CLS
DEFLNG A-Z
DIM x(700)
 
FOR i = 1 TO 700
   x(i) = i ^ 3
NEXT
 
FOR i = 2 TO 700
FOR j = i TO 700
FOR k = j TO 700
   IF x(i) + x(j) = x(k) - 1 THEN
      PRINT i; j; k
   END IF
NEXT k, j, i
END
                        