Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Basic
Language: BASIC
Code:
10 PRINT'ВЫЧИСЛЕНИЕ ВСЕХ КОРНЕЙ НЕЛИНЕЙНОГО УРАВНЕНИЯ F(X)=0'
    20 PRINT'В ИНТЕРВАЛЕ (A,B) МЕТОДОМ ПОРАЗРЯДНОГО ПРИБЛИЖЕНИЯ'
    30 INPUT'ЗАДАЙТЕ ГРАНИЦЫ ИНТЕРВАЛА A.B 'A,B
    40 INPUT'ЗАДАЙТЕ ПОГРЕШНОСТЬ ВЫЧИСЛЕНИЯ КОРНЕЙ E='E
    50 INPUT'ЗАДАЙТЕ ШАГ НАЧАЛЬНОГО ПОИСКА H='H
    60 LETC=H:LETK=0:LETX=A:GOSUB 120:LETW=SGN(F)
    70 LETX=X+C:IF X-C>=B THEN PRINT'КОНЕЦ':STOP
    80 GOSUB 120:IF F*W/C>0 THEN 70
    90 LETC=-C/4:IF ABS(C)>E/4 THEN 70
    100 LETK=K+1:PRINT!2.0!'X'K!F1.9!'='X
    110 LETC=H:LETW=-W:GOTO 70
    120 LETI=.2718*X*EXP(-10*X)+1E-8*(EXP(20*X)-1)
    130 LETF=(1-X)/125-I:RETURN:END     
Comments: