Algoritmo prev
definir mat, vec,temp Como Caracter
definir vece,i,j como entero
//uso 2 vectores, uno de caracter y otro para sumadores/etc, para ahorrarme
el definir 10 variables distintas
dimension vec(10)
dimension vece(10)
//inicializo vece pq voy a usarlo de contador en algunas posiciones
para i=1 hasta 10 Hacer
vece(i) =0
FinPara
//pido datos
Escribir "escriba su nombre"
leer vec(1)
Escribir "escriba su contrase�a"
leer vec(2)
//valido q la contrase�a este bien para ambos nombres
mientras vec(1) <> "juan" y vec(2) <> "J1u_n" y vec(1) <> "juana" y vec(2) <>
"123_$1" Hacer
Escribir "usuario y/o contrase�a incorrectos, ingrese de nuevo"
leer vec(1), vec(2)
FinMientras
//creo mientras para que dsp de mostrar cada opcion, vuelva al menu y pueda
elejir la otra
mientras vece(1) <> 1 Hacer
//le doy las 2 opciones
Escribir "elija una opcion, 1 para cargar productos y 2 para
mostrarlos"
leer vec(4)
// validar la opcion es opcional pero suma punto se supone
mientras vec(4) <> "1" y vec(4) <> "2" Hacer
Escribir "ingrese una opcion valida"
leer vec(4)
FinMientras
//uso un segun para las 2 opciones, tmb se puede usar un si
segun vec(4) Hacer
"1":
Escribir "cuantos productos vas a cargar"
leer vece(2)
//vece(2) es la cant de productos, o sea las filas, y el 2
de dsp son las 2 columnas
dimension mat(vece(2),2)
//como voy a Escribir en una sola columna puedo usar un
para solo, y leo la columna 1 q es la de descripcion
para i=1 hasta vece(2) Hacer
Escribir "ingrese la descripcion del prod N:_",i
leer mat(i,1)
FinPara
//ordeno matriz alfabeticamente, es lo mismo q con numeros,
solo q el aux(temp) tiene q ser caracter
//aca tmb, como nomas voy a ordenar 1 columna, puedo
ordenarlo como si fuera un vector, con 2 paras y en el lugar de la j y la L en
matriz, iria el 1 q es la columna
para i=1 hasta vece(2) Hacer
para j=1 hasta vece(2) hacer
si mat(i,1) < mat(j,1) Entonces
temp= mat(i,1)
mat(i,1)=mat(j,1)
mat(j,1)=temp
FinSi
FinPara
FinPara
//pregunto por el precio y lo cargo en la posicion i,2,
para q sea la del producto, en la columna q va
para i=1 hasta vece(2) Hacer
Escribir "ingrese precio del producto: ", mat(i,1)
leer mat(i,2)
mientras ConvertirANumero(mat(i,2)) <0 Hacer
Escribir "tiene q ser un precio positivo obvio"
leer mat(i,2)
FinMientras
//aprovecho el para y lo uso para los contadores, q
los guardo en
//mayor a 10mil
si ConvertirANumero(mat(i,2)) > 10000 Entonces
vece(3)=vece(3) +1
Escribir "al ser mayor a 10000 tenes q realizar
facturas por separado"
FinSi
//menor a 10mil
si ConvertirANumero(mat(i,2)) < 10000 Entonces
vece(4)=vece(4) +1
FinSi
//sumo todo para tener el promedio despues
vece(5)= vece(5) + ConvertirANumero(mat(i,2))
//averiguo el num mas grande asi
si ConvertirANumero(mat(i,2)) > vece(6) Entonces
//vece(6) arranca en 0, cualquier valor va a
ser mayor, lo intercambia y asi sucesivamente
//guardo la mat(i,1) para que sea la
descripcion
vec(3) = mat(i,1)
FinSi
FinPara
Escribir "todo se cargo correctamente"
//opcion mostrar
"2":
//este si lo hago pq, vece(2) es la cant de numeros q
ingreso, si es distinto a 0 es porque hay numeros cargados, si es 0 es porque no
cargaron nada
si vece(2) <> 0 Entonces
para i=1 hasta vece(2) Hacer
para j=1 hasta 2 Hacer
//uso el si para darle formato a la
matriz
si j=1 Entonces
Escribir "D: ", mat(i,j) sin saltar
sino
Escribir " $: ", mat(i,j) sin
saltar
FinSi
FinPara
Escribir ""
FinPara
Escribir vec(3), " Es el prod mas caro"
Escribir vece(3), " es/son la cant de productos con
precios mayores a 10mil"
Escribir vece(4), " es/son la cant de productos con
precios menores a 10mil"
//saco el promedio, la suma total, dividido la cant
de valores
vece(5)=(vece(5)) /vece(2)
Escribir vece(5), " es el promedio de precios entre
todos los productos"
Escribir ""
Escribir ""
SiNo
Escribir "no hay nada cargado"
FinSi
FinSegun
FinMientras
FinAlgoritmo