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

⟦22f9b2a7b⟧

    Length: 960 (0x3c0)
    Notes: Mikados TextFile, Mikados_K
    Names: »TREKANT1«

Derivation

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

Text

0010 // ------------------- trekant1 ----------------------
0020 PI:=ATN(1)*4
0030 INPUT "Indtast kateterne a og b:   ":A,B
0040 C:=SQR(A*A+B*B)
0050 VINKELA:=ATN(A/B)*180/PI
0060 VINKELB:=90-VINKELA
0070 CLEAR 
0075 PRINT 
0080 PRINT "a:       ";A
0090 PRINT "b:       ";B
0100 PRINT 
0110 PRINT USING "c              =####.###          ":C
0120 PRINT USING "Vinkel A       = ###.### grader   ":VINKELA
0130 PRINT USING "Vinkel B       = ###.### grader   ":VINKELB