Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  declara
Language: FORTRAN
Code:
     PROGRAM DECLARA
     INTEGER I,J
     REAL X,Y
     CHARACTER NOM*20,APE*20
     COMPLEX X1,Y1
     DOUBLE PRECISION X2,Y2
     WRITE(*,*) 'DAME EL VALOR DE I'
     READ(*,*) I
     J=I**2
     WRITE(*,*) J
     WRITE(*,*) 'DAME EL VALOR DE X'
     READ(*,*) X
     Y=X**2
     WRITE(*,*)Y
     WRITE(*,*) 'DAME NOM Y APE'
     READ(*,*) NOM,APE
     WRITE(*,*) NOM,APE
     WRITE(*,*) 'DAME UN NUM COMPLEJO'
     READ(*,*) X1
     Y1=3*X1**2-5*X1+2
     WRITE(*,*) Y1
     WRITE(*,*) 'DAME X2'
     READ(*,*)X2
     Y2=X2**2
     WRITE(*,*) Y2
     END     
Comments: