|
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: 1984 (0x7c0)
Types: TextFile
Notes: Mikados_K
Names: »COS_RELA.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »COS_RELA.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »COS_RELA.K«
0010 // -------------------------- cos_relat ----------------------- 0020 // Udgået i denne COMAL-version, da den ikke tillader recursive 0030 // procedurer
0x000…046 Line {l1=0x44, l2=»0010 // -------------------------- cos_relat -----------------------«, l3=0x44}
0x046…08c Line {l1=0x44, l2=»0020 // Udgået i denne COMAL-version, da den ikke tillader recursive«, l3=0x44}
0x08c…0a0 Line {l1=0x12, l2=»0030 // procedurer«, l3=0x12}
0x0a0…0c0 00 00 69 76 65 74 20 69 20 72 61 64 69 61 6e 65 72 2e 3b 12 30 30 33 30 20 43 41 53 45 20 54 52 ┆ ivet i radianer.; 0030 CASE TR┆
0x0c0…0e0 55 45 20 4f 46 20 12 17 30 30 34 30 20 57 48 45 4e 20 2d 31 3c 3d 58 20 41 4e 44 20 58 3c 30 17 ┆UE OF 0040 WHEN -1<=X AND X<0 ┆
0x0e0…100 27 30 30 35 30 20 41 52 43 43 4f 53 3a 3d 41 54 4e 28 53 51 52 28 31 2d 58 2a 58 29 2f 58 29 2b ┆'0050 ARCCOS:=ATN(SQR(1-X*X)/X)+┆
0x100…120 34 2a 41 54 4e 28 31 29 27 0d 30 30 36 30 20 57 48 45 4e 20 58 3d 30 0d 15 30 30 37 30 20 41 52 ┆4*ATN(1)' 0060 WHEN X=0 0070 AR┆
0x120…140 43 43 4f 53 3a 3d 41 54 4e 28 31 29 2a 32 15 16 30 30 38 30 20 57 48 45 4e 20 30 3c 58 20 41 4e ┆CCOS:=ATN(1)*2 0080 WHEN 0<X AN┆
0x140…160 44 20 58 3c 3d 31 16 1e 30 30 39 30 20 41 52 43 43 4f 53 3a 3d 41 54 4e 28 53 51 52 28 31 2d 58 ┆D X<=1 0090 ARCCOS:=ATN(SQR(1-X┆
0x160…180 2a 58 29 2f 58 29 1e 0f 30 30 39 32 20 4f 54 48 45 52 57 49 53 45 20 0f 0b 30 30 39 33 20 50 52 ┆*X)/X) 0092 OTHERWISE 0093 PR┆
0x180…1a0 49 4e 54 20 0b 0d 30 31 30 30 20 45 4e 44 43 41 53 45 20 0d 13 30 31 31 30 20 45 4e 44 50 52 4f ┆INT 0100 ENDCASE 0110 ENDPRO┆
0x1a0…1c0 43 20 41 52 43 43 4f 53 13 08 30 31 32 30 20 2f 2f 20 08 0b 30 31 33 30 20 43 4c 45 41 52 20 0b ┆C ARCCOS 0120 // 0130 CLEAR ┆
0x1c0…1e0 0b 30 31 33 35 20 50 52 49 4e 54 20 0b 1b 30 31 34 30 20 46 41 4b 54 4f 52 3a 3d 31 38 30 2f 28 ┆ 0135 PRINT 0140 FAKTOR:=180/(┆
0x1e0…200 41 54 4e 28 31 29 2a 34 29 1b 3c 30 31 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 73 ┆ATN(1)*4) <0150 INPUT "Indtast s┆
0x200…220 69 64 65 72 6e 65 20 61 2c 62 20 6f 67 20 63 20 69 20 65 6e 20 74 72 65 6b 61 6e 74 3a 20 20 20 ┆iderne a,b og c i en trekant: ┆
0x220…240 22 3a 41 2c 42 2c 43 3c 30 30 31 36 30 20 56 49 4e 4b 45 4c 41 3a 3d 46 41 4b 54 4f 52 2a 41 52 ┆":A,B,C<00160 VINKELA:=FAKTOR*AR┆
0x240…260 43 43 4f 53 28 28 42 2a 42 2b 43 2a 43 2d 41 2a 41 29 2f 32 2f 42 2f 43 29 30 30 30 31 37 30 20 ┆CCOS((B*B+C*C-A*A)/2/B/C)000170 ┆
0x260…280 56 49 4e 4b 45 4c 42 3a 3d 46 41 4b 54 4f 52 2a 41 52 43 43 4f 53 28 28 41 2a 41 2b 43 2a 43 2d ┆VINKELB:=FAKTOR*ARCCOS((A*A+C*C-┆
0x280…2a0 42 2a 42 29 2f 32 2f 41 2f 43 29 30 30 30 31 38 30 20 56 49 4e 4b 45 4c 43 3a 3d 46 41 4b 54 4f ┆B*B)/2/A/C)000180 VINKELC:=FAKTO┆
0x2a0…2c0 52 2a 41 52 43 43 4f 53 28 28 41 2a 41 2b 42 2a 42 2d 43 2a 43 29 2f 32 2f 41 2f 42 29 30 13 30 ┆R*ARCCOS((A*A+B*B-C*C)/2/A/B)0 0┆
0x2c0…2e0 31 39 30 20 50 52 49 4e 54 20 22 61 20 3d 20 22 3b 41 13 13 30 32 30 30 20 50 52 49 4e 54 20 22 ┆190 PRINT "a = ";A 0200 PRINT "┆
0x2e0…300 62 20 3d 20 22 3b 42 13 13 30 32 31 30 20 50 52 49 4e 54 20 22 63 20 3d 20 22 3b 43 13 0b 30 32 ┆b = ";B 0210 PRINT "c = ";C 02┆
0x300…320 32 30 20 50 52 49 4e 54 20 0b 34 30 32 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 56 69 6e ┆20 PRINT 40230 PRINT USING "Vin┆
0x320…340 6b 65 6c 20 41 20 3d 20 23 23 23 23 2e 23 23 20 67 72 61 64 65 72 22 3a 56 49 4e 4b 45 4c 41 34 ┆kel A = ####.## grader":VINKELA4┆
0x340…360 34 30 32 34 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 56 69 6e 6b 65 6c 20 42 20 3d 20 23 23 ┆40240 PRINT USING "Vinkel B = ##┆
0x360…380 23 23 2e 23 23 20 67 72 61 64 65 72 22 3a 56 49 4e 4b 45 4c 42 34 34 30 32 35 30 20 50 52 49 4e ┆##.## grader":VINKELB440250 PRIN┆
0x380…3a0 54 20 55 53 49 4e 47 20 22 56 69 6e 6b 65 6c 20 43 20 3d 20 23 23 23 23 2e 23 23 20 67 72 61 64 ┆T USING "Vinkel C = ####.## grad┆
0x3a0…3c0 65 72 22 3a 56 49 4e 4b 45 4c 43 34 0b 30 32 37 30 20 50 52 49 4e 54 20 0b 3c 30 32 38 30 20 50 ┆er":VINKELC4 0270 PRINT <0280 P┆
0x3c0…3e0 52 49 4e 54 20 22 4b 6f 6e 74 72 6f 6c 3a 20 20 20 56 69 6e 6b 65 6c 73 75 6d 20 3d 20 22 2c 56 ┆RINT "Kontrol: Vinkelsum = ",V┆
0x3e0…400 49 4e 4b 45 4c 41 2b 56 49 4e 4b 45 4c 42 2b 56 49 4e 4b 45 4c 43 3c 00 00 2d 2d 2d 2d 2d 2d 2d ┆INKELA+VINKELB+VINKELC< -------┆
0x400…420 2d 2d 2d 20 63 6f 73 5f 72 65 6c 61 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--- cos_relat ------------------┆
0x420…440 2d 2d 2d 2d 2d 44 17 30 30 31 35 20 49 4e 54 45 47 45 52 20 54 52 55 45 2c 46 41 4c 53 45 17 15 ┆-----D 0015 INTEGER TRUE,FALSE ┆
0x440…460 30 30 31 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 45 3a 3d 30 15 3b 30 30 32 30 20 50 52 4f 43 ┆0016 TRUE:=1;FALSE:=0 ;0020 PROC┆
0x460…480 20 41 52 43 43 4f 53 28 58 29 20 2f 2f 20 61 72 63 63 6f 73 28 78 29 20 62 6c 69 76 65 72 20 61 ┆ ARCCOS(X) // arccos(x) bliver a┆
0x480…4a0 6e 67 69 76 65 74 20 69 20 72 61 64 69 61 6e 65 72 2e 3b 12 30 30 33 30 20 43 41 53 45 20 54 52 ┆ngivet i radianer.; 0030 CASE TR┆
0x4a0…4c0 55 45 20 4f 46 20 12 17 30 30 34 30 20 57 48 45 4e 20 2d 31 3c 3d 58 20 41 4e 44 20 58 3c 30 17 ┆UE OF 0040 WHEN -1<=X AND X<0 ┆
0x4c0…4e0 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┆
[…0x17…]