|
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: 1984 (0x7c0)
Types: TextFile
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
K0010 // --------------------- linies _ligning -----------------------------KK0020 // Opstiller ligningen for en ret linie, når man indtaster to punktersK▶14◀0030 // koordinater.▶14◀▶08◀0040 // ▶08◀▶18◀0045 INTEGER X1,X2,Y1,Y2▶18◀▶0b◀0050 CLEAR ▶0b◀▶0f◀0070 CURSOR 1,5▶0f◀C0080 PRINT "L i g n i n g e n f o r e n r e t l i n i e ."C▶0f◀0090 CURSOR 1,6▶0f◀C0100 PRINT "------------------------------------------------------"C▶0f◀0110 CURSOR 1,9▶0f◀50120 INPUT "Indtast punkt 1's koordinater: ":X1,Y1550130 INPUT "Indtast punkt 2's koordinater: ":X2,Y25▶08◀0140 // ▶08◀▶13◀0150 IF X1=X2 THEN ▶13◀▶13◀0160 IF Y1=Y2 THEN ▶13◀(0170 PRINT "Punkterne er sammenfaldende"(
0180 STOP
▶0b◀0190 ENDIF ▶0b◀L0200 PRINT "Ligningen for linien gennem (";X1;",";Y1;") og (";X2;",";Y2;")";L▶1a◀0210 PRINT " er: x = ";X1▶1a◀
0220 ELSE
▶17◀0230 A:=(Y1-Y2)/(X1-X2)▶17◀▶0f◀0240 B:=Y1-A*X1▶0f◀▶0b◀0250 PRINT ▶0b◀L0260 PRINT "Ligningen for linien gennem (";X1;",";Y1;") og (";X2;",";Y2;")";L▶11◀0269 IF B>0 THEN ▶11◀30270 PRINT USING " er: y = ###.## x +###.##":A,B3
0274 ELSE
30275 PRINT USING " er: y = ###.## x ####.##":A,B3▶0b◀0276 ENDIF ▶0b◀▶0b◀0280 ENDIF ▶0b◀▶00◀▶00◀---------KK0020 // Opstiller ligningen for en ret linie, når man indtaster to punktersK▶14◀0030 // koordinater.▶14◀▶08◀0040 // ▶08◀▶18◀0045 INTEGER X1,X2,Y1,Y2▶18◀▶0b◀0050 CLEAR cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc