|
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: 993 (0x3e1)
Notes: Mikados TextFile, Mikados_K
Names: »RET_LINI«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RET_LINI«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RET_LINI«
0010 // --------------------- linies _ligning -----------------------------
0020 // Opstiller ligningen for en ret linie, når man indtaster to punkters
0030 // koordinater.
0040 //
0045 INTEGER X1,X2,Y1,Y2
0050 CLEAR
0070 CURSOR 1,5
0080 PRINT "L i g n i n g e n f o r e n r e t l i n i e ."
0090 CURSOR 1,6
0100 PRINT "------------------------------------------------------"
0110 CURSOR 1,9
0120 INPUT "Indtast punkt 1's koordinater: ":X1,Y1
0130 INPUT "Indtast punkt 2's koordinater: ":X2,Y2
0140 //
0150 IF X1=X2 THEN
0160 IF Y1=Y2 THEN
0170 PRINT "Punkterne er sammenfaldende"
0180 STOP
0190 ENDIF
0200 PRINT "Ligningen for linien gennem (";X1;",";Y1;") og (";X2;",";Y2;")";
0210 PRINT " er: x = ";X1
0220 ELSE
0230 A:=(Y1-Y2)/(X1-X2)
0240 B:=Y1-A*X1
0250 PRINT
0260 PRINT "Ligningen for linien gennem (";X1;",";Y1;") og (";X2;",";Y2;")";
0269 IF B>0 THEN
0270 PRINT USING " er: y = ###.## x +###.##":A,B
0274 ELSE
0275 PRINT USING " er: y = ###.## x ####.##":A,B
0276 ENDIF
0280 ENDIF