5 CLEAR 10 PRINT "METODO BAIRSTON" 11 INPUT "GRADO";N 15 DIM A(N):DIM B(N):DIM C(N) 20 FOR I=0 TO N 30 INPUT A(I) 40 NEXT I 50 S=0:P=0:B(0)=A(0):C(0)=B(0) 60 M=0:K=1 70 I=1:B(1)=A(1)+S*B(0):C(1)=B(1)+S*C(0) 80 I=I+1:B(I)=A(I)+S*B(I-1)-P*B(I-2) 90 IF I=N THEN GOTO 200 100 IF I=N-1 THEN C(I)=S*C(I-1)-P*C(I-2):GOTO 80 110 C(I)=B(I)+S*C(I-1)-P*C(I-2):GOTO 80 200 T=B(N)*C(N-3)-B(N-1)*C(N-2) 210 Q=B(N)*C(N-2)-B(N-1)*C(N-1) 220 A=C(N-2)^2-C(N-1)*C(N-3) 230 S=S+T/A 240 P=P+Q/A 250 IF (ABS(B(N))+ABS(B(N-1)))/(ABS(A(N))+ABS(A(N-1)))<10^(-10+M) THEN GOTO 300 260 IF K<>15 THEN K=K+1:GOTO 70 270 IF M=10 THEN PRINT "NO SOLUCION":END 280 K=1:M=M+1:GOTO 70 300 PRINT "S=";S;"P=";P 310 N=N-2 320 IF N=2 THEN PRINT "FIN EN CUADRATICA":PRINT B(0);"X2+(";B(1);"X)+(";B(2);")":END 330 IF N=1 THEN PRINT "-B1/A0=";-B(1)/A(0):N=2:END 340 FOR I=1 TO N-2 350 NEXT I 370 GOTO 60