• Author / Uploaded
• SantosRayo

Citation preview

Algoritmo

Problema Final En una tienda de perfumes , se desea

crear un algoritmo que controle las facturas de las ventas, dichas facturas deben contener los siguientes datos: numero correlativo, nombre del cliente, unidades solicitadas, monto total, estado (morosos, atrasados, pagados). El sistema debe generar el listado de los

Vilma Rayo _ Eveling Aguirre

04/09/2014

2



Algoritmo TiendaP Var tienda: record numcorr: entero; nombre: cadena de carácter[20]; unidades: entero; montot: real; estado: carácter; comercio: array [0..19] of tienda;

i: entero; suma: real; suma

0.0

cont: entero

cont

Vilma Rayo _ Eveling Aguirre

0

04/09/2014

3

Inicio llenado ( ); Datos ( ); Fin.

Vilma Rayo _ Eveling Aguirre

04/09/2014

4

Cadena de carácter llenado( )

inicio

i

For := 0 to 19 Inicio escribir (“ingrese numero correlativo del cliente:”);

i

leer (comercio[ ].numcorr); escribir (“ingrese el nombre del cliente:”);

i

leer (comercio[ ].nombre); escribir (“ingrese la cantidad de unidades:”);

i

leer (comercio[ ].unidades); escribir (“ingrese el monto total:”);

i

leer (comercio[ ].montot); escribir (“ingrese el estado del cliente m-moroso, a-atrasado, p-pagado:”);

i

leer (comercio[ ].estado);

fin;

Fin Vilma Rayo _ Eveling Aguirre

04/09/2014

5

Real datos( )

Inicio Escribir(“el listado de morosos es:”) For i:= 0 to 19 inicio if listado(comercio[i].estado = m ) then Escribir(comercio[i].nombre) Fin;

Vilma Rayo _ Eveling Aguirre

04/09/2014

6

Escribir(“la cantidad de personas atrasadas es:”) For i:= 0 to 19

inicio if (comercio[i].estado = a ) then contA

contA + 1;

fin;

Vilma Rayo _ Eveling Aguirre

04/09/2014

7

Escribir(“el total de pagado es:”) For i:= 0 to 19 inicio

if (comercio[i].estado = p ) then sumap

sumap + comercio[i].monto;

Fin;

Fin;

Vilma Rayo _ Eveling Aguirre

04/09/2014

8