PROGRAMA Q MUESTRE ” FORTRAN” Y ‘FORMULA TRANSLATION’ EN LINEAS DIFERENTES

Diagrama de flujo:
Z= palabra 1
Q= palabra 2


















PROGRAMA:

PROGRAM FORTRAN
IMPLICIT NONE
PRINT*, ““FORTRAN””
PRINT*, “‘FORmula TRANslation’”
END PROGRAM FORTRAN













PROGRAMA QUE PIDA UNACANTIDAD EN PESOS Y LA MUESTRE EN DOLARES

DIAGRAMA DE FLUJO:
Cp=Capital en pesos
Cd=Capital en dólares
v=Cotización del dólar






















PROGRAMA:

PROGRAM CONVERSION DE CAPITAL
IMPLICIT NONE
REAL:: “Cp”, “Cd”, v
WRITE (*,*) “INTRODUSCA LA CANTIDAD EN PESOS”
READ (*,*) “Cp”
READ (*,*) “v”
Cd=Cd/v
WRITE (*,*) “EL MONTO EN DOLARES ES:”, Cd
END PROGRAM CONVERSION DE CAPITAL








PROGRAMA QUE PIDA POR TECLADO EL RADIO DE LA BASE Y LA ALTURA DE UN CONO. CALCULAR Y ESCRIBA EL VALOR DE SU VOLUMEN

DIAGRAMA:

V= VOLUMEN
h= ALTURA
r= RADIO DE LA BASE




















PROGRAMA

PROGRAM CONO
IMPLICIT NONE
REAL:: r, h, V
REAL, PARAMETER:: “PI”=3.1416
WRITE (*,*) “INTRODUSCA EL VALOR DE “r” Y “h””
READ (*,*) r, h
V=(1/3)*PI*R**2*h
WRITE (*,*) “EL VOLUMEN ES:”, V
END PROGRAM CONO







PROGRAMA QUE PIDA EL RADIO DE UNA ESFERA Y CALCULE SU SUPERFICIE Y SU VOLUMEN S=4∏ R2 V= 4/3 ∏R2 H

DIAGRAMA DE FLUJO:

S= SUPERFICIE
R= RADIO
V= VOLUMEN























PROGRAMA:

PROGRAM ESFERA
IMPLICIT NONE
REAL:: S, R, V
REAL PARAMETER:: “PI”=3.1416
WRITE (*,*) “INTRODUSCA EL VALOR DE ‘R’”
READ (*,*) R
S=4*PI*R**2
V=(4/3)*R**3*PI
WRITE (*,*) “EL VALOR DE S ES:”, S
WRITE (*,*) “ EL VALOR DE V ES:”, V
END PROGRAM ESFERA



Programa que pida: con las coordenadas polares de un punto (r y α) y muestre sus coordenadas cartesianas y rectangulares (x, y)

DIAGRAMA DE FLUJO:
































PROGRAMA:

PROGRAM COORDENADAS
IMPLICIT NONE
REAL:: R, ALFA,X, Y, ALFARAD
REAL, PARAMETER: PI=3.1416
PRINT**:'INDIQUEEL VALOR DE LA DISTANCIA DEL PUNTO DADO HASTA EL ORIGEN:'
READ*', H, R
PRINT*,'INDIQUE EL EJE POLAR (GRADOS):'
READ*, ALFA
ALFARAD=(ALFA*PI)/180
X= R*COS(ALFARAD)
Y=R*SIN(ALFARAD)
WRITE(*,*) “EL VALOR DE X ES:”, X
WRITE(*,*) “EL VALOR DE Y ES:”, Y
END PROGRAM COORDENADAS