home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C64Educational
/
ROOT-GUESSER
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
1KB
|
56 lines
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]