Az Eszterházy Károly Tanárképző Főiskola Tudományos Közleményei. 1989. 19/8. (Acta Academiae Paedagogicae Agriensis : Nova series ; Tom. 19)

Csóké Lajos: Sturm tételének gyakorlati alkalmazásáról.

- 489 1026 GC1)=GC4> 1030 U=0 r L=C: FOR J=1 TO 2 STEP 0: G=tNTC3*CU*L))y\O: IF WA=U THEN OOSHB 1130 1033 GOSUB 600: GOSUB 300 1010 IF GCl

)—GC4 > = 1 THEN U=C: A=G<

1): GOSUB 11 10: IF VE=1 THEN WE=0: RETURN 1030 IF GC

1)—G(

4) = >1 THEN U=C: A-GC 4) 1060 IF GC

1)—GC

4 )=0 THEN L=C: FI=0 1063 E=ABSCL-U) 1070 IF E<2 THEN GOSUB 1130: RETURN 10Í30 NEXT 1090 IF U-LC3 THEN FRINT" ACZ) ";Uj

"-"

}Lj

BS:VE=1

: RETURN 1100 L=C: RETURN 1110 IF AB3CL-UX3 THEN FRINT" ACZ) "} L, "-", U , BS: VE=1 : RETURN 1120 RETURN 1130 FRINT"ACZ) " ; Lj "— ";U

;" INTERVALLUMBAN" ; GC1)—

A; " Gl'OK VAN!": RETURN 1150 S=HCO,N> 1133 FOR 1=1 TO N: S=S*a+ HCO

,N-l> : NEXT 1160 IF S=0 THEN FRINT C;"ZERUSHELVE A POLINOMNÁL":STOP 1170 RETURN *GYOKKERESES STURM MODSZEREVEL* A POLINOM FOÍCSZAMA: ? i AZ EGYUTTHATOK/ACN>-ACO)/: v ? 1 7 -62 ? 1104 ? -4238 ? -3423