|
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: 736 (0x2e0)
Notes: Mikados TextFile, Mikados_K
Names: »TREKANT3«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TREKANT3«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TREKANT3«
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