Programas

!Este programa pide el grado de un polinomio,sus coeficientes y un valor de x para evaluarlo.
Program Ejercicio_1
Character(len=2)::resp
Real,allocatable::a(:)
Real x,fx,SUMAInteger::i,j,error,ierror

print*, '# A0 A1 A2 A3 A4 A5 A6 A7 A8 A9 X'


resp='si'
Do while(resp=='si'.or.resp=='SI')
Open(unit=1,file='Valores.txt',status='old', IOSTAT=error)
If(error==0)then
j=1Do
Allocate (a(10))
Read(1,*,iostat=ierror)a(1:10),x
if(ierror==0)then
SUMA=a(1)
Do i=2,10
SUMA=SUMA+a(i)*x**(i-1)
End do
fx=SUMAwrite(*,100)j,a(1:10),x,fx
100 format (1x,i3,1x,10(f8.4,1x),f8.4,f10.4,/)
Else
Print*,'Error de lectura lineal:',j;exit
End if
j=j+1
Deallocate(a)
End do
Else
Print*,'El archivo noexiste o no se encuentra'
End if

Print*,'Desea continuar(si/no)?'
Read*, resp
close(unit=1);deallocate(a)
End Do
End Program Ejercicio_1

!Este programa pide el grado de un polinomio,suscoeficientes y un valor de x para evaluarlo.
Program Ejercicio_1
Character(len=2)::resp
Real,allocatable::a(:)
Real x,fx,SUMA
Integer::i,j,error,ierror

print*, '# A0 A1 A2 A3 A4 A5 A6 A7A8 A9 X'


resp='si'
Do while(resp=='si'.or.resp=='SI')
Open(unit=1,file='Valores.txt',status='old', IOSTAT=error)
If(error==0)then
j=1
Do
Allocate (a(10))Read(1,*,iostat=ierror)a(1:10),x
if(ierror==0)then
SUMA=a(1)
Do i=2,10
SUMA=SUMA+a(i)*x**(i-1)
End do
fx=SUMA
write(*,100)j,a(1:10),x,fx
100 format(1x,i3,1x,10(f8.4,1x),f8.4,f10.4,/)
Else
Print*,'Error de lectura lineal:',j;exit
End if
j=j+1
Deallocate(a)
End do
Else
Print*,'El archivo no existe o no se encuentra'
End if

Print*,'Deseacontinuar(si/no)?'
Read*, resp
close(unit=1);deallocate(a)
End Do
End Program Ejercicio_1

!Este programa pide el grado de un polinomio,sus coeficientes y un valor de x para evaluarlo.
Program...