информатика1ё / wesna / labor1 / 14вгабб
.docЗадание 14
Получить таблицы значений функций , на отрезке [a,b] с шагом . Значения a, b, n заранее неизвестны, а должны вводиться в процессе выполнения программы. В программе использовать подпрограмму получения таблицы значений функции y = f(x), при обращении к которой конкретизируется функция f(x).
Подпрограмма типа GOSUB
CLS
INPUT a,b,n
H=(b-a)/n
PRINT “ Таблица f1”: m=1
GOSUB 10
PRINT “ Таблица f2”: m=2
GOSUB 10
PRINT “ Таблица f3”: m=3
GOSUB 10
END
FOR x = a to b STEP h
ON m GOTO 10,20,30
10 f =X^2+sin(x): GOTO 40
20 f=(1-X)/(1+x^2): GOTO 40
30 f=SQR (1+X^2)+1/(X^4+1)
40 PRINT X,f
NEXT x
RETURN
Подпрограмма типа SUB
CLS
DECLARE SUB TABL (M)
INPUT a, b,n
H=(b-a)/n
PRINT “ Таблица f1”
CALL TABL (1)
PRINT “ Таблица f2”
CALL TABL (2)
PRINT “ Таблица f3”
CALL TABL (3)
END
SUB TABL (m)
SHARED a, b, h
FOR x = a to b STEP h
ON m GOTO 10,20,30
10 f =X^2+sin(x): GOTO 40
20 f=(1-X)/(1+x^2): GOTO 40
30 f=SQR (1+X^2)+1/(X^4+1)
40 PRINT X,f
NEXT x
END SUB
Подпрограмма типа FUNCTION
CLS
DECLARE FUNCTION TABL (m)
INPUT a, b, h
H=(b-a)/n
PRINT “ Таблица f1”
T= TABL (1)
PRINT “ Таблица f2”
T= TABL (2)
PRINT “ Таблица f3”
T= TABL (3)
END
FUNCTION TABL (m)
SHARED a, b, h
FOR x = a to b STEP h
ON m GOTO 10,20,30
10 f =X^2+sin(x): GOTO 40
20 f=(1-X)/(1+x^2): GOTO 40
30 f=SQR (1+X^2)+1/(X^4+1)
40 PRINT X,f
NEXT x
END FUNCTION