Funcion plg<-CentimetrosAPulgadas(cm)
Definir plg Como Real
plg=cm/2.54
FinFuncion
Funcion cm<-PulgadasACentimetros(plg)
Definir cm Como Real
cm=plg*2.54
Algoritmo ConvertirUnidades
Definir cm,plg Como Real
Escribir "CONVERTIR CENTIMETROS A PULGADAS"
Escribir Sin Saltar "Ingrese Centimetros: "
Leer cm
Escribir cm," cm son ",CentimetrosAPulgadas(cm)," pulgadas"
Escribir ""
Escribir "CONVERTIR PULGADAS A CENTIMETROS "
Escribir Sin Saltar "Ingrese Pulgadas: "
Leer plg
Escribir plg," pulgadas son ",PulgadasACentimetros(plg)," centimetros"
FinAlgoritmo
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
Funcion plg<-CentimetrosAPulgadas(cm)
Definir plg Como Real
plg=cm/2.54
FinFuncion
Funcion cm<-PulgadasACentimetros(plg)
Definir cm Como Real
cm=plg*2.54
FinFuncion
Algoritmo ConvertirUnidades
Definir cm,plg Como Real
Escribir "CONVERTIR CENTIMETROS A PULGADAS"
Escribir Sin Saltar "Ingrese Centimetros: "
Leer cm
Escribir cm," cm son ",CentimetrosAPulgadas(cm)," pulgadas"
Escribir ""
Escribir "CONVERTIR PULGADAS A CENTIMETROS "
Escribir Sin Saltar "Ingrese Pulgadas: "
Leer plg
Escribir plg," pulgadas son ",PulgadasACentimetros(plg)," centimetros"
FinAlgoritmo