Practicas de compu

Practica 1
program convertidor_temperaturas
implicit none
!seccion de declaracion
REAL mag_temp,mag_conv_k
CHARACTER uni_temp
!seccion de ejecucionwrite (*,*)"Dame la temperatura y su unidad"
read (*,*) mag_temp,uni_temp
if (uni_temp=="R") then
mag_conv_k=1.8*mag_temp
write (*,*)mag_temp,uni_temp,"=",mag_conv_k,"K"else if (uni_temp=="C") then
mag_conv_k=mag_temp+273.15
write (*,*)mag_temp,uni_temp,"=",mag_conv_k,"K"
else if(uni_temp=="F") thenmag_conv_k=(5./9)*(mag_temp+459.67)
write (*,*)mag_temp,uni_temp,"=",mag_conv_k,"K"
else if(uni_temp=="K") then
mag_conv_k=mag_temp
write (*,*)mag_temp,uni_temp,"=",mag_conv_k,"K"
elsewrite (*,*)"La unidad de temperatura",uni_temp,"no es valida"
end if
stop
end program
practica 2
program numero_positivo_negativo

!seccion de declaracionREAL numero
!seccion de ejecucion
WRITE(*,*) "ingresa el numero"
read (*,*) numero
IF (numero<0) THEN
WRITE(*,*) "El numero es NEGATIVO"
ELSE IF(numero>0) THEN
WRITE(*,*) "El numero es POSITIVO"
ELSE IF (numero==0) THEN
WRITE(*,*) "EL cero es un valor neutro"
ELSE
WRITE(*,*) "EL VALOR NO ES VALIDO"END IF
end program

Practica 3
program par_o_impar
implicit none

!seccion de declaracion
integer numero

!seccion de ejecucion
write(*,*)"Ingrese el numero"
READ(*,*) numero

IF (mod(numero,2)==0) THEN
WRITE(*,*) "EL NUMERO ES PAR"

ELSE
WRITE (*,*) "EL NUMERO ES IMPAR"
END IFEND PROGRAM par_o_impar

Practica 4
PROGRAM mayor_menor
IMPLICIT NONE
!seccion de declaracion
REAL A,B
!seccion de ejecucion
WRITE(*,*)" INTODUCE EL PRIMER...