|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »PYTHAGOR.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »PYTHAGOR.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »PYTHAGOR.K«
0010 // -------------------- pyth_talsæt ------------------- 0020 // Simpel bestemmelse af pythagoræiske talsæt 0030 // 0035 INTEGER A,B,C,MAX 0040 CLEAR 0045 PRINT 0050 INPUT "Indtast øverste grænse for tallene: ":MAX 0060 PRINT 0070 PRINT " A B C" 0080 PRINT 0090 FOR C:=1 TO MAX DO 0100 FOR B:=1 TO C DO 0110 FOR A:=1 TO B DO 0120 IF A*A+B*B=C*C THEN 0130 PRINT USING " #### #### #### ":A,B,C 0140 ENDIF 0150 NEXT A 0160 NEXT B 0170 NEXT C
0x000…03e Line {l1=0x3c, l2=»0010 // -------------------- pyth_talsæt -------------------«, l3=0x3c}
0x03e…072 Line {l1=0x32, l2=»0020 // Simpel bestemmelse af pythagoræiske talsæt«, l3=0x32}
0x072…07c Line {l1=0x08, l2=»0030 // «, l3=0x08}
0x07c…094 Line {l1=0x16, l2=»0035 INTEGER A,B,C,MAX«, l3=0x16}
0x094…0a1 Line {l1=0x0b, l2=»0040 CLEAR «, l3=0x0b}
0x0a1…0ae Line {l1=0x0b, l2=»0045 PRINT «, l3=0x0b}
0x0ae…0e6 Line {l1=0x36, l2=»0050 INPUT "Indtast øverste grænse for tallene: ":MAX«, l3=0x36}
0x0e6…0f3 Line {l1=0x0b, l2=»0060 PRINT «, l3=0x0b}
0x0f3…119 Line {l1=0x24, l2=»0070 PRINT " A B C"«, l3=0x24}
0x119…126 Line {l1=0x0b, l2=»0080 PRINT «, l3=0x0b}
0x126…140 Line {l1=0x18, l2=»0090 FOR C:=1 TO MAX DO «, l3=0x18}
0x140…158 Line {l1=0x16, l2=»0100 FOR B:=1 TO C DO «, l3=0x16}
0x158…170 Line {l1=0x16, l2=»0110 FOR A:=1 TO B DO «, l3=0x16}
0x170…18b Line {l1=0x19, l2=»0120 IF A*A+B*B=C*C THEN «, l3=0x19}
0x18b…1be Line {l1=0x31, l2=»0130 PRINT USING " #### #### #### ":A,B,C«, l3=0x31}
0x1be…1cb Line {l1=0x0b, l2=»0140 ENDIF «, l3=0x0b}
0x1cb…1d8 Line {l1=0x0b, l2=»0150 NEXT A«, l3=0x0b}
0x1d8…1e5 Line {l1=0x0b, l2=»0160 NEXT B«, l3=0x0b}
0x1e5…1f2 Line {l1=0x0b, l2=»0170 NEXT C«, l3=0x0b}
0x1f2…200 00 00 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 70 79 ┆ --------- py┆
0x200…220 74 68 5f 74 61 6c 73 7b 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3c 32 30 ┆th_talsæt -------------------<20┆
0x220…240 30 32 30 20 2f 2f 20 53 69 6d 70 65 6c 20 62 65 73 74 65 6d 6d 65 6c 73 65 20 61 66 20 70 79 74 ┆020 // Simpel bestemmelse af pyt┆
0x240…260 68 61 67 6f 72 7b 69 73 6b 65 20 74 61 6c 73 7b 74 32 08 30 30 33 30 20 2f 2f 20 08 16 30 30 33 ┆hagoræiske talsæt2 0030 // 003┆
0x260…280 35 20 49 4e 54 45 47 45 52 20 41 2c 42 2c 43 2c 4d 41 58 16 0b 30 30 34 30 20 43 4c 45 41 52 20 ┆5 INTEGER A,B,C,MAX 0040 CLEAR ┆
0x280…2a0 0b 0b 30 30 34 35 20 50 52 49 4e 54 20 0b 36 30 30 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 ┆ 0045 PRINT 60050 INPUT "Indta┆
0x2a0…2c0 73 74 20 7c 76 65 72 73 74 65 20 67 72 7b 6e 73 65 20 66 6f 72 20 74 61 6c 6c 65 6e 65 3a 20 20 ┆st øverste grænse for tallene: ┆
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┆
[…0x38…]