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 - metrics - download

⟦e7bce4638⟧ TextFile

    Length: 1248 (0x4e0)
    Types: TextFile
    Notes: Mikados TextFile, Mikados_K
    Names: »ANDENGR1«

Derivation

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

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

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