|
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: 1248 (0x4e0)
Types: TextFile
Notes: Mikados_K
Names: »POLYGON.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »POLYGON.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »POLYGON.K«
0010 // ------------------------- polygon ---------------------------
0020 // Udregner arealet af en polygon, når man indtaster
0030 // vinkelspidsernes koordinatpunkter.
0040 //
0045 INTEGER ANTAL,A
0050 CLEAR
0060 INPUT "Indtast antal sider i polygonen: ":ANTAL
0070 INTEGER X(ANTAL),Y(ANTAL)
0080 PRINT
0090 //
0100 PRINT "Koordinaterne til vinkelspidserne skal nu angives "
0110 PRINT "i samme omløbsretning. "
0120 PRINT
0130 FOR A:=1 TO ANTAL DO
0140 PRINT
0150 PRINT "Punkt nummer ";A
0160 INPUT "Indsæt koordinatsæt: ":X(A),Y(A)
0170 NEXT A
0180 //
0190 AREAL:=0
0200 FOR A:=1 TO ANTAL-1 DO
0210 AREAL:=AREAL+X(A)*Y(A+1)-Y(A)*X(A+1)
0220 NEXT A
0230 AREAL:=AREAL+X(ANTAL)*Y(1)-Y(ANTAL)*X(1)
0240 PRINT
0250 PRINT "Vinkelspidsernes koordinater er: "
0260 PRINT "-------------------------------------"
0270 PRINT
0280 FOR I:=1 TO ANTAL DO
0290 PRINT "(";X(I);",";Y(I);")"
0300 NEXT I
0310 PRINT
0320 PRINT USING "A R E A L E T : #########.##":ABS(AREAL/2)
0330 PRINT "-------------------------------------"
0x000…047 Line {l1=0x45, l2=»0010 // ------------------------- polygon ---------------------------«, l3=0x45}
0x047…082 Line {l1=0x39, l2=»0020 // Udregner arealet af en polygon, når man indtaster«, l3=0x39}
0x082…0ae Line {l1=0x2a, l2=»0030 // vinkelspidsernes koordinatpunkter.«, l3=0x2a}
0x0ae…0b8 Line {l1=0x08, l2=»0040 // «, l3=0x08}
0x0b8…0ce Line {l1=0x14, l2=»0045 INTEGER ANTAL,A«, l3=0x14}
0x0ce…0db Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x0db…114 Line {l1=0x37, l2=»0060 INPUT "Indtast antal sider i polygonen: ":ANTAL«, l3=0x37}
0x114…134 Line {l1=0x1e, l2=»0070 INTEGER X(ANTAL),Y(ANTAL)«, l3=0x1e}
0x134…141 Line {l1=0x0b, l2=»0080 PRINT «, l3=0x0b}
0x141…14b Line {l1=0x08, l2=»0090 // «, l3=0x08}
0x14b…18c Line {l1=0x3f, l2=»0100 PRINT "Koordinaterne til vinkelspidserne skal nu angives "«, l3=0x3f}
0x18c…1cd Line {l1=0x3f, l2=»0110 PRINT "i samme omløbsretning. "«, l3=0x3f}
0x1cd…1da Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x1da…1f6 Line {l1=0x1a, l2=»0130 FOR A:=1 TO ANTAL DO «, l3=0x1a}
0x1f6…203 Line {l1=0x0b, l2=»0140 PRINT «, l3=0x0b}
0x203…221 Line {l1=0x1c, l2=»0150 PRINT "Punkt nummer ";A«, l3=0x1c}
0x221…259 Line {l1=0x36, l2=»0160 INPUT "Indsæt koordinatsæt: ":X(A),Y(A)«, l3=0x36}
0x259…266 Line {l1=0x0b, l2=»0170 NEXT A«, l3=0x0b}
0x266…270 Line {l1=0x08, l2=»0180 // «, l3=0x08}
0x270…27f Line {l1=0x0d, l2=»0190 AREAL:=0«, l3=0x0d}
0x27f…29d Line {l1=0x1c, l2=»0200 FOR A:=1 TO ANTAL-1 DO «, l3=0x1c}
0x29d…2c8 Line {l1=0x29, l2=»0210 AREAL:=AREAL+X(A)*Y(A+1)-Y(A)*X(A+1)«, l3=0x29}
0x2c8…2d5 Line {l1=0x0b, l2=»0220 NEXT A«, l3=0x0b}
0x2d5…304 Line {l1=0x2d, l2=»0230 AREAL:=AREAL+X(ANTAL)*Y(1)-Y(ANTAL)*X(1)«, l3=0x2d}
0x304…311 Line {l1=0x0b, l2=»0240 PRINT «, l3=0x0b}
0x311…345 Line {l1=0x32, l2=»0250 PRINT "Vinkelspidsernes koordinater er: "«, l3=0x32}
0x345…379 Line {l1=0x32, l2=»0260 PRINT "-------------------------------------"«, l3=0x32}
0x379…386 Line {l1=0x0b, l2=»0270 PRINT «, l3=0x0b}
0x386…3a2 Line {l1=0x1a, l2=»0280 FOR I:=1 TO ANTAL DO «, l3=0x1a}
0x3a2…3c4 Line {l1=0x20, l2=»0290 PRINT "(";X(I);",";Y(I);")"«, l3=0x20}
0x3c4…3d1 Line {l1=0x0b, l2=»0300 NEXT I«, l3=0x0b}
0x3d1…3de Line {l1=0x0b, l2=»0310 PRINT «, l3=0x0b}
0x3de…424 Line {l1=0x44, l2=»0320 PRINT USING "A R E A L E T : #########.##":ABS(AREAL/2)«, l3=0x44}
0x424…458 Line {l1=0x32, l2=»0330 PRINT "-------------------------------------"«, l3=0x32}
0x458…460 00 00 63 63 63 63 63 63 ┆ cccccc┆
0x460…480 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┆
[…0x3…]