|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 811 (0x32b)
Notes: Mikados TextFile, Mikados_K
Names: »BINOMIAL«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BINOMIAL«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BINOMIAL«
0010 // ------------------ bino -------------------- 0020 // Programmet finder binomialkoefficienten K(n,r) 0030 // 0034 INTEGER N,R 0035 DIM S$ OF 1 0040 REPEAT 0050 CLEAR 0055 CURSOR 1,10 0060 INPUT "Indtast n og r i K(n,r): ":N,R 0070 PRINT "K( ";N;",";R;") = ";CHR$(FNK(N,R),4) 0080 // 0100 CURSOR 10,20 0110 INPUT "Ønsker du at fortsætte? (j/n) ":S$ 0140 UNTIL S$="N" OR S$="n" 0150 // 0160 PROC FNK(PRN,PRR) 0170 IF INT(PRN)<>ABS(PRN) OR INT(PRR)<>ABS(PRR) OR PRN<PRR THEN 0180 PRINT "*** Fejl i inddata ***" 0190 STOP 0200 ENDIF 0210 IF PRR=0 THEN 0220 FNK:=1 0230 ELSE 0240 IF PRR>PRN/2 THEN PRR:=PRN-PRR // K(n,r)=K(n,n-r) 0250 FAK:=1 0260 FOR I:=0 TO PRR-1 DO 0270 FAK:=FAK*(PRN-I)/(PRR-I) // Ex: K(10,4)=10/4*9/3*8/2*7/1 0280 NEXT I 0290 FNK:=INT(FAK+0.5) // Afrund for en sikkerheds skyld 0300 ENDIF 0310 ENDPROC FNK