DataMuseum.dk

top - metrics - download

    Length: 2528 (0x9e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »AFSTAND«

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »AFSTAND« 
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »AFSTAND« 

Text

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