Question

si un valor 25 lps hacer un programa que imprima en dólares una cantidad x de lps​

Answer 1

Respuesta:

Algoritmo lempirasADolar

valorLempiraADolar<-25

Escribir  "Ingrese el numero de la opción"

Escribir ""

Escribir "1 - Lempiras a Dolar"

Escribir "2 - Dolar a Lempiras"

Leer num

Mientras num <> 1 y num<>2 Hacer

 Escribir "Opcion no valida vualva a seleccionar"

 leer num

FinMientras

segun num Hacer

 1:

  Escribir "Ingrese el total a convertir"

  leer num

  Mientras num <0 Hacer

   Escribir "cantidad no valida ingrese nuevamente"

   leer num

  FinMientras

  Escribir num," Lempiras son ",fijarDecimales((num/valorLempiraADolar),2)," Dólares"

 2:

  Escribir "Ingrese el total a convertir"

  leer num

  Mientras num <0 Hacer

   Escribir "cantidad no valida ingrese nuevamente"

   leer num

  FinMientras

  Escribir num," Dólares son ",fijarDecimales((num*valorLempiraADolar),2)," Lempiras"

FinSegun

FinAlgoritmo

Funcion devolver<-fijarDecimales(num,decimales)

parteDecimal<-""

Para x<-1 Hasta  Longitud(ConvertirATexto(num))

 si Subcadena(ConvertirATexto(num),x,x)=="." Entonces

  limite=1

  para z<-x+1 Hasta Longitud(ConvertirATexto(num))

   si limite<=decimales Entonces

    parteDecimal<-parteDecimal+Subcadena(ConvertirATexto(num),z,z)

    limite<-limite+1

   FinSi

  FinPara

 

 FinSi

FinPara

si parteDecimal =="" Entonces

 parteDecimal<-"00"

FinSi

devolver<-ConvertirATexto(trunc(num))+ "."+parteDecimal

si devolver=="0.00" Entonces

 devolver<-ConvertirATexto(num)

FinSi

FinFuncion