QUÍMICA E INDUSTRIAS EXTRACTIVAS
Enviado por Pablo_Eduardo • 15 de Marzo de 2021 • Trabajos • 734 Palabras (3 Páginas) • 57 Visitas
[pic 1][pic 2]
INSTITUTO POLITÉCNICO NACIONAL
ESCUELA SUPERIOR DE INGENIERIA
QUÍMICA E INDUSTRIAS EXTRACTIVAS
DEPARTAMENTO DE INGENIERIA QUIMICA PETROLERA [pic 3][pic 4]
[pic 5]
ALUMNO:
BALTAZAR VICTORIA PABLO EDUARDO
GRUPO: 3PV41
NOTA: Profesor, hubo una confusion al enviarle mis trabajos, en la tarea que correspondia a ecuacion cuadratica le envie la de API, y, pues como ve, le inclui ahora en la de API (la de API, obviamente, pero tambien la cuadratica); lo se, un relajo, espero no le moleste. Gracias.
-Baltazar Victoria Pablo Eduardo.
Diagrama de flujo:
[pic 6]
CODIGO EN FORTRAN:
!Alumno: Baltazar Victoria Pablo Eduardo
!Grupo: 3PV41
!Fecha: 9 de marzo de 2021
program Ecuacion_cuadratica_con_raices_reales_y_complejas
implicit none
real::a,b,c,x1,x2,disc,vr,vi
write(*,*)'Hey, Hola de nuevo!!:'
write(*,*)
write(*,*)'Este programa calcula las raices reales e imaginarias'
write(*,*)'de una ecuacion cuadratica:'
write(*,*)'____________________________________________________________________'
write(*,*)'Por favor...'
write(*,*)
write(*,*)'Inserte el valor de a:'
read(*,*)a
write(*,*)
write(*,*)
write(*,*)'Inserte el valor de b:'
read(*,*)b
write(*,*)
write(*,*)
write(*,*)'Inserte el valor de c:'
read(*,*)c
disc=b**2-4*a*c
if ((disc)>0) then
x1=(-b+sqrt(disc))/(2*a)
x2=(-b-sqrt(disc))/(2*a)
write(*,*)'____________________________________________________________________'
write(*,*)'Genial!! Las raices son reales:'
write(*,*)
write(*,*)'El valor de x1=',x1
write(*,*)'El valor de x2=',x2
write(*,*)
write(*,*)
else if ((disc)<0) then
vr=-b/(2*a)
vi=sqrt(abs(disc))
write(*,*)'____________________________________________________________________'
write(*,*)'Upsss!! La ecuacion cuadratica es compleja'
write(*,*)
write(*,*)'valorreal=',vr
write(*,*)'valorimaginario=',vi
end if
write(*,*)'____________________________________________________________________'
write(*,*) 'Fin del programa...'
write(*,*)
write(*,*) 'Fue un gusto ayudarte.'
write(*,*)'____________________________________________________________________'
write(*,*)'Este programa lo realizo Pablo Eduardo Baltazar Victoria'
end program Ecuacion_cuadratica_con_raices_reales_y_complejas
[pic 7]CORRIDA DEL PROGRAMA:
FINALIZACION.
[pic 8][pic 9]
INSTITUTO POLITÉCNICO NACIONAL
ESCUELA SUPERIOR DE INGENIERIA
QUÍMICA E INDUSTRIAS EXTRACTIVAS
DEPARTAMENTO DE INGENIERIA QUIMICA PETROLERA [pic 10][pic 11]
[pic 12]
ALUMNO:
BALTAZAR VICTORIA PABLO EDUARDO
GRUPO: 3PV41
Diagrama de flujo:
[pic 13]
CODIGO EN FORTRAN:
!
! Alumno: Baltazar Victoria Pablo Eduardo
! Fecha:10/03/21
!
program clasificacion_del_petroleo_de_acuerdo_a_su_gravedad_API
!Declaracion del tipo de variables
implicit none
real :: densidad_C_20, densidad20_4, densidad15_15,FACTORC,APICRUDO
real, parameter :: densidad_H2O_4= 0.999975
!Impresion de pantalla
write(*,*) "**********************************************************"
write(*,*)
write(*,*)
write(*,*) "BIENVENIDO DE NUEVO, SR. STARK"
write(*,*)"___________________________________________________________"
...