DataMuseum.dk Presents historical artifacts from the history of: MIKADOS

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦e7bce4638⟧ TextFile

    Length: 1248 (0x4e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »ANDENGR1.K«

Derivation

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

0010 // -------------------------- andengr1 ----------------------
0020 // Andengradsligningen med IF - THEN - ELSE - ENDIF
0030 CLEAR 
0040 CURSOR 1,6
0050 PRINT " Andengradsligningen   Ax2 + Bx + C = 0 "
0060 PRINT "--------------------------------------------"
0070 INPUT " Indtast A:                        ":A
0080 INPUT " Indtast B:                        ":B
0090 INPUT " Indtast C:                        ":C
0100 // ------------------------------------------------------------------
0110 DISKRIMI:=B**2+(-4)*A*C
0120 // ------------------------------------------------------------------
0130 IF DISKRIMI<0 THEN 
0140 PRINT 
0150 PRINT 
0160 PRINT " ligningen har ingen reelle rødder."
0170 ELSE 
0175 IF DISKRIMI=0 THEN 
0180 X:=-B/2/A
0190 PRINT 
0200 PRINT USING " Ligningen har dobbeltroden:     +####.##    ":X
0210 PRINT 
0220 ELSE 
0230 PRINT " Ligningen har to rødder: "
0240 PRINT 
0250 X1:=(-B+SQR(DISKRIMI))/2/A
0260 PRINT USING "X1 =                             +####.##    ":X1
0270 X2:=(-B-SQR(DISKRIMI))/2/A
0280 PRINT USING "X2 =                             +####.##    ":X2
0290 ENDIF 
0300 CURSOR 1,21

0x000…044 Line {l1=0x42, l2=»0010 // -------------------------- andengr1 ----------------------«, l3=0x42}
0x044…07e Line {l1=0x38, l2=»0020 // Andengradsligningen med IF - THEN - ELSE - ENDIF«, l3=0x38}
0x07e…08b Line {l1=0x0b, l2=»0030 CLEAR «, l3=0x0b}
0x08b…09c Line {l1=0x0f, l2=»0040 CURSOR 1,6«, l3=0x0f}
0x09c…0d3 Line {l1=0x35, l2=»0050 PRINT " Andengradsligningen   Ax2 + Bx + C = 0 "«, l3=0x35}
0x0d3…10e Line {l1=0x39, l2=»0060 PRINT "--------------------------------------------"«, l3=0x39}
0x10e…142 Line {l1=0x32, l2=»0070 INPUT " Indtast A:                        ":A«, l3=0x32}
0x142…176 Line {l1=0x32, l2=»0080 INPUT " Indtast B:                        ":B«, l3=0x32}
0x176…1aa Line {l1=0x32, l2=»0090 INPUT " Indtast C:                        ":C«, l3=0x32}
0x1aa…1f6 Line {l1=0x4a, l2=»0100 // ------------------------------------------------------------------«, l3=0x4a}
0x1f6…214 Line {l1=0x1c, l2=»0110 DISKRIMI:=B**2+(-4)*A*C«, l3=0x1c}
0x214…260 Line {l1=0x4a, l2=»0120 // ------------------------------------------------------------------«, l3=0x4a}
0x260…27a Line {l1=0x18, l2=»0130 IF DISKRIMI<0 THEN «, l3=0x18}
0x27a…287 Line {l1=0x0b, l2=»0140 PRINT «, l3=0x0b}
0x287…294 Line {l1=0x0b, l2=»0150 PRINT «, l3=0x0b}
0x294…2c6 Line {l1=0x30, l2=»0160 PRINT " ligningen har ingen reelle rødder."«, l3=0x30}
0x2c6…2d2 Line {l1=0x0a, l2=»0170 ELSE «, l3=0x0a}
0x2d2…2ec Line {l1=0x18, l2=»0175 IF DISKRIMI=0 THEN «, l3=0x18}
0x2ec…2fc Line {l1=0x0e, l2=»0180 X:=-B/2/A«, l3=0x0e}
0x2fc…309 Line {l1=0x0b, l2=»0190 PRINT «, l3=0x0b}
0x309…34d Line {l1=0x42, l2=»0200 PRINT USING " Ligningen har dobbeltroden:     +####.##    ":X«, l3=0x42}
0x34d…35a Line {l1=0x0b, l2=»0210 PRINT «, l3=0x0b}
0x35a…366 Line {l1=0x0a, l2=»0220 ELSE «, l3=0x0a}
0x366…38f Line {l1=0x27, l2=»0230 PRINT " Ligningen har to rødder: "«, l3=0x27}
0x38f…39c Line {l1=0x0b, l2=»0240 PRINT «, l3=0x0b}
0x39c…3bd Line {l1=0x1f, l2=»0250 X1:=(-B+SQR(DISKRIMI))/2/A«, l3=0x1f}
0x3bd…402 Line {l1=0x43, l2=»0260 PRINT USING "X1 =                             +####.##    ":X1«, l3=0x43}
0x402…423 Line {l1=0x1f, l2=»0270 X2:=(-B-SQR(DISKRIMI))/2/A«, l3=0x1f}
0x423…468 Line {l1=0x43, l2=»0280 PRINT USING "X2 =                             +####.##    ":X2«, l3=0x43}
0x468…475 Line {l1=0x0b, l2=»0290 ENDIF «, l3=0x0b}
0x475…487 Line {l1=0x10, l2=»0300 CURSOR 1,21«, l3=0x10}
0x487…4a0 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┆
0x4a0…4c0 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┆
          […0x1…]

B0010 // -------------------------- andengr1 ----------------------B80020 // Andengradsligningen med IF - THEN - ELSE - ENDIF8▶0b◀0030 CLEAR ▶0b◀▶0f◀0040 CURSOR 1,6▶0f◀50050 PRINT " Andengradsligningen   Ax2 + Bx + C = 0 "590060 PRINT "--------------------------------------------"920070 INPUT " Indtast A:                        ":A220080 INPUT " Indtast B:                        ":B220090 INPUT " Indtast C:                        ":C2J0100 // ------------------------------------------------------------------J▶1c◀0110 DISKRIMI:=B**2+(-4)*A*C▶1c◀J0120 // ------------------------------------------------------------------J▶18◀0130 IF DISKRIMI<0 THEN ▶18◀▶0b◀0140 PRINT ▶0b◀▶0b◀0150 PRINT ▶0b◀00160 PRINT " ligningen har ingen reelle rødder."0
0170 ELSE 
▶18◀0175 IF DISKRIMI=0 THEN ▶18◀▶0e◀0180 X:=-B/2/A▶0e◀▶0b◀0190 PRINT ▶0b◀B0200 PRINT USING " Ligningen har dobbeltroden:     +####.##    ":XB▶0b◀0210 PRINT ▶0b◀
0220 ELSE 
'0230 PRINT " Ligningen har to rødder: "'▶0b◀0240 PRINT ▶0b◀▶1f◀0250 X1:=(-B+SQR(DISKRIMI))/2/A▶1f◀C0260 PRINT USING "X1 =                             +####.##    ":X1C▶1f◀0270 X2:=(-B-SQR(DISKRIMI))/2/A▶1f◀C0280 PRINT USING "X2 =                             +####.##    ":X2C▶0b◀0290 ENDIF ▶0b◀▶10◀0300 CURSOR 1,21▶10◀▶00◀▶00◀ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Reduced view