|
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: 480 (0x1e0)
Types: TextFile
Notes: Mikados_K
Names: »TREKANT2.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TREKANT2.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TREKANT2.K«
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
0x000…03d Line {l1=0x3b, l2=»0010 // ------------------- trekant2 ----------------------«, l3=0x3b}
0x03d…06c Line {l1=0x2d, l2=»0020 INPUT "Indtast siderne b og c: ":B,C«, l3=0x2d}
0x06c…0a0 Line {l1=0x32, l2=»0030 INPUT "Indtast vinkel A i grader: ":VINKELA«, l3=0x32}
0x0a0…0ad Line {l1=0x0b, l2=»0040 CLEAR «, l3=0x0b}
0x0ad…0ba Line {l1=0x0b, l2=»0045 PRINT «, l3=0x0b}
0x0ba…0df Line {l1=0x23, l2=»0050 PRINT "b: ";B«, l3=0x23}
0x0df…104 Line {l1=0x23, l2=»0060 PRINT "c: ";C«, l3=0x23}
0x104…145 Line {l1=0x3f, l2=»0070 PRINT USING "Vinkel A: ####.### grader.":VINKELA«, l3=0x3f}
0x145…152 Line {l1=0x0b, l2=»0080 PRINT «, l3=0x0b}
0x152…165 Line {l1=0x11, l2=»0090 PI:=ATN(1)*4«, l3=0x11}
0x165…195 Line {l1=0x2e, l2=»0100 A:=SQR(B*B+C*C-2*B*C*COS(VINKELA*PI/180))«, l3=0x2e}
0x195…1cf Line {l1=0x38, l2=»0110 PRINT USING "a: ###.### ":A«, l3=0x38}
0x1cf…1e0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccc┆