|
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: »AFSTAND.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »AFSTAND.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »AFSTAND.K«
0010 // ------------------------- AFSTAND -----------------------
0020 //
0030 // Udregner afstanden mellem to punkter i koordinatsystemet
0040 // når man indtaster de to punkters koordinater.
0050 //
0060 //
0065 DIM S$ OF 1
0066 INTEGER X1,Y1,X2,Y2
0070 REPEAT
0080 CLEAR
0090 CURSOR 20,2
0100 PRINT " A F S T A N D S F O R M L E N ."
0110 CURSOR 20,3
0120 PRINT " ______________________________"
0130 CURSOR 1,6
0140 PRINT "Du skal finde afstanden mellem to punkter A og B i koordinat-"
0150 PRINT "systemet, når du indtaster de to punkters koordinater. "
0160 CURSOR 1,9
0170 PRINT "DEFINITIONSOMRÅDE:"
0180 CURSOR 1,10
0190 PRINT "-18 <= x <= 18 & -10 <= y <= 10 "
0200 REPEAT
0210 CURSOR 1,14
0220 INPUT "Indtast punktet A's koordinater: ":X1,Y1
0230 UNTIL X1=>-19 AND X1<=19 AND Y1=>-10 AND Y1<=10
0240 REPEAT
0250 CURSOR 1,16
0260 INPUT "Indtast punktet B's koordinater: ":X2,Y2
0270 UNTIL X2=>-19 AND X2<=19 AND Y2=>-10 AND Y2<=10
0280 EXEC KOORDINAT
0290 AFSTANDEN:=SQR((X2-X1)**2+(Y2-Y1)**2)
0300 CURSOR 1,23
0310 PRINT "<ZS>Afstanden mellem A:(";X1;",";Y1;") og B:(";X2;",";Y2;") er: "
0320 PRINT USING "####.## ":AFSTANDEN
0330 FOR A:=1 TO 400 DO
0340 NEXT A
0350 REPEAT
0360 CURSOR 1,24
0370 INPUT "Ønsker du at fortsætte? (j/n) ":S$
0380 UNTIL S$ IN "JjNn" AND LEN(S$)>0
0390 VENT:=ORD(S$)
0410 UNTIL VENT=110
0420 // --------------------------------------------------------
0430 PROC KOORDINAT
0440 CLEAR
0450 CURSOR 3,2
0460 PRINT "AFSTANDSFORMELEN "
0470 PRINT "------------------"
0480 FOR Z:=2 TO 79 STEP 2 DO
0490 CURSOR Z,11
0500 PRINT "+ "
0510 NEXT Z
0520 FOR A:=1 TO 21 DO
0530 IF A<>11 THEN
0540 CURSOR 40,A
0550 PRINT "+"
0555 ENDIF
0560 NEXT A
0570 CURSOR 39+2*X1,11-Y1
0580 PRINT "* A (";X1;",";Y1;")"
0590 CURSOR 39+2*X2,11-Y2
0600 PRINT "* B (";X2;",";Y2;")"
0620 CURSOR 70,23
0630 INPUT "Return!":S$
0660 CURSOR 70,23
0670 PRINT CHR$(30)
0680 ENDPROC KOORDINAT
0x000…043 Line {l1=0x41, l2=»0010 // ------------------------- AFSTAND -----------------------«, l3=0x41}
0x043…04d Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x04d…08f Line {l1=0x40, l2=»0030 // Udregner afstanden mellem to punkter i koordinatsystemet«, l3=0x40}
0x08f…0c6 Line {l1=0x35, l2=»0040 // når man indtaster de to punkters koordinater.«, l3=0x35}
0x0c6…0d0 Line {l1=0x08, l2=»0050 // «, l3=0x08}
0x0d0…0da Line {l1=0x08, l2=»0060 // «, l3=0x08}
0x0da…0ec Line {l1=0x10, l2=»0065 DIM S$ OF 1«, l3=0x10}
0x0ec…106 Line {l1=0x18, l2=»0066 INTEGER X1,Y1,X2,Y2«, l3=0x18}
0x106…114 Line {l1=0x0c, l2=»0070 REPEAT «, l3=0x0c}
0x114…121 Line {l1=0x0b, l2=»0080 CLEAR «, l3=0x0b}
0x121…133 Line {l1=0x10, l2=»0090 CURSOR 20,2«, l3=0x10}
0x133…162 Line {l1=0x2d, l2=»0100 PRINT " A F S T A N D S F O R M L E N ."«, l3=0x2d}
0x162…174 Line {l1=0x10, l2=»0110 CURSOR 20,3«, l3=0x10}
0x174…1a3 Line {l1=0x2d, l2=»0120 PRINT " ______________________________"«, l3=0x2d}
0x1a3…1b4 Line {l1=0x0f, l2=»0130 CURSOR 1,6«, l3=0x0f}
0x1b4…200 Line {l1=0x4a, l2=»0140 PRINT "Du skal finde afstanden mellem to punkter A og B i koordinat-"«, l3=0x4a}
0x200…24c Line {l1=0x4a, l2=»0150 PRINT "systemet, når du indtaster de to punkters koordinater. "«, l3=0x4a}
0x24c…25d Line {l1=0x0f, l2=»0160 CURSOR 1,9«, l3=0x0f}
0x25d…27e Line {l1=0x1f, l2=»0170 PRINT "DEFINITIONSOMRÅDE:"«, l3=0x1f}
0x27e…290 Line {l1=0x10, l2=»0180 CURSOR 1,10«, l3=0x10}
0x290…2dd Line {l1=0x4b, l2=»0190 PRINT "-18 <= x <= 18 & -10 <= y <= 10 "«, l3=0x4b}
0x2dd…2eb Line {l1=0x0c, l2=»0200 REPEAT «, l3=0x0c}
0x2eb…2fd Line {l1=0x10, l2=»0210 CURSOR 1,14«, l3=0x10}
0x2fd…343 Line {l1=0x44, l2=»0220 INPUT "Indtast punktet A's koordinater: ":X1,Y1«, l3=0x44}
0x343…379 Line {l1=0x34, l2=»0230 UNTIL X1=>-19 AND X1<=19 AND Y1=>-10 AND Y1<=10«, l3=0x34}
0x379…387 Line {l1=0x0c, l2=»0240 REPEAT «, l3=0x0c}
0x387…399 Line {l1=0x10, l2=»0250 CURSOR 1,16«, l3=0x10}
0x399…3df Line {l1=0x44, l2=»0260 INPUT "Indtast punktet B's koordinater: ":X2,Y2«, l3=0x44}
0x3df…415 Line {l1=0x34, l2=»0270 UNTIL X2=>-19 AND X2<=19 AND Y2=>-10 AND Y2<=10«, l3=0x34}
0x415…42a Line {l1=0x13, l2=»0280 EXEC KOORDINAT«, l3=0x13}
0x42a…456 Line {l1=0x2a, l2=»0290 AFSTANDEN:=SQR((X2-X1)**2+(Y2-Y1)**2)«, l3=0x2a}
0x456…468 Line {l1=0x10, l2=»0300 CURSOR 1,23«, l3=0x10}
0x468…4b7 Line {l1=0x4d, l2=»0310 PRINT "<ZS>Afstanden mellem A:(";X1;",";Y1;") og B:(";X2;",";Y2;") er: "«, l3=0x4d}
0x4b7…4e6 Line {l1=0x2d, l2=»0320 PRINT USING "####.## ":AFSTANDEN«, l3=0x2d}
0x4e6…500 Line {l1=0x18, l2=»0330 FOR A:=1 TO 400 DO «, l3=0x18}
0x500…50d Line {l1=0x0b, l2=»0340 NEXT A«, l3=0x0b}
0x50d…51b Line {l1=0x0c, l2=»0350 REPEAT «, l3=0x0c}
0x51b…52d Line {l1=0x10, l2=»0360 CURSOR 1,24«, l3=0x10}
0x52d…561 Line {l1=0x32, l2=»0370 INPUT "Ønsker du at fortsætte? (j/n) ":S$«, l3=0x32}
0x561…588 Line {l1=0x25, l2=»0380 UNTIL S$ IN "JjNn" AND LEN(S$)>0«, l3=0x25}
0x588…59c Line {l1=0x12, l2=»0390 VENT:=ORD(S$)«, l3=0x12}
0x59c…5b1 Line {l1=0x13, l2=»0410 UNTIL VENT=110«, l3=0x13}
0x5b1…5f3 Line {l1=0x40, l2=»0420 // --------------------------------------------------------«, l3=0x40}
0x5f3…608 Line {l1=0x13, l2=»0430 PROC KOORDINAT«, l3=0x13}
0x608…615 Line {l1=0x0b, l2=»0440 CLEAR «, l3=0x0b}
0x615…626 Line {l1=0x0f, l2=»0450 CURSOR 3,2«, l3=0x0f}
0x626…646 Line {l1=0x1e, l2=»0460 PRINT "AFSTANDSFORMELEN "«, l3=0x1e}
0x646…667 Line {l1=0x1f, l2=»0470 PRINT "------------------"«, l3=0x1f}
0x667…687 Line {l1=0x1e, l2=»0480 FOR Z:=2 TO 79 STEP 2 DO «, l3=0x1e}
0x687…699 Line {l1=0x10, l2=»0490 CURSOR Z,11«, l3=0x10}
0x699…6aa Line {l1=0x0f, l2=»0500 PRINT "+ "«, l3=0x0f}
0x6aa…6b7 Line {l1=0x0b, l2=»0510 NEXT Z«, l3=0x0b}
0x6b7…6d0 Line {l1=0x17, l2=»0520 FOR A:=1 TO 21 DO «, l3=0x17}
0x6d0…6e5 Line {l1=0x13, l2=»0530 IF A<>11 THEN «, l3=0x13}
0x6e5…6f7 Line {l1=0x10, l2=»0540 CURSOR 40,A«, l3=0x10}
0x6f7…707 Line {l1=0x0e, l2=»0550 PRINT "+"«, l3=0x0e}
0x707…714 Line {l1=0x0b, l2=»0555 ENDIF «, l3=0x0b}
0x714…721 Line {l1=0x0b, l2=»0560 NEXT A«, l3=0x0b}
0x721…73c Line {l1=0x19, l2=»0570 CURSOR 39+2*X1,11-Y1«, l3=0x19}
0x73c…75e Line {l1=0x20, l2=»0580 PRINT "* A (";X1;",";Y1;")"«, l3=0x20}
0x75e…779 Line {l1=0x19, l2=»0590 CURSOR 39+2*X2,11-Y2«, l3=0x19}
0x779…79b Line {l1=0x20, l2=»0600 PRINT "* B (";X2;",";Y2;")"«, l3=0x20}
0x79b…7ae Line {l1=0x11, l2=»0620 CURSOR 70,23«, l3=0x11}
0x7ae…7c7 Line {l1=0x17, l2=»0630 INPUT "Return!":S$«, l3=0x17}
0x7c7…7da Line {l1=0x11, l2=»0660 CURSOR 70,23«, l3=0x11}
0x7da…7ef Line {l1=0x13, l2=»0670 PRINT CHR$(30)«, l3=0x13}
0x7ef…807 Line {l1=0x16, l2=»0680 ENDPROC KOORDINAT«, l3=0x16}
0x807…820 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccc┆
0x820…840 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┆
[…0xd…]