Solucion

ESCUELA DE INGENIER´ IA
ASIGNATURA ´ PERIODO ACADEMICO ´ : FUNDAMENTOS DE PROGRAMACION : 2011-2

´ SOLUCION DEL EXAMEN PARCIAL - PRUEBA A PROBLEMA 1       Entrada                Salida               Auxiliar          (seudoinstrucciones y grabaci´n: 1 pto, desarrollo del programa: 10 ptos) o   NCli : Nombre del cliente. → String  Tipo : Tipo delproducto. A, B o C. → String   Cant : Cantidad del producto. > 0 . → Integer   NCli y Mpagar : Nombre del cliente y el monto a pagar. o  NcliMayorCantA : Cliente que compr´ mayor cantidad delproducto A. → String   D: Descuento. → Single     MSD: Monto sin descuento. → Integer  MayorCantA: Mayor cantidad del producto A. → Integer   Rpta: VbYes o VbNo. → String     Cargo : Cargopor delivery. → Integer

§

’ Declaraci´n de variables. o Dim Cant , MSD, MayorCantA , Cargo As I n t e g e r , N c l i , Tipo , NcliMayorCantA , Rpta As S t r i n g Dim Mpagar , D As S i n g l e’ Inicializar. MayorCantA = I n t e g e r . M i n v a l u e : NcliMayorC antA = ”No e x i s t e ” ’ Repetir. Do ’ Asignar un valor a Ncli. N c l i = I n p u t b o x ( ” I n g r e s e e l nombre d e l cl i e n t e ” ) ’ Validar Tipo. Do Tipo = V a l ( I n p u t b o x ( ” I n g r e s e e l t i p o de p r o d u c t o ” ) ) I f Not ( Tipo = ”A” Or Tipo = ”B” Or Tipo = ”C” ) Then Messagebox . Show ( ” Er r o r ” ) End I f Loop U n t i l Tipo = ”A” Or Tipo = ”B” Or Tipo = ”C” ’ Validar Cant. Do Cant = V a l ( I n p u t b o x ( ” I n g r e s e l a c a n t i d a d d e l p r o d u c t o ” ) ) I f Not (Cant > 0 ) Then Messagebox . Show ( ” E r r o r ” ) End I f Loop U n t i l Cant > 0 ’ De acuerdo al Tipo y Cant, calcular MSD, D y NcliMayorCantA. I f Tipo = ”A” Then MSD = 35 ∗ Cant I f MSD > 350Then D = 0 . 0 6 ∗ MSD Else D = 0 . 0 3 ∗ MSD End I f I f Cant > MayorCantA Then MayorCantA = Cant NcliMayorC antA = N c l i End I f E l s e I f Tipo = ”B” Then

Fundamentos de Programaci´n o...