PRACTICA 6 PROBLEMA 2

CONSOLA

VISUAL

PSEUDOCODIGO

Inicio

double monto = 0.0, doc = 0.0, dol = 0.0, lib = 0.0, fran = 0.0

string opcion

do

{

Clear

{

Print "Lista de las tasas de cambio de monedas extranjeras durante 1977"

Print "Opciones de comvercion"

Print "\nA)Florines Holandeses a dolares canadienses"

Print "\nB)Dracmas griegos a dolares norteamericanos"

Print ("\nC)Dolares canadienses a libra britanica"

Print "\nD)Dolares norteamericanos a francos franceses"

Print "\nEscoga una opcion: "

Read opcion

switch (opcion)

{

case "a":

case "A":

Print "Covercion de Florines Holandeses a Dolares Canadienses"

Print "Introdusca cantidad de Florines Holandeses: "

Read monto

doc = monto * 43.20 / 100

Print "Cantidad de Florines Holandeses = {0:f2} que equivale en Dolares Canadienses = {1:f2}", monto, doc

break

case "b":

case "B":

Print "Convercion de Dracmas Griegas a Dolares Norteamericanos"

Print "Introdusca cantidad de Dracmas Griegos: "

monto = double.Parse(Console.ReadLine());

doc = monto * 2.95 / 100

dol = doc / 1.06

Print "\nCantidad de Dracmas griegas = {0:f2} que equivale en Dolares Norte americanos = {1:f2}", monto, dol

break

case "c":

case "C":

Print "Convercion de Dolares Canadienses a Libras Britanicas"

Print "Introdusca cantidad de Dolares Canadienses: "

Read monto

lib = monto / 1.84

Print "\nCantidad de Dolares canadienses = {0:f2} que equivale en Libras Britanicas = {1:f2}", monto, lib

break

case "d":
case "D":

Print "Conversion de Dolares Norteamericanos a Francos Franceses"

Print "Introdusca cantidad de Dolares Norteamericanos: "

Print monto

doc = monto * 1.06

fran = doc * 100 / 21.55

Print "\nCantidad de Dolares Norteamericanos = {0:f2} que equivale en Francos Franceses = {1:f2}", monto, fran

break

case "e":

case "E":

Print "Fin del programa"

break

default:

Print "Opcion equivocada"

break

}

}

} while (opcion != "e" && opcion != "E")

Fin