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

⟦f4784c990⟧

    Length: 480 (0x1e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »TREKANT2«

Derivation

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »TREKANT2« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »TREKANT2«

Text

0010 // ------------------- trekant2 ----------------------
0020 INPUT "Indtast siderne b og c:     ":B,C
0030 INPUT "Indtast vinkel A i grader:   ":VINKELA
0040 CLEAR 
0045 PRINT 
0050 PRINT "b:                  ";B
0060 PRINT "c:                  ";C
0070 PRINT USING "Vinkel A:           ####.### grader.":VINKELA
0080 PRINT 
0090 PI:=ATN(1)*4
0100 A:=SQR(B*B+C*C-2*B*C*COS(VINKELA*PI/180))
0110 PRINT USING "a:                ###.###          ":A