2
PROGRAM suma

REAL n, suma, diferencia
INTEGER i 
    
suma=0 
WRITE(*,*)'Ingrese un valor para n:'
READ(*,*)n 
    
DO i=1,101
suma=suma+(1.+(i-1.)/10.)
END DO
    
diferencia=suma-n
    
WRITE(*,*)'La suma es:', suma 
WRITE(*,*)'La diferencia con n es:', diferencia 
    
END PROGRAM suma

Los errores:

Error: Symbol ‘suma’ at (1) cannot have a type

main.f95:6:5:

6 | suma=0
  |     1
Error: ‘suma’ at (1) is not a variable

main.f95:11:5:

11 | suma=suma+(1.+(i-1.)/10.)
   |     1
Error: ‘suma’ at (1) is not a variable

main.f95:14:16:

14 | diferencia=suma-n
   |                1
Error: Symbol at (1) is not appropriate for an expression

main.f95:16:30:

16 | WRITE(*,*)'La suma es:', suma
   |                              1
Error: Symbol at (1) is not appropriate for an expression

¿Me ayudarían? Gracias de antemano.

1
  • Tuviste que crear otro usuario?
    – gbianchi
    Commented el 16 may. 2023 a las 15:49

2 respuestas 2

2

Tu problema es que el programa tiene el mismo nombre que la variable suma. Eso produce una colisión porque el nombre de la función está en el namespace que se usa en el cuerpo de la función. Cambia el nombre de la variable y el programa compilará sin problemas.


Para más información se puede consultar el estándar de Fortran F2018 epígrafes: 19.2 Identificadores globales, 19.3 Identificadores locales y 19.3.1.2 (traducción mía):

En su entorno, un identificador local de una entidad de clase (1) [lo cual incluye variables con nombre] o clase (4) no será el mismo que un identificador global usado en ese entorno.

Este epígrafe incluye una serie de excepciones que no voy a describir aquí.

0

la respuesta: el nombre del programa no puede estar dentro de las variables suma , la variable n tiene por definicion cuando esta por default como entero. Esto se corrige con implicit none , pero se tienen que definir todas las variables, i es un entero y como tal no puede interactuar con un real.

codigo.f90

PROGRAM sum
implicit none
REAL*8 :: n, suma, diferencia
INTEGER :: i    
suma=0.d0 
WRITE(*,*)'Ingrese un valor para n:'
READ(*,*)n     
DO i=1,101
suma=suma+(1.d0+(i-1)/10.d0)
END DO   
diferencia=suma-n    
WRITE(*,*)'La suma es:', suma 
WRITE(*,*)'La diferencia con n es:', diferencia     
END PROGRAM

compilando : gfortran -o codigo.f90

ejecutando : ./codigo

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.