|
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: 2528 (0x9e0) Types: TextFile 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
40010 // ------------------ bino --------------------460020 // Programmet finder binomialkoefficienten K(n,r)6▶08◀0030 // ▶08◀▶10◀0034 INTEGER N,R▶10◀▶10◀0035 DIM S$ OF 1▶10◀\f 0040 REPEAT \f ▶0b◀0050 CLEAR ▶0b◀▶10◀0055 CURSOR 1,10▶10◀*0060 INPUT "Indtast n og r i K(n,r): ":N,R*00070 PRINT "K( ";N;",";R;") = ";CHR$(FNK(N,R),4)0▶08◀0080 // ▶08◀▶11◀0100 CURSOR 10,20▶11◀/0110 INPUT "Ønsker du at fortsætte? (j/n) ":S$/▶1b◀0140 UNTIL S$="N" OR S$="n"▶1b◀▶08◀0150 // ▶08◀▶16◀0160 PROC FNK(PRN,PRR)▶16◀A0170 IF INT(PRN)<>ABS(PRN) OR INT(PRR)<>ABS(PRR) OR PRN<PRR THEN A#0180 PRINT "*** Fejl i inddata ***"# 0190 STOP ▶0b◀0200 ENDIF ▶0b◀▶13◀0210 IF PRR=0 THEN ▶13◀▶0b◀0220 FNK:=1▶0b◀ 0230 ELSE 60240 IF PRR>PRN/2 THEN PRR:=PRN-PRR // K(n,r)=K(n,n-r)6▶0b◀0250 FAK:=1▶0b◀▶1a◀0260 FOR I:=0 TO PRR-1 DO ▶1a◀=0270 FAK:=FAK*(PRN-I)/(PRR-I) // Ex: K(10,4)=10/4*9/3*8/2*7/1=▶0b◀0280 NEXT I▶0b◀80290 FNK:=INT(FAK+0.5) // Afrund for en sikkerheds skyld8▶0b◀0300 ENDIF ▶0b◀▶10◀0310 ENDPROC FNK▶10◀▶00◀▶00◀ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc