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 - download

⟦162c5b07e⟧ TextFile

    Length: 736 (0x2e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »TREKANT3.K«

Derivation

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »TREKANT3.K« 
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »TREKANT3.K«

Mikados K File

0010 // ------------------- trekant3 ----------------------
0020 INPUT "Indtast grundlinien:                   ":GRUNDLINIE
0030 INPUT "Indtast længden af et af benene:       ":BEN
0040 CLEAR 
0045 PRINT 
0050 PRINT "Grundlinien:                           ";GRUNDLINIE
0060 PRINT "Længden af et af benene:               ";BEN
0070 PRINT 
0080 PI:=ATN(1)*4
0090 HØJDE:=SQR(BEN**2-(GRUNDLINIE/2)**2)
0100 VINKELA:=ATN(HØJDE/(GRUNDLINIE/2))*180/PI
0110 PRINT USING "Vinklerne ved grundlinien:  ####.### grader. ":VINKELA
0120 PRINT USING "Topvinklen:                 ####.### grader.":180-2*VINKELA

Mikados K File

0x000…03d Line {l1=0x3b, l2=»0010 // ------------------- trekant3 ----------------------«, l3=0x3b}
0x03d…07e Line {l1=0x3f, l2=»0020 INPUT "Indtast grundlinien:                   ":GRUNDLINIE«, l3=0x3f}
0x07e…0b8 Line {l1=0x38, l2=»0030 INPUT "Indtast længden af et af benene:       ":BEN«, l3=0x38}
0x0b8…0c5 Line {l1=0x0b, l2=»0040 CLEAR «, l3=0x0b}
0x0c5…0d2 Line {l1=0x0b, l2=»0045 PRINT «, l3=0x0b}
0x0d2…113 Line {l1=0x3f, l2=»0050 PRINT "Grundlinien:                           ";GRUNDLINIE«, l3=0x3f}
0x113…14d Line {l1=0x38, l2=»0060 PRINT "Længden af et af benene:               ";BEN«, l3=0x38}
0x14d…15a Line {l1=0x0b, l2=»0070 PRINT «, l3=0x0b}
0x15a…16d Line {l1=0x11, l2=»0080 PI:=ATN(1)*4«, l3=0x11}
0x16d…198 Line {l1=0x29, l2=»0090 HØJDE:=SQR(BEN**2-(GRUNDLINIE/2)**2)«, l3=0x29}
0x198…1c8 Line {l1=0x2e, l2=»0100 VINKELA:=ATN(HØJDE/(GRUNDLINIE/2))*180/PI«, l3=0x2e}
0x1c8…212 Line {l1=0x48, l2=»0110 PRINT USING "Vinklerne ved grundlinien:  ####.### grader. ":VINKELA«, l3=0x48}
0x212…261 Line {l1=0x4d, l2=»0120 PRINT USING "Topvinklen:                 ####.### grader.":180-2*VINKELA«, l3=0x4d}
0x261…280 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63      ┆  ccccccccccccccccccccccccccccc┆
0x280…2a0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆cccccccccccccccccccccccccccccccc┆
          […0x2…]

Reduced view