информатика1ё / wesna / labor1 / 5в
.docЗадание 5
Вычислить
,
используя подпрограмму вычисления
(число сочетаний
элементов по
)
по формуле
.
Подпрограмма типа GOSUB
CLS
ZZ = 0
FOR i =1 TO 8
N = 16 - i
= n
GOSUB M1
Z = fak
m = i
= m
GOSUB M1
z = z / fak
= n – m
GOSUB M1
z = z / fak
z = zz + z
PRINT “Z=”; Z
NEXT
PRINT “z=”; zz
END
M1: fak = 1: K=1
M2: fak = fak * k
K = k +1
IF k < = 1 THEN GOTO M2
RETURN
Подпрограмма типа SUB
Rem SUB
CLS
DECLARE SUB
SOCH (
,
fak)
ZZ = 0
FOR i = 1 TO 8
N = 16 – i
= n
CALL SOCH
(
,
fak)
Z = fak
m = i
= m
CALL SOCH
(
,
fak)
Z = z / fak
= n – m
CALL SOCH
(
,
fak)
Z = z / fak
ZZ = ZZ + Z
PRINT Z
NEXT
PRINT “ Z=” ; ZZ
END
SUB
SOCH (
,
fak)
fak = 1
K=1
M1: fak = fak * k
K=K+1
IF k < = 1 THEN GOTO M2
END SUB
Подпрограмма типа FUNCTION
REM FUNCTION
CLS
DECLARE
FUNCTION fak (
))
ZZ = 0
FOR i = 1 to 8
N = 16 – i
= n
z = fak (
)
m = i
= m
z = z / fak
(
)
= n – m
z = z / fak
(
)
ZZ = ZZ + Z
PRINT Z
NEXT
PRINT “ Z=” ; ZZ
END
FUNCTION
fak (
)
fak 1 = 1
K=1
M1: fak 1 = fak 1 * k
K=K+1
IF k < = 1 THEN GOTO M2
fak = fak 1
END FUNCTION