|
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 - download
Length: 736 (0x2e0)
Types: TextFile
Notes: Mikados_K
Names: »TRIGONOM.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TRIGONOM.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TRIGONOM.K«
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)
0x000…04c Line {l1=0x4a, l2=»0010 // ------------------------- Trigonometri ---------------------------«, l3=0x4a}
0x04c…056 Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x056…072 Line {l1=0x1a, l2=»0030 PROC COSG(V1,FAKTOR1)«, l3=0x1a}
0x072…08e Line {l1=0x1a, l2=»0040 COSG:=COS(V1*FAKTOR1)«, l3=0x1a}
0x08e…0a1 Line {l1=0x11, l2=»0050 ENDPROC COSG«, l3=0x11}
0x0a1…0ab Line {l1=0x08, l2=»0060 // «, l3=0x08}
0x0ab…0c7 Line {l1=0x1a, l2=»0070 PROC SING(V1,FAKTOR1)«, l3=0x1a}
0x0c7…0e3 Line {l1=0x1a, l2=»0080 SING:=SIN(V1*FAKTOR1)«, l3=0x1a}
0x0e3…0f6 Line {l1=0x11, l2=»0090 ENDPROC SING«, l3=0x11}
0x0f6…100 Line {l1=0x08, l2=»0100 // «, l3=0x08}
0x100…11c Line {l1=0x1a, l2=»0110 PROC TANG(V1,FAKTOR1)«, l3=0x1a}
0x11c…138 Line {l1=0x1a, l2=»0120 TANG:=TAN(V1*FAKTOR1)«, l3=0x1a}
0x138…14b Line {l1=0x11, l2=»0130 ENDPROC TANG«, l3=0x11}
0x14b…155 Line {l1=0x08, l2=»0140 // «, l3=0x08}
0x155…162 Line {l1=0x0b, l2=»0150 CLEAR «, l3=0x0b}
0x162…16f Line {l1=0x0b, l2=»0155 PRINT «, l3=0x0b}
0x16f…18a Line {l1=0x19, l2=»0160 FAKTOR:=ATN(1)*4/180«, l3=0x19}
0x18a…1b6 Line {l1=0x2a, l2=»0170 INPUT "Tast vinklen W i grader: ":V«, l3=0x2a}
0x1b6…1d4 Line {l1=0x1c, l2=»0180 PRINT "w = ";V;"grader"«, l3=0x1c}
0x1d4…20a Line {l1=0x34, l2=»0190 PRINT USING "cos(w) =####.#####":COSG(V,FAKTOR)«, l3=0x34}
0x20a…240 Line {l1=0x34, l2=»0200 PRINT USING "sin(w) =####.#####":SING(V,FAKTOR)«, l3=0x34}
0x240…276 Line {l1=0x34, l2=»0210 PRINT USING "tan(w) =####.#####":TANG(V,FAKTOR)«, l3=0x34}
0x276…280 00 00 63 63 63 63 63 63 63 63 ┆ cccccccc┆
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…]