|
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: »TRIGONOM«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TRIGONOM«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TRIGONOM«
0010 // ------------------------- Trigonometri --------------------------- 0020 // 0030 PROC COSG(V1,FAKTOR1) 0040 COSG:=COS(V1*FAKTOR1) 0050 ENDPROC COSG 0060 // 0070 PROC SING(V1,FAKTOR1) 0080 SING:=SIN(V1*FAKTOR1) 0090 ENDPROC SING 0100 // 0110 PROC TANG(V1,FAKTOR1) 0120 TANG:=TAN(V1*FAKTOR1) 0130 ENDPROC TANG 0140 // 0150 CLEAR 0155 PRINT 0160 FAKTOR:=ATN(1)*4/180 0170 INPUT "Tast vinklen W i grader: ":V 0180 PRINT "w = ";V;"grader" 0190 PRINT USING "cos(w) =####.#####":COSG(V,FAKTOR) 0200 PRINT USING "sin(w) =####.#####":SING(V,FAKTOR) 0210 PRINT USING "tan(w) =####.#####":TANG(V,FAKTOR)