Программа

' Решение дифура y'=f(x,y)
' при известных начальных условиях
' x0, y0=f(x0) методом Эйлера
DEF FNDerivative! (X!, Y!) = 2 * X!'Производная
DEF FNDifAyl! (X!, Y!, Break%, Xresult!) 'Вычисление значения исходной функции
  LOCAL S!
  S! = (Xresult! - X!) / Break%       'Определение шага разбиения
  FOR Meter% = 0 TO Break% - 1
    Y! = Y! + S! * (FNDerivative!(X! + Meter% * S!, Y!))
                                    'Вычисление первообразной в точке Xresul
  NEXT Meter%
  FNDifAyl! = Y!                        'Определение значения функции
END DEF

PRINT FNDifAyl!(0, 0, 100, 10)     'Вычисление первообразной
END