|
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 - metrics - download
Length: 1248 (0x4e0)
Notes: Mikados TextFile, Mikados_K
Names: »POLYGON«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »POLYGON«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »POLYGON«
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 "-------------------------------------"