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.

40 FOR J—2 TO N SO FOK K=0 TO N-K2-J: AC K) =!K J-2

, K) : NEXT 60 FOR K=0 TO N+l-J: BCK>=HCJ-l

,K> : NEXT 70 T—K.-1

: K=T 72 FOR 1=0 TO N+2-J 73 V=i>l+2-J-I 80 IF K>V THEN 110 03 IF BC T)

=0 THEN FRINT"TOBBSZOROS GYOIC! ": GOSUB 000: STOP 90 C—ACN+2-J—D/BCT? 100 FOR L=0 TO K: A=N-I+2-j-L: AC A>=AC A)-CX'BC K. I >: NEXT L: NEXT I 110 FOR L=0 TO K-l: HC J , D^-ACL)

: NEXT I.: NEXT J 120 FOR 1=0 TO N 130 S=—

1: IF N-I=1NTCCN-I)X2)^2 THEN S=1 110 ACN-I)=-1

: IF S*HCI,N-I)>=0 THEN ACN-i:>=l 145 NEXT: P=1 : GOSUB 300 130 FOR 1=0 TO N 160 A(N-I)=—

1: IF HCI,N-I)>=0 THEN ACN~I>=1 163 NEXT: F=2

: GOSUB 300 170 FOR 1=0 TO N 180 AC N—I > 1 : IF HC I,

05>=0 I HEN AtN-I)^l 190 NEXT: P=3: GOSUB 300 200 FRINT-A NEGATIV VALÓS GYOKOK SZAMA=", GC1 )-GC3) 210 PRINT-A POZITÍV VALOS GYOKOK SZAMA=*" ; GC 3 J>-GC 2 > 213 IF GC3>—GC2) >0 THEN G=10000: GOSUB 900: REM »•'FOZITIV GYOK BEHATAROLAS* } j v ) ) ' N 216 IF GC1)-GC 3)>0 THEN C=~10000: GOSUB 1020: REM ^NEGATIV GYOK BEHATAROLAS* 217 STOP 300 REM *AZ ELŐJELVÁLTÁSOK SZAMANAK H.H.* 301 GCP)

=0: X=AC N)

: FOR 1=0 TO N-l