40 Read X( I ) : next I
45 Data 1, 2.1, -3, -4.1, 1.7, 1.8, 1.9, 14.2, -5, -4.3, 11.2, 10.8
50 IF A> 4 THEN K = LOG( A ): M = 5: N = 12: GOSUB 100: GOTO 80
60 IF A< 4 THEN K = LOG( A/2 ): M = 1: N = 7: GOSUB 100: GOTO 80
70 K = LOG( A - 1 ): M = 3: N = 7: GOSUB 100
80 PRINT “Значение Y =“; Y; “ при A =“; A
90 END
100 S = 0
110 FOR I = M TO N
120 S = S + X( I ): NEXT I
130 Y = S * K
140 Return
Ввод данных:
Введите A = ? 3
Введите А = ? 4
Введите А = ? 5
Результаты расчета:
Значение Y = 0,567651 при А = 3
Значение Y = 8,239593 при А = 4
Значение Y = 51,98484 при А = 5
БЭЙСИК - программа алгоритма расчета Y с использованием оператор - функции DEF может быть записана в виде:
10 DIM X( 12 )
20 DEF FNY( K , M , N , X )
30 S = 0 : FOR I = M TO N
40 S = S + X( I ) : NEXT I
50 Y = S * K : FNY = Y
60 END DEF
70 INPUT “Введите А =“ ; А
80 FOR I = 1 TO 12
90 Read X( I ) : next I
100 Data 1, 2.1, -3, -4.1, 1.7, 1.8, 1.9, 14.2, -5, -4.3, 11.2, 10.8
110 IF A> 4 THEN K = LOG( A ): M = 5: N = 12: Y = FNY( K , M , N , X ): GOTO 150
120 IF A< 4 THEN K= LOG( A/2 ): M = 1: N = 7: Y = FNY( K , M , N , X ): GOTO 150
130 K = LOG( A - 1 ): M = 3: N = 9: Y = FNY( K , M , N , X )
140 PRINT “Значение Y =“;Y; “при А = “; A
150 END
Ввод данных:
Введите A = ? 3
Введите А = ? 4
Введите А = ? 5
Результаты расчета:
Значение Y = 0.567651 при А = 3
Значение Y = 8.239593 при А = 4
Значение Y = 51.98484 при А = 5
Тело оператор-функции для этой программы записано в 20 - 60 строках. В 110 - 130 строках определяются численные значения фактических параметров K , M , N (элементы массива Х вводятся в 80 - 100 строках программы). Для случая А = 4 операторы в 110 и 120 строках не выполняются и управление передается 130 строке данной программы.
1.10.4. Задание к лабораторной работе. Подготовить и организовать вычисление на ПЭВМ значений функций Y по формулам, указанным в вариантах задания (табл. 1.10.1) с использованием подпрограмм и операторов-функций. Значения элементов массива Х даны в приведенной выше табличной форме.
Таблица 1.10.1
-
Номер варианта
Расчетная формула
Значение
a b
1
2
3
1
Y =
5
-1
1
2
Y =
2 3
4 0
-1 -1
3
Y =
1 4
2 1
2 2
4
Y =
-2 5
4 2
0 0
Продолжение табл. 1.10.1
1
2
3
5
Y =
1
3
5
6
Y =
Y =
Y =
Y =
Y =
Продолжение 1.10.1
0.4
2
3.2
7
3
4
5
8
1 4
3 3
5 2
9
5 4
2 6
4 4
10
1
2
3
1
2
3
11
Y =
-6 -2
-2 -2
-3 -5
12
Y =
3 3
4 2
10 3
13
Y =
2 1
5 5
4 7
14
Y =
4 4
9 3
5 8
15
Y =
5 25
7 20
2 15