DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦a8ce9c6c5⟧ TextFile

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados TextFile, Mikados_K
    Names: »BINOMIAL«

Derivation

└─⟦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« 

Text

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

TextFile

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