Programmi

POLINOMIO

CALCOLA IL VALORE DEL POLINOMIO PER UN ASSEGNATO X=M

*IL PROGRAMMA CALCOLA:IL VALORE DEL POLINOMIO PER UN ASSEGNATO X=M,
*I COEFFICIENTI E IL RESTO DEL POLINOMIO DI GRADO N-1 QUOZIENTE DEI
*POLINOMI DATI
      INTEGER N,A(100),C(100),B,P,M,PXD
*introdurre i coefficienti a partire da quello della x di primo grado
*a quello della x di grado n
      WRITE(*,*)'INTRODUCI N,A(N),IL TERM.NOTO B,P,X=M'
      READ(*,*) N,(A(I),I=1,N),B,P,M
      PXD=B
      DO 30 I=1,N
         PXD=PXD+A(I)*M**I
   30 CONTINUE
      WRITE(*,100) PXD
      K=N
      C(K)=A(K)
      DO 10 K=N,1,-1
        C(K-1)=C(K)*P+A(K-1)
   10 CONTINUE
      R=C(1)*P+B
      DO 20 K=N,1,-1
         WRITE(*,60) C(K)
   20 CONTINUE
  100 FORMAT(2X,'VALORE DEL POLINOMIO PER X=M:',I5)
      WRITE(*,61) R
   60 FORMAT(/.3X,I5)
   61 FORMAT(/,3X,'IL RESTO VALE:'F7.2)
      STOP
      END

• » Invia tramite EMAIL
• » Versione per la STAMPA
• » Le vostre opinioni