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.

310 IF XOAC N-l —I) AND ACIH-DOO THEN GCF)=OCP) + l: X=AC N—

1—I

} 520 NEXT 1: RETURN 600 REM *A HELY.ERTEKEK ELO .JELENEK H.H.* Ö01 FOR V--Ü TO N: Z=V: S=HCV,N-Z> 602 IF^ V=N THEN 610 605 FOR I=Z+1 TO N: S=S*C+HCV,N-I

): NEXT 610 Y=-l

: IF S>0 THEN Y=1 615 IF S=0 THEN Y=0 620 AC N—V) =»Y : NEXT: RETURN 000 FOR V=0 TO N: FOR Z«V TO N 810 PRINT HC V

,N~Z)j "

;:NEXT: PRINT: NEXT 900 REM *+GYOK*:GOSUB 600: P=4:GOSUB 500 003 IF OC3>—GC45=0 THEN PRINT "A POZITÍV GYOKOK NAGYOBBAK MINT 10000":RETURN 907 GC3)=GC45 910 L~C:FOR J=1 TO 2 STEP 0: G=INTC3*CU+L)>/l

0: GOSUB 600: GOSUB 500 920 IF GC 3 > —

GC 4 > »1 THEN A^GC 4 ) : GOSUB 11)00: IF Vl>1 IBEN WE—O

: RETURN 923 IF GC 3)—GC 4 ) >1 THEN U=G: A=GC1

) 930 IF GC3>-GC43=0 THEN L=G 930 IF L~0 <3 THEN PRINT "ACZ>", U

5 "~"j L," INTERVALLUMBAN"

t GC 3 )—A

; GYOK VAN!":RETURN 970 NEXT 1000 IF ABS<G—U><s) THEN PRINT"ACZ) "_> U; "-"; G; B«: WE^l: RETURN 1010 L=G: RETURN 1015 PRINT U,G,L: PRINT GC3),GC4) 1020 REM»« - GYOK *: GOSUB 600: P=4: GOSUB 500 1025 IF GC3)-GC4>=0 THEN PRINT"

A NEGATIV GYOKOK KISEBBEK HINT - 10000": RETURN