home *** CD-ROM | disk | FTP | other *** search
- 1 PRINT"":PRINT"[147]":POKE 53280,0:POKE 53281,0
- 10 PRINT" THIS PROGRAM HELPS DETERMINE THE ROOTS":PRINT
- 15 PRINT"OF AN (N) DEGREE POLYNOMIAL THAT":PRINT
- 20 PRINT"EQUALS ZERO.":PRINT
- 21 PRINT
- 22 PRINT"A(1)+A(2)(X)+...+A(N+1)(X**N)=0":PRINT
- 25 PRINT"ENTER DEGREE OF POLYNOMIAL:":INPUT N:IF N=0 GOTO 200
- 30 PRINT:PRINT"ENTER COEFFICIENTS:":PRINT""
- 32 DIM A(N+1)
- 35 FOR I=1 TO N+1
- 40 PRINT" A("I")=:":INPUT A(I)
- 45 NEXT I
- 46 PRINT:PRINT"DO YOU WANT TO PRINT OUTPUT(Y/N)?"
- 47 GET AA$:IF AA$="" THEN 47
- 48 IF AA$="Y" THEN CT=1.0:OPEN4,4:A=1
- 49 PRINT"[147]":GOSUB 500
- 50 PRINT:PRINT"THE LAST GUESS WAS X="X",F(X)="Y
- 51 PRINT:PRINT"ENTER X(THE POSSIBLE ROOT):":INPUT X:Y=0
- 65 Y=A(1)
- 70 FOR J=1 TO N
- 75 Y=Y+(A(J+1)*(X^J))
- 80 NEXT J
- 85 PRINT"X=" X
- 90 PRINT"":PRINT"F(X)=" Y:PRINT:PRINT"FOR X TO BE A ROOT Y=0."
- 91 IF CT=1.0 THEN PRINT#4,"X=" X:PRINT#4,"F(X)="Y:PRINT#4
- 95 PRINT:PRINT"DO YOU WISH TO TRY ANOTHER VALUE?(Y/N)
- 97 [161] X$:[139] X$[178]"" [167] 97
- 101 [139] X$[178]"N" [167] [137] 109
- 103 [153]"LOAD":CT[178]0.0:[141]500
- 104 [137] 50
- 109 [153]"LOAD":[153]"DO YOU WISH TO:"
- 110 [153]:[153]" 1)RE-RUN PROGRAM."
- 111 [153]:[153]" 2)EXIT TO BASIC."
- 112 [153]:[153]:[153]"PICK A NUMBER:"
- 113 [133] BG$
- 114 [139] BG$[178]"1"[167] [138]
- 115 [139] BG$[178]"2"[167] [137]117
- 116 [137] 109
- 117 [160]4:[162]:[128]
- 200 [153]:[153]" NOT A VALID INPUT":[153]:[137]25
- 500 [153]"THE POLYNOMIAL IS OF DEGREE"N:[153]
- 501 [139] CT[178]1.0 [167] [152]4,"THE POLYNOMIAL IS OF DEGREE"N:[152]4,
- 505 [153]"THE POL
- 16713 L IS:"
- 506 [139] CT[178]1.0 [167] [152]4,"THE POLYNOMIAL IS:"
- 507 [139] CT[178]1.0 [167] [152]4," F(X)="
- 508 [153]" F(X)="
- 509 [129] J[178]1 [164] N[170]1
- 510 [153] A(J)"*(X**"(J[171]1)")"
- 511 [139] CT[178]1.0 [167] [152]4,A(J)"*(X**"(J[171]1)")"
- 515 [130] J
- 516 [153]" =0.0"
- 517 [139] CT[178]1.0 [167] [152]4," =0.0":[152]4
- 520 [139] A[178]1 [167] CT[178]1
- 600 [142]
-