Общая информация

Функции пользователя

Подпрограммы

Пример

Контрольные вопросы

Задания

        Демонстрация работы подпрограммы.


                                 

10 'Пример подпрограммы 20 input X, Y, Z 30 GOSUB 50 40 END 50 'Подпрограмма 60 A=X*Y+Z 70 PRINT "A=" ; A 80 RETURN

Введите X: Введите Y: Введите Z: A =

Пример №1 Составить программу вычисления значения выражения                             (демонстрация работы пользовательских функций).

   Z(x)= (th(x + a) + th (x + b))/cth(x - a) + cth (x - b)

   th(x)=(ex - e -x)/(ex + e -x)

10  'Вычисление по формуле Z(X)
20  DEFFN T(X)=( EXP(X)-EXP(-X))/( EXP(X)+EXP(-X))
30  input X, A, B
40  P=X+A : Q=X+B
50  R=X-A : S=X-B
60  Z=( FNT(P)+FNT(Q))/( 1/ FNT(R)+1/FNT(S))
70  PRINT "Z (X)= " ; Z
80  GOTO 30