Ejercicio 3 laboratorio Segundo Práctico Algoritmo

Segundo Práctico

[pic 1]

[pic 2]

[pic 3]

Clientes=Registro

        apellido: String[30]

        nombre: String[30] 

        DNI: entero

        teléfono: entero

        e-mail: String[30]

        Cuil: String [11]

Var Cliente: array [1..1000] de Clientes

VentasDiarias=Registro

        apellido: String[30]

        nombre: String[30]

        DNI: entero

        Num_Cliente: entero

        Num_CajaP: entero

        Num_CajaV: entero

        Formato_comp: String[1]

        Monto_abonar: real

        producto: String[30]

cant_vend: entero

fecha:String[10]

vent_dia: entero 

   Formato_pago=Registro

        tarjeta=Registro

                tharjeta: String[2]

                tipo_Tarjeta: String[10]

                núm_Tarjeta: entero

                dorso: entero

                vencimiento: String [5]

        cuenta_corriente=Registró 

                cuenta_corr: String[2]

                num_cuenta: entero

                nombre_empre:String [50]

                Cuil: String [11]

        efectivo: String[2]

Var VentaD: array [1..1000] de VentasDiarias

Proceso CargaC (var Client: array [1..1000] de Cliente)

  var  i:entero

  comenzar

    i:= 1

    Mientras i <= 1000

      Leer(Client[i].apellido)

      Leer(Client[i].nombre)

      Leer(Client[i].DNI)

      Leer(Client[i].teléfono)

      Leer(Client[i].e-mail)

      Leer(Client[i].Cuil)

      i:= i + 1

  fin

Proceso CargaV (var Venta_D: array [1..1000] de VentaD )

  var  i:entero

  comenzar

    i:= 1

    Mientras i <= 1000

      Leer(Venta_D[i].apellido) 

      Leer(Venta_D[i].nombre)

      Leer(Venta_D[i].DNI)

      Leer(Venta_D[i].Num_Cliente)

      Leer(Venta_D[i].producto)

      Leer(Venta_D[i].cant_vend)

      Leer(Venta_D[i].Monto_abonar)

      Mostrar(“Coloque V(virtual)/P(presencial) en su forma de compra”Venta_D[i].Formato_comp)

      Si(Venta_D[i].Formato_comp = V)

         Leer(Venta_D[i].Num_CajaV)

      Si(Venta_D[i].Formato_comp = P)

         Leer(Venta_D[i].Num_CajaP)

      Mostrar (“Coloque Si/No en su forma de pago”Venta_D[i].Formato_pago.tarjeta.tharjeta)

      Mostrar (“Coloque Si/No en su forma de pago”Venta_D[i].Formato_pago.cuenta_corriente.cuenta_corr)

      Mostrar (“Coloque Si/No en su forma de pago”Venta_D[i].Formato_pago.efectivo)

      Si (Venta_D[i].Formato_pago.tarjeta.tharjeta = Si)

        Leer(Venta_D[i].Formato_pago.tarjeta.tipo_Tarjeta)

        Leer(Venta_D[i].Formato_pago.tarjeta.núm_Tarjeta)

        Leer(Venta_D[i].Formato_pago.tarjeta.dorso)

        Leer(Venta_D[i].Formato_pago.tarjeta.vencimiento)

      Si (Venta_D[i].Formato_pago.tarjeta.cuenta_corr = Si)

        Leer(Venta_D[i].Formato_pago.cuenta_corriente.num_cuenta)

        Leer(Venta_D[i].Formato_pago.cuenta_corriente.nombre_empre)

        Leer(Venta_D[i].Formato_pago.cuenta_corriente.Cuil)

      Si (Venta_D[i].Formato_pago.tarjeta.efectivo = Si)

      Leer(Venta_D[i].fecha)

      Leer(Venta_D[i].vent_dia)

      i:= i + 1

  fin

Proceso VisualizarVent (Venta_D: array [1..1000] de VentaD )

  var  i:entero

  comenzar

    i:= 1

    Mientras i <= 1000

      Mostrar(“DNI ”Venta_D[i].DNI)

      Mostrar(“Cliente Nº ”Venta_D[i].Num_Cliente)

      Mostrar(“Se pagó $”Venta_D[i].Monto_abonar)

      Mostrar(Venta_D[i].producto)

      Mostrar(“Se compro ”Venta_D[i].cant_vend“ unidades”)

...