|
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: 960 (0x3c0)
Types: TextFile
Notes: Mikados_K
Names: »TREKANT1.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TREKANT1.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TREKANT1.K«
0010 // ------------------- trekant1 ---------------------- 0020 PI:=ATN(1)*4 0030 INPUT "Indtast kateterne a og b: ":A,B 0040 C:=SQR(A*A+B*B) 0050 VINKELA:=ATN(A/B)*180/PI 0060 VINKELB:=90-VINKELA 0070 CLEAR 0075 PRINT 0080 PRINT "a: ";A 0090 PRINT "b: ";B 0100 PRINT 0110 PRINT USING "c =####.### ":C 0120 PRINT USING "Vinkel A = ###.### grader ":VINKELA 0130 PRINT USING "Vinkel B = ###.### grader ":VINKELB
0x000…03d Line {l1=0x3b, l2=»0010 // ------------------- trekant1 ----------------------«, l3=0x3b}
0x03d…050 Line {l1=0x11, l2=»0020 PI:=ATN(1)*4«, l3=0x11}
0x050…07f Line {l1=0x2d, l2=»0030 INPUT "Indtast kateterne a og b: ":A,B«, l3=0x2d}
0x07f…095 Line {l1=0x14, l2=»0040 C:=SQR(A*A+B*B)«, l3=0x14}
0x095…0b4 Line {l1=0x1d, l2=»0050 VINKELA:=ATN(A/B)*180/PI«, l3=0x1d}
0x0b4…0ce Line {l1=0x18, l2=»0060 VINKELB:=90-VINKELA«, l3=0x18}
0x0ce…0db Line {l1=0x0b, l2=»0070 CLEAR «, l3=0x0b}
0x0db…0e8 Line {l1=0x0b, l2=»0075 PRINT «, l3=0x0b}
0x0e8…102 Line {l1=0x18, l2=»0080 PRINT "a: ";A«, l3=0x18}
0x102…11c Line {l1=0x18, l2=»0090 PRINT "b: ";B«, l3=0x18}
0x11c…129 Line {l1=0x0b, l2=»0100 PRINT «, l3=0x0b}
0x129…162 Line {l1=0x37, l2=»0110 PRINT USING "c =####.### ":C«, l3=0x37}
0x162…1a1 Line {l1=0x3d, l2=»0120 PRINT USING "Vinkel A = ###.### grader ":VINKELA«, l3=0x3d}
0x1a1…1e0 Line {l1=0x3d, l2=»0130 PRINT USING "Vinkel B = ###.### grader ":VINKELB«, l3=0x3d}
0x1e0…200 00 00 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 74 72 65 ┆ 010 // ------------------- tre┆
0x200…220 6b 61 6e 74 31 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 11 30 30 ┆kant1 ----------------------; 00┆
0x220…240 32 30 20 50 49 3a 3d 41 54 4e 28 31 29 2a 34 11 2d 30 30 33 30 20 49 4e 50 55 54 20 22 49 6e 64 ┆20 PI:=ATN(1)*4 -0030 INPUT "Ind┆
0x240…260 74 61 73 74 20 6b 61 74 65 74 65 72 6e 65 20 61 20 6f 67 20 62 3a 20 20 20 22 3a 41 2c 42 2d 14 ┆tast kateterne a og b: ":A,B- ┆
0x260…280 30 30 34 30 20 43 3a 3d 53 51 52 28 41 2a 41 2b 42 2a 42 29 14 1d 30 30 35 30 20 56 49 4e 4b 45 ┆0040 C:=SQR(A*A+B*B) 0050 VINKE┆
0x280…2a0 4c 41 3a 3d 41 54 4e 28 41 2f 42 29 2a 31 38 30 2f 50 49 1d 18 30 30 36 30 20 56 49 4e 4b 45 4c ┆LA:=ATN(A/B)*180/PI 0060 VINKEL┆
0x2a0…2c0 42 3a 3d 39 30 2d 56 49 4e 4b 45 4c 41 18 0b 30 30 37 30 20 43 4c 45 41 52 20 0b 0b 30 30 37 35 ┆B:=90-VINKELA 0070 CLEAR 0075┆
0x2c0…2e0 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┆
[…0x7…]