Az Egri Ho Si Minh Tanárképző Főiskola Tud. Közleményei. 1973. (Acta Academiae Paedagogicae Agriensis : Nova series ; Tom. 11)

III. Tanulmányok a Természettudományok köréböl - Kiss Péter és Szepessy Bálint: Magasabbfokú egyenletek tárgyalásának egy módja a számítástechnika elemeinek felhasználásával

then begin xl

: = (— c sqrt (D))/2/b; x2: = (— c — sqrt (D))/2/b; print ('?xl =', xl, '?x2 =', x2); go to A end else begin D1

: = — e/2/b; D2: = (sqrt (— D))/2/b; D3: = —(sqrt (—D))/2/b; print ('?xl =Re', Im', D2, '?x2 = Re', Dl,' —Im', D3); go to A end end; E: = (2 X b t 3/a t 3 — 9 X b X c/a t 2 + 27 X d/a)/54; F: = (— b t 2/'a t 2 + 3 X c/a)/9; G: = E t 2 + F t 3; if G^O then begin print ('? harmadfokú egyenlet'); Ul: = — E-f-sqrt(G); VI: — — E —sqrt (G); if U1 ^ 0 then begin U: = U1 t 0.33333; print ('??U -= ', U) end else begin U: = — (— Ul) t 0.33333; print ('?U =', U) end; if VI ^ 0 then begin V: = VI t 0.33333; print ('?V =', V) end else begin V: = — (— VI) t 0.33333; print ('?V V) end J: = -(U +V)/2; 293-