Programacion

UNIVERSIDAD NACIONAL AUTONOMA DE NICARAGUA
RECINTO UNIVERSITARIO “RUBEN DARIO”
FACULTAD DE CIENCIAS E INGENIERIAS
DEPARTAMENTO DE COMPUTACION

PROYECTO

Asignatura: Introducción a la Programación.

Profesora: Ainoa Calero

Integrantes:

← René Esteban Hernández Jarquin
← Humberto José Gutiérrez Díaz

Carrera: Lic. En ciencias de la computación

Año: 1ro Turno NocturnoManagua, 28 de Octubre de 2011

Proyecto a desarrollar:

Proyecto Nº: 1

Conversión de moneda.

1. Conversión de moneda nacional a 5 tipos de monedas ej. De euros a córdobas y de córdobas a euro, o sea para cada tipo de moneda existirán dos opciones. El programa deberá constar de un menú principal donde el usuario erigirá el tipo de cambio que desea realizar. Además deberá captarla fecha en que se realizaría el cambio y expresarla en formato dd/mm/aa. Incluir en el menú la opción de salir del programa.

El proyecto se desarrollara de la siguiente manera:

Introducción.
Objetivos.
Presentación del algoritmo.
Demostración en TURBO PASCAL.
Conclusiones.

La Introducción, los objetivos y la conclusión estarán dados en presentación de PowerPoint.

En estedocumento presentaremos el algoritmo y el programa desarrollado en TP.
Algoritmo
Programa ConvertirMoneda
Var
MesActual, DiaActual, AnnoActual, CodigoMoneda:entero

Procedimiento MostrarInstrucciones
Inicio
Escribir 'Introduzca'
Escribir '1 para convertir moneda estadounidense a canadiense'
Escribir '2 para convertir moneda canadiense a estadounidense'Escribir '3 para convertir moneda Nicaraguense a canadiense'
Escribir '4 para convertir moneda canadiense a Nicaraguense'
Escribir '5 para convertir moneda Nicaraguense a estadounidense'
Escribir '6 para convertir moneda estadounidense a nicaraguense'
Escribir '7 para convertir moneda europeo a estadounidense'
Escribir '8 paraconvertir moneda estadounidense a europeo'
Escribir '9 para convertir moneda euro a Nicaraguense'
Escribir '10 para convertir moneda Nicaraguense a euro'
Fin
Procedimiento ConvertirUSACanada
Var
USACanada,Dolares: Real
Inicio
Escribir 'Introduzca el valor de cambio actual EE.UU-Canada'
Leer(USACanada)
Escribir 'Introduzca la cantidad de dolares estadounidenses'
Leer (Dolares)
Escribir 'Es equivalentea' ,USACanada*Dolares:, 'Dolares Canadienses.'
Fin
Procedimiento convertirCanadaAUS
Var
CanadaAUS, Dolares: Real
Inicio
Escribir 'Introduzca elvalor de cambio actual Canada-EE.UU'
Leer (CanadaAUS)
Escribir 'Introduzca la cantidad de dolares canadienses'
Leer (Dolares)
Escribir 'Es equivalente a', CanadaAUS*Dolares:, 'Dolares Estadounidenses.'
Fin
Procedimiento ConvertirNicCanada
Var
NicCanada, Cordobas: RealInicio
Escribir'Introduzca el valor de cambio actual Nicaragua-Canada'
Leer(NicCanada)
Escribir'Introduzca la cantidad de cordobas nicaraguenses'
Leer(Cordobas)
Escribir 'Es equivalente a', NicCanada*cordobas, 'Dolares Canadienses.'
Fin
ProcedimientoconvertirCanadaNic
Var
CanadaNic,Dolares: Real
Inicio
Escribir'Introduzca el valor de cambio actual Canada-Nic'
Leer(CanadaNic)
Escribir 'Introduzca la cantidad de dolares canadienses'
Leer(Dolares)
Escribir 'Es equivalente a', CanadaNic*Dolares, 'Cordobas Nicaraguenses.'...