programa q realiza conversion de unidades para fortran 90/95 con ayuda del menu case

CODIGO
! Last change: IPN 1 Mar 2010 11:23 am
program proyecto
implicit none
integer::op,opm,opml,opt,optc,opf,opfc,opa,opac,opl,oplc
real::m,t,a,f,l,mc,tc,fc,ac,lc

write(*,*)"Convertidor de unidades"
write(*,*)"Selecciona una opcion"
write(*,*)"1.- Convertir unidades de Masa"
write(*,*)"2.- Convertir unidades de Temperatura"
write(*,*)"3.- Convertir unidades de Fuerza"
write(*,*)"4.- Convertir unidades de Superficie (area)"
write(*,*)"5.- Convertir unidades de Longitud"
read*,op
!selección del caso para la conversión de unidades
select case(op)
!caso para la conversión de unidades de masa
case(1)
write(*,*)"Selecciona en que unidad vas a meter la Masa"
write(*,*)"1.- Kilogramo"
write(*,*)"2.- Libra"
write(*,*)"3.- Tonelada americana"
write(*,*)"4.- Tonelada inglesa"
write(*,*)"5.- Tonelada metrica"
write(*,*)"6.- Gramos"
read*,opm
!selección del caso para la conversión de unidades de masa
select case(opm)
!caso para la conversión de kilogramos
case(1)
write(*,*)"Dame la cantidad en Kilogramos"
read*,m
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Libra"
write(*,*)"2.- Tonelada americana"
write(*,*)"3.- Tonelada inglesa"
write(*,*)"4.- Tonelada metrica"
write(*,*)"5.- Gramos"
read*,opml
!selección del caso para unidad de conversión
select case(opml)
case(1)
mc=m*2.205
write(*,*)"Tu conversion de",m,"Kg es",mc,"lb"
case(2)
mc=(m*2.205)/2000
write(*,*)"Tu conversion de",m,"Kg es",mc,"Ton americana"
case(3)
mc=(m*2.205)/2240
write(*,*)"Tu conversion de",m,"Kg es",mc,"Ton inglesa"
case(4)
mc=m/1000
write(*,*)"Tu conversion de",m,"Kg es",mc,"Ton metrica"
case(5)
mc=m*1000
write(*,*)"Tu conversion de",m,"Kg es",mc,"g"
case default
write(*,*)"Opcion no valida"
end select
!caso para la conversión de libra
case(2)
write(*,*)"Dame la cantidad en libras"
read*,m
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Kilogramos"
write(*,*)"2.- Tonelada americana"
write(*,*)"3.- Tonelada inglesa"
write(*,*)"4.- Tonelada metrica"
write(*,*)"5.- Gramos"
read*,opml
!selección del caso para unidad de conversión
select case(opml)
case(1)
mc=m/2.205
write(*,*)"Tu conversion de",m,"lb es",mc,"Kg"
case(2)
mc=m/2000
write(*,*)"Tu conversion de",m,"lb es",mc,"Ton americana"
case(3)
mc=m/2240
write(*,*)"Tu conversion de",m,"lb es",mc,"Ton inglesa"
case(4)
mc=(m/2.205)/1000
write(*,*)"Tu conversion de",m,"lb es",mc,"Ton metrica"
case(5)
mc=(m/2.205)*1000
write(*,*)"Tu conversion de",m,"lb es",mc,"g"
case default
write(*,*)"Opcion no valida"
end select
!caso para la conversión de Tonelada americana
case(3)
write(*,*)"Dame la cantidad en Toneldas americanas"
read*,m
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Kilogramos"
write(*,*)"2.- libras"
write(*,*)"3.- Tonelada inglesa"
write(*,*)"4.- Tonelada metrica"
write(*,*)"5.- Gramos"
read*,opml
!selección del caso para unidad de conversión
select case(opml)
case(1)
mc=(m*2000)/2.205
write(*,*)"Tu conversion de",m,"Ton americana es",mc,"Kg"
case(2)
mc=m*2000
write(*,*)"Tu conversion de",m,"Ton americana es",mc,"lb"
case(3)
mc=(m*2000)/2240
write(*,*)"Tu conversion de",m,"Ton americana es",mc,"Ton inglesa"
case(4)
mc=((m*2000)/2.205)/1000
write(*,*)"Tu conversion de",m,"Ton americana es",mc,"Ton metrica"
case(5)
mc=((m*2000)/2.205)*1000
write(*,*)"Tu conversion de",m,"Ton americana es",mc,"g"
case default
write(*,*)"Opcion no valida"
end select
!caso para la conversión de Tonelada inglesa
case(4)
write(*,*)"Dame la cantidad en Toneldas inglesas"
read*,m
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Kilogramos"
write(*,*)"2.- libras"
write(*,*)"3.- Tonelada americana"
write(*,*)"4.- Tonelada metrica"
write(*,*)"5.- Gramos"
read*,opml
!selección del caso para unidad de conversión
select case(opml)
case(1)
mc=(m*2240)/2.205
write(*,*)"Tu conversion de",m,"Ton inglesa es",mc,"Kg"
case(2)
mc=m*2240
write(*,*)"Tu conversion de",m,"Ton inglesa es",mc,"lb"
case(3)
mc=(m*2240)/2000
write(*,*)"Tu conversion de",m,"Ton inglesa es",mc,"Ton americana"
case(4)
mc=((m*2240)/2.205)/1000
write(*,*)"Tu conversion de",m,"Ton inglesa es",mc,"Ton metrica"
case(5)
mc=((m*2240)/2.205)*1000
write(*,*)"Tu conversion de",m,"Ton inglesa es",mc,"g"
case default
write(*,*)"Opcion no valida"
end select
!caso para la conversión de Tonelada metrica
case(5)
write(*,*)"Dame la cantidad en Toneldas metrica"
read*,m
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Kilogramos"
write(*,*)"2.- libras"
write(*,*)"3.- Tonelada americana"
write(*,*)"4.- Tonelada inglesa"
write(*,*)"5.- Gramos"
read*,opml
!selección del caso para unidad de conversión
select case(opml)
case(1)
mc=m*1000
write(*,*)"Tu conversion de",m,"Ton metrica es",mc,"Kg"
case(2)
mc=m*1000*2.205
write(*,*)"Tu conversion de",m,"Ton metrica es",mc,"lb"
case(3)
mc=(m*1000*2.205)/2000
write(*,*)"Tu conversion de",m,"Ton metrica es",mc,"Ton americana"
case(4)
mc=(m*1000*2.205)/1000
write(*,*)"Tu conversion de",m,"Ton metrica es",mc,"Ton inglesa"
case(5)
mc=m*1000*1000
write(*,*)"Tu conversion de",m,"Ton metrica es",mc,"g"
case default
write(*,*)"Opcion no valida"
end select
!caso para la conversión de gramos
case(6)
write(*,*)"Dame la cantidad en Gramos"
read*,m
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Kilogramos"
write(*,*)"2.- libras"
write(*,*)"3.- Tonelada americana"
write(*,*)"4.- Tonelada inglesa"
write(*,*)"5.- Tonelada metrica"
read*,opml
!selección del caso para unidad de conversión
select case(opml)
case(1)
mc=m/1000
write(*,*)"Tu conversion de",m,"Gramos es",mc,"Kg"
case(2)
mc=(m/1000)*2.205
write(*,*)"Tu conversion de",m,"Gramos es",mc,"lb"
case(3)
mc=((m/1000)*2.205)/2000
write(*,*)"Tu conversion de",m,"Gramos es",mc,"Ton americana"
case(4)
mc=((m/1000)*2.205)/1000
write(*,*)"Tu conversion de",m,"Gramos es",mc,"Ton inglesa"
case(5)
mc=(m/1000)/1000
write(*,*)"Tu conversion de",m,"Gramos es",mc,"Ton metrica"
case default
write(*,*)"Opcion no valida"
end select
case default
write(*,*)"Opción no valida"
!fin de caso de conversión de masa
end select
!case para la conversión de unidades de temperatura
case(2)
write(*,*)"Selecciona la unidad en la que vas a meter la Temperatura"
write(*,*)"1.- Celcius"
write(*,*)"2.- Farenheit"
write(*,*)"3.- Kelvin"
write(*,*)"4.- Rankine"
read*,opt
!selección del caso para la conversión de unidades de temperatura
select case(opt)
!caso para la coversión de grados Celcius
case(1)
write(*,*)"Dame los grados celcius"
read*,t
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Farenheit"
write(*,*)"2.- Kelvin"
write(*,*)"3.- Rankine"
read*,optc
!selección del caso para unidad de conversión
select case(optc)
case(1)
tc=t*1.8+32
write(*,*)"Tu conversion de",t,"ªC es",tc,"ºF"
case(2)
tc=t+273.15
write(*,*)"Tu conversion de",t,"ªC es",tc,"ºK"
case(3)
tc=((9/5)*t)+491.67
write(*,*)"Tu conversion de",t,"ªC es",tc,"ºR"
case default
write(*,*)"Opción no valida"
end select
case(2)
write(*,*)"Dame los grados Farenheit"
read*,t
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Celcius"
write(*,*)"2.- Kelvin"
write(*,*)"3.- Rankine"
read*,optc
!selección del caso para unidad de conversión
select case(optc)
case(1)
tc=(t-32)/1.8
write(*,*)"Tu conversion de",t,"ºF es",tc,"ºC"
case(2)
tc=((t-32)/1.8)+273.15
write(*,*)"Tu conversion de",t,"ºF es",tc,"ºK"
case(3)
tc=((9/5)*((t-32)/1.8))+491.67
write(*,*)"Tu conversion de",t,"ºF es",tc,"ºR"
case default
write(*,*)"Opción no valida"
end select
case(3)
write(*,*)"Dame los grados Kelvin"
read*,t
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Celcius"
write(*,*)"2.- Farenheit"
write(*,*)"3.- Rankine"
read*,optc
!selección del caso para unidad de conversión
select case(optc)
case(1)
tc=t-273.15
write(*,*)"Tu conversion de",t,"ºK es",tc,"ºC"
case(2)
tc=(t-273.15)*1.8+32
write(*,*)"Tu conversion de",t,"ºK es",tc,"ºF"
case(3)
tc=((9/5)*(t-273.15))+491.67
write(*,*)"Tu conversion de",t,"ºK es",tc,"ºR"
case default
write(*,*)"Opción no valida"
end select
case(4)
write(*,*)"Dame los grados Rankine"
read*,t
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Celcius"
write(*,*)"2.- Farenheit"
write(*,*)"3.- Kelvin"
read*,optc
!selección del caso para unidad de conversión
select case(optc)
case(1)
tc=((9/5)*t)-273.15
write(*,*)"Tu conversion de",t,"ºR es",tc,"ºC"
case(2)
tc=(((9/5)*t)-273.15)*1.8+32
write(*,*)"Tu conversion de",t,"ºR es",tc,"ºF"
case(3)
tc=(((9/5)*t)-273.15)+273.15
write(*,*)"Tu conversion de",t,"ºR es",tc,"ºk"
case default
write(*,*)"Opción no valida"
end select
case default
write(*,*)"Opción no valida"
!fin del caso para la conversión de temperaturas
end select
!caso para la conversión de unidades de fuerza
case(3)
write(*,*)"Selecciona la unidad en la que vas a meter la Fuerza"
write(*,*)"1.- Newton"
write(*,*)"2.- Dina"
write(*,*)"3.- Kilogramo-fuerza o Kilopondio"
write(*,*)"4.- libra-fuerza"
read*,opf
!selección del caso para la conversión de unidades de fuerza
select case(opf)
case(1)
write(*,*)"Dame la magnitud de la fuerza en Newton"
read*,f
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Dina"
write(*,*)"2.- Kilogramo-fuerza o Kilopondio"
write(*,*)"3.- libra-fuerza"
read*,opfc
!selección del caso para la unidad de conversión
select case(opfc)
case(1)
fc=f*(10**5)
write(*,*)"Tu conversion de",f,"N es",fc,"dyn"
case(2)
fc=f/9.80665
write(*,*)"Tu conversion de",f,"N es",fc,"Kgf o Kp"
case(3)
fc=f/4.448222
write(*,*)"Tu conversion de",f,"N es",fc,"lbf"
case default
write(*,*)"Opción no valida"
end select
case(2)
write(*,*)"Dame la magnitud de la fuerza en Dinas"
read*,f
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Newton"
write(*,*)"2.- Kilogramo-fuerza o Kilopondio"
write(*,*)"3.- libra-fuerza"
read*,opfc
!selección del caso para la unidad de conversión
select case(opfc)
case(1)
fc=f/(10**5)
write(*,*)"Tu conversion de",f,"dyn es",fc,"N"
case(2)
fc=(f/(10**5))/9.80665
write(*,*)"Tu conversion de",f,"dyn es",fc,"Kgf o Kp"
case(3)
fc=(f/(10**5))/4.448222
write(*,*)"Tu conversion de",f,"dyn es",fc,"lbf"
case default
write(*,*)"Opción no valida"
end select
case(3)
write(*,*)"Dame la magnitud de la fuerza en Kilogramo-fuerza o Kilopondio"
read*,f
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Newton"
write(*,*)"2.- Dina"
write(*,*)"3.- libra-fuerza"
read*,opfc
!selección del caso para la unidad de conversión
select case(opfc)
case(1)
fc=f*9.80665
write(*,*)"Tu conversion de",f,"Kgf o Kp es",fc,"N"
case(2)
fc=(f*9.80665)*(10**5)
write(*,*)"Tu conversion de",f,"Kgf o Kp es",fc,"dyn"
case(3)
fc=(f*9.80665)/4.448222
write(*,*)"Tu conversion de",f,"Kgf o Kp es",fc,"lbf"
case default
write(*,*)"Opción no valida"
end select
case(4)
write(*,*)"Dame la magnitud de la fuerza en libra-fuerza"
read*,f
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Newton"
write(*,*)"2.- Dina"
write(*,*)"3.- kilogramo-fuerza o Kilopondio"
read*,opfc
!selección del caso para la unidad de conversión
select case(opfc)
case(1)
fc=f*4.448222
write(*,*)"Tu conversion de",f,"lbf es",fc,"N"
case(2)
fc=(f*4.448222)*(10**5)
write(*,*)"Tu conversion de",f,"lbf es",fc,"dyn"
case(3)
fc=(f*9.80665)/9.80665
write(*,*)"Tu conversion de",f,"lbf es",fc,"Kgf o Kp"
case default
write(*,*)"Opción no valida"
end select
!fin del caso para la conversión de unidades de fuerza
end select
!caso para la conversión de unidades de area o superficie
case(4)
write(*,*)"Selecciona la unidad en la que vas a meter el Area"
write(*,*)"1.- Metro cuadrado"
write(*,*)"2.- Barn"
write(*,*)"3.- Hectárea"
write(*,*)"4.- Pie cuadrado"
write(*,*)"5.- Pulgada cuadrada"
write(*,*)"6.- Yarda cuadrada"
write(*,*)"7.- Centímetro cuadrado"
read*,opa
!selección del caso para la conversión de unidades de Area
select case(opa)
!caso para la coversión de Area
case(1)
write(*,*)"Dame los metros cuadrados"
read*,a
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Barn"
write(*,*)"2.- Hectárea"
write(*,*)"3.- Pie cuadrado"
write(*,*)"4.- Pulgada cuadrada"
write(*,*)"5.- Yarda cuadrada"
write(*,*)"6.- Centímetro cuadrado"
read*,opac
!selección del caso para unidad de conversión
select case(opac)
case(1)
ac=a*(10**28)
write(*,*)"Tu conversion de",a,"m2 es",ac,"b"
case(2)
ac=a/(10**4)
write(*,*)"Tu conversion de",a,"m2 es",ac,"ha"
case(3)
ac=a*(9.290304**2)
write(*,*)"Tu conversion de",a,"m2 es",ac,"ft2"
case(4)
ac=a*(6.4516**4)
write(*,*)"Tu conversion de",a,"m2 es",ac,"in2"
case(5)
ac=a*8.361274
write(*,*)"Tu conversion de",a,"m2 es",ac,"yd2"
case(6)
ac=a*(10**4)
write(*,*)"Tu conversion de",a,"m2 es",ac,"cm2"
case default
write(*,*)"Opción no valida"
end select
case(2)
write(*,*)"Dame los Barns"
read*,a
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Metro cuadrado"
write(*,*)"2.- Hectárea"
write(*,*)"3.- Pie cuadrado"
write(*,*)"4.- Pulgada cuadrada"
write(*,*)"5.- Yarda cuadrada"
write(*,*)"6.- Centímetro cuadrado"
read*,opac
!selección del caso para unidad de conversión
select case(opac)
case(1)
ac=a*(10**(-28))
write(*,*)"Tu conversion de",a,"b es",ac,"m2"
case(2)
ac=(a*(10**(-28)))/(10**4)
write(*,*)"Tu conversion de",a,"b es",ac,"ha"
case(3)
ac=(a*(10**(-28)))*(9.290304**2)
write(*,*)"Tu conversion de",a,"b es",ac,"ft2"
case(4)
ac=(a*(10**(-28)))*(6.4516**4)
write(*,*)"Tu conversion de",a,"b es",ac,"in2"
case(5)
ac=(a*(10**(-28)))*8.361274
write(*,*)"Tu conversion de",a,"b es",ac,"yd2"
case(6)
ac=(a*(10**(-28)))*(10**4)
write(*,*)"Tu conversion de",a,"b es",ac,"cm2"
case default
write(*,*)"Opción no valida"
end select
case(3)
write(*,*)"Dame las Hectáreas"
read*,a
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Metro cuadrado"
write(*,*)"2.- Barn"
write(*,*)"3.- Pie cuadrado"
write(*,*)"4.- Pulgada cuadrada"
write(*,*)"5.- Yarda cuadrada"
write(*,*)"6.- Centímetro cuadrado"
read*,opac
!selección del caso para unidad de conversión
select case(opac)
case(1)
ac=a/(10**4)
write(*,*)"Tu conversion de",a,"ha es",ac,"m2"
case(2)
ac=(a/(10**4))*(10**28)
write(*,*)"Tu conversion de",a,"ha es",ac,"b"
case(3)
ac=(a/(10**4))*(9.290304**2)
write(*,*)"Tu conversion de",a,"ha es",ac,"ft2"
case(4)
ac=(a/(10**4))*(6.4516**4)
write(*,*)"Tu conversion de",a,"ha es",ac,"in2"
case(5)
ac=(a/(10**4))*8.361274
write(*,*)"Tu conversion de",a,"ha es",ac,"yd2"
case(6)
ac=(a/(10**4))*(10**4)
write(*,*)"Tu conversion de",a,"ha es",ac,"cm2"
case default
write(*,*)"Opción no valida"
end select
case(4)
write(*,*)"Dame los Pies cuadrados"
read*,a
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Metro cuadrado"
write(*,*)"2.- Barn"
write(*,*)"3.- Hectárea"
write(*,*)"4.- Pulgada cuadrada"
write(*,*)"5.- Yarda cuadrada"
write(*,*)"6.- Centímetro cuadrado"
read*,opac
!selección del caso para unidad de conversión
select case(opac)
case(1)
ac=a/(9.290304**2)
write(*,*)"Tu conversion de",a,"ft2 es",ac,"m2"
case(2)
ac=(a/(9.290304**2))*(10**28)
write(*,*)"Tu conversion de",a,"ft2 es",ac,"b"
case(3)
ac=(a/(9.290304**2))/(10**4)
write(*,*)"Tu conversion de",a,"ft2 es",ac,"ha"
case(4)
ac=(a/(9.290304**2))*(6.4516**4)
write(*,*)"Tu conversion de",a,"ft2 es",ac,"in2"
case(5)
ac=(a/(9.290304**2))*8.361274
write(*,*)"Tu conversion de",a,"ft2 es",ac,"yd2"
case(6)
ac=(a/(9.290304**2))*(10**4)
write(*,*)"Tu conversion de",a,"ft2 es",ac,"cm2"
case default
write(*,*)"Opción no valida"
end select
case(5)
write(*,*)"Dame los Pulgada cuadrada"
read*,a
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Metro cuadrado"
write(*,*)"2.- Barn"
write(*,*)"3.- Hectárea"
write(*,*)"4.- Pie cuadrado"
write(*,*)"5.- Yarda cuadrada"
write(*,*)"6.- Centímetro cuadrado"
read*,opac
!selección del caso para unidad de conversión
select case(opac)
case(1)
ac=a/(6.4516**4)
write(*,*)"Tu conversion de",a,"in2 es",ac,"m2"
case(2)
ac=(a/(6.4516**4))*(10**28)
write(*,*)"Tu conversion de",a,"in2 es",ac,"b"
case(3)
ac=(a/(6.4516**4))/(10**4)
write(*,*)"Tu conversion de",a,"in2 es",ac,"ha"
case(4)
ac=(a/(6.4516**4))*(9.290304**2)
write(*,*)"Tu conversion de",a,"in2 es",ac,"ft2"
case(5)
ac=(a/(6.4516**4))*8.361274
write(*,*)"Tu conversion de",a,"in2 es",ac,"yd2"
case(6)
ac=(a/(6.4516**4))*(10**4)
write(*,*)"Tu conversion de",a,"in2 es",ac,"cm2"
case default
write(*,*)"Opción no valida"
end select
case(6)
write(*,*)"Dame las Yardas cuadradas"
read*,a
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Metro cuadrado"
write(*,*)"2.- Barn"
write(*,*)"3.- Hectárea"
write(*,*)"4.- Pie cuadrado"
write(*,*)"5.- Pulgada cuadrada"
write(*,*)"6.- Centímetro cuadrado"
read*,opac
!selección del caso para unidad de conversión
select case(opac)
case(1)
ac=a/8.361274
write(*,*)"Tu conversion de",a,"yd2 es",ac,"m2"
case(2)
ac=(a/8.361274)*(10**28)
write(*,*)"Tu conversion de",a,"yd2 es",ac,"b"
case(3)
ac=(a/8.361274)/(10**4)
write(*,*)"Tu conversion de",a,"yd2 es",ac,"ha"
case(4)
ac=(a/8.361274)*(9.290304**2)
write(*,*)"Tu conversion de",a,"yd2 es",ac,"ft2"
case(5)
ac=(a/8.361274)*(6.4516**4)
write(*,*)"Tu conversion de",a,"yd2 es",ac,"in2"
case(6)
ac=(a/8.361274)*(10**4)
write(*,*)"Tu conversion de",a,"yd2 es",ac,"cm2"
case default
write(*,*)"Opción no valida"
end select
case(7)
write(*,*)"Dame los centimetros cuadrados"
read*,a
write(*,*)"A que unidad deseas convertir"
write(*,*)"1.- Metros cuadrados"
write(*,*)"2.- Barn"
write(*,*)"3.- Hectárea"
write(*,*)"4.- Pie cuadrado"
write(*,*)"5.- Pulgada cuadrada"
write(*,*)"6.- Yarda cuadrada"
read*,opac
!selección del caso para unidad de conversión
select case(opac)
case(1)
ac=a/(10**4)
write(*,*)"Tu conversion de",a,"cm2 es",ac,"m2"
case(2)
ac=(a/(10**4))*(10**28)
write(*,*)"Tu conversion de",a,"cm2 es",ac,"b"
case(3)
ac=(a/(10**4))/(10**4)
write(*,*)"Tu conversion de",a,"cm2 es",ac,"ha"
case(4)
ac=(a/(10**4))*(9.290304**2)
write(*,*)"Tu conversion de",a,"cm2 es",ac,"ft2"
case(5)
ac=(a/(10**4))*(6.4516**4)
write(*,*)"Tu conversion de",a,"cm2 es",ac,"in2"
case(6)
ac=(a/(10**4))*8.361274
write(*,*)"Tu conversion de",a,"cm2 es",ac,"yd2"
case default
write(*,*)"Opción no valida"
end select
case default
write(*,*)"Opción no valida"
!fin del caso para la conversión de areas
end select
!caso para la conversión de unidades de longitud
case(5)
write(*,*)"Selecciona la unidad en la que vas a meter la distancia o longitud"
write(*,*)"1.- Metro"
write(*,*)"2.- milla"
write(*,*)"3.- pie"
write(*,*)"4.- yarda"
write(*,*)"5.- centimetro"
write(*,*)"6.- kilometro"
write(*,*)"7.- pulgada"
read*,opl
!selección del caso para la conversión de unidades de fuerza
select case(opl)
case(1)
write(*,*)"Dame la longitud en metros"
read*,l
write(*,*)"1.- milla"
write(*,*)"2.- pie"
write(*,*)"3.- yarda"
write(*,*)"4.- centimetro"
write(*,*)"5.- kilometro"
write(*,*)"6.- pulgada"
read*,oplc
!selección del caso para la unidad de conversión
select case(oplc)
case(1)
lc=l*(6.2137*(10**(-4)))
write(*,*)"Tu conversion de",l,"m es",lc,"millas"
case(2)
lc=l*3.2808
write(*,*)"Tu conversion de",l,"m es",lc,"ft"
case(3)
lc=l*1.0936
write(*,*)"Tu conversion de",l,"m es",lc,"yd"
case(4)
lc=l*100
write(*,*)"Tu conversion de",l,"m es",lc,"cm"
case(5)
lc=l/1000
write(*,*)"Tu conversion de",l,"m es",lc,"km"
case(6)
lc=l*39.37
write(*,*)"Tu conversion de",l,"m es",lc,"in"
case default
write(*,*)"Opción no valida"
end select
case(2)
write(*,*)"Dame la longitud en millas"
read*,l
write(*,*)"1.- metro"
write(*,*)"2.- pie"
write(*,*)"3.- yarda"
write(*,*)"4.- centimetro"
write(*,*)"5.- kilometro"
write(*,*)"6.- pulgada"
read*,oplc
!selección del caso para la unidad de conversión
select case(oplc)
case(1)
lc=l*(1.6093*(10**3))
write(*,*)"Tu conversion de",l,"millas es",lc,"m"
case(2)
lc=l*5280
write(*,*)"Tu conversion de",l,"millas es",lc,"ft"
case(3)
lc=l*1760
write(*,*)"Tu conversion de",l,"millas es",lc,"yd"
case(4)
lc=l*(1.6093*(10**5))
write(*,*)"Tu conversion de",l,"millas es",lc,"cm"
case(5)
lc=(l*(1.6093*(10**3)))/1000
write(*,*)"Tu conversion de",l,"millas es",lc,"km"
case(6)
lc=l*(6.336*(10**4))
write(*,*)"Tu conversion de",l,"m es",lc,"in"
case default
write(*,*)"Opción no valida"
end select
case(3)
write(*,*)"Dame la longitud en pies"
read*,l
write(*,*)"1.- metro"
write(*,*)"2.- milla"
write(*,*)"3.- yardas"
write(*,*)"4.- centimetro"
write(*,*)"5.- kilometro"
write(*,*)"6.- pulgadas"
read*,oplc
!selección del caso para la unidad de conversión
select case(oplc)
case(1)
lc=l*0.3048
write(*,*)"Tu conversion de",l,"ft es",lc,"m"
case(2)
lc=l*(1.8939*(10**(-4)))
write(*,*)"Tu conversion de",l,"ft es",lc,"millas"
case(3)
lc=l/3
write(*,*)"Tu conversion de",l,"ft es",lc,"yd"
case(4)
lc=l*30.48
write(*,*)"Tu conversion de",l,"ft es",lc,"cm"
case(5)
lc=(l*0.3048)/1000
write(*,*)"Tu conversion de",l,"ft es",lc,"km"
case(6)
lc=l*12
write(*,*)"Tu conversion de",l,"ft es",lc,"in"
case default
write(*,*)"Opción no valida"
end select
case(4)
write(*,*)"Dame la longitud en yardas"
read*,l
write(*,*)"1.- metro cuadrado"
write(*,*)"2.- milla"
write(*,*)"3.- pie"
write(*,*)"4.- centimetro"
write(*,*)"5.- kilometro"
write(*,*)"6.- pulgada"
read*,oplc
!selección del caso para la unidad de conversión
select case(oplc)
case(1)
lc=l*0.9144
write(*,*)"Tu conversion de",l,"yd es",lc,"m"
case(2)
lc=l*(5.6818*(10**(-4)))
write(*,*)"Tu conversion de",l,"yd es",lc,"millas"
case(3)
lc=l*3
write(*,*)"Tu conversion de",l,"yd es",lc,"ft"
case(4)
lc=l*91.44
write(*,*)"Tu conversion de",l,"yd es",lc,"cm"
case(5)
lc=(l*0.9144)/1000
write(*,*)"Tu conversion de",l,"yd es",lc,"km"
case(6)
lc=l*36
write(*,*)"Tu conversion de",l,"yd es",lc,"in"
case default
write(*,*)"Opción no valida"
end select
case(5)
write(*,*)"Dame la longitud en centimetros"
read*,l
write(*,*)"1.- metro"
write(*,*)"2.- milla"
write(*,*)"3.- pie"
write(*,*)"4.- yarda"
write(*,*)"5.- kilometro"
write(*,*)"6.- pulgada"
read*,oplc
!selección del caso para la unidad de conversión
select case(oplc)
case(1)
lc=l/100
write(*,*)"Tu conversion de",l,"cm es",lc,"m"
case(2)
lc=l*(6.2137*(10**(-6)))
write(*,*)"Tu conversion de",l,"cm es",lc,"millas"
case(3)
lc=l*0.032808
write(*,*)"Tu conversion de",l,"cm es",lc,"ft"
case(4)
lc=l*0.010936
write(*,*)"Tu conversion de",l,"cm es",lc,"yd"
case(5)
lc=(l/100)/1000
write(*,*)"Tu conversion de",l,"cm es",lc,"km"
case(6)
lc=l*0.3937
write(*,*)"Tu conversion de",l,"cm es",lc,"in"
case default
write(*,*)"Opción no valida"
end select
case(6)
write(*,*)"Dame la longitud en kilometros"
read*,l
write(*,*)"1.- metro"
write(*,*)"2.- milla"
write(*,*)"3.- pie"
write(*,*)"4.- yarda"
write(*,*)"5.- centimetro"
write(*,*)"6.- pulgada"
read*,oplc
!selección del caso para la unidad de conversión
select case(oplc)
case(1)
lc=l*1000
write(*,*)"Tu conversion de",l,"km es",lc,"m"
case(2)
lc=(l*1000)*(6.2137*(10**(-4)))
write(*,*)"Tu conversion de",l,"km es",lc,"millas"
case(3)
lc=(l*1000)*3.2808
write(*,*)"Tu conversion de",l,"km es",lc,"ft"
case(4)
lc=(l*1000)*1.0936
write(*,*)"Tu conversion de",l,"km es",lc,"yd"
case(5)
lc=l*(10**6)
write(*,*)"Tu conversion de",l,"km es",lc,"cm"
case(6)
lc=l*1000*39.37
write(*,*)"Tu conversion de",l,"km es",lc,"in"
case default
write(*,*)"Opción no valida"
end select
case(7)
write(*,*)"Dame la longitud en pulgadas"
read*,l
write(*,*)"1.- metro"
write(*,*)"2.- milla"
write(*,*)"3.- pie"
write(*,*)"4.- yarda"
write(*,*)"5.- centimetro"
write(*,*)"6.- kilometro"
read*,oplc
!selección del caso para la unidad de conversión
select case(oplc)
case(1)
lc=l*0.0254
write(*,*)"Tu conversion de",l,"in es",lc,"m"
case(2)
lc=l*(1.5783*(10**(-5)))
write(*,*)"Tu conversion de",l,"in es",lc,"millas"
case(3)
lc=l*0.083333
write(*,*)"Tu conversion de",l,"in es",lc,"ft"
case(4)
lc=l*0.027778
write(*,*)"Tu conversion de",l,"in es",lc,"yd"
case(5)
lc=l*2.54
write(*,*)"Tu conversion de",l,"in es",lc,"cm"
case(6)
lc=(l*0.0254)/1000
write(*,*)"Tu conversion de",l,"in es",lc,"km"
case default
write(*,*)"Opción no valida"
end select
!fin del caso para la conversión de longitudes
end select
case default
write(*,*)"Opcion no valida"
!fin de la seleccion de conversiones0
end select
pause
end program proyecto