PRACTICA 13.

Pseudocodigo Practica 13 problema1.
Funcion real datos( real numeros [10])
{
 i          int
suma=0         real
Print "Introduce los valores:\n"
for(i=0 to i<10 step i++)
{
Print "Dato",(i+1),"= ? "
Read numeros[i]
suma=suma+numeros[i]
}
return (suma)
}
Fin Funcion

Funcion Real mgeo( real numeros[10])
{
I           int
mgeo=1 real
for(i=0 to i<10 step i++)
{
mgeo=mgeo*numeros[i]
}
return (pow(mgeo,(.1)))
}
Fin Funcion

Funcion  real marm( real numeros[10])
{
I int
suma1=0 real
for(i=0 to i<10 step i++)
{
suma1=suma1+(1/numeros[i])
}
return (10/suma1)
}
Fin Funcion

Funcion real mayor( real numeros[10])
{
mayor=0 real
i           int
for (i=0 to i<10 step i++)
{
if (mayor<numeros[i])
{
mayor=numeros[i]  
}
}
return mayor
}
Fin Funcion

Funcion  real menor ( real numeros[10])
{
menor=9999 real
 I          int
for (i=0 to i<10 step i++)
{
if (menor>numeros[i])
{
menor=numeros[i]  
}
}
return menor
}
Fin Funcion

Funcion void desviacion( real numeros[10],  real suma)
{
 sumacuadrados=0 real
 desviacion[10]       real
  i         int
for (i=0 to i<10 step i++)
{
desviacion[i]= (numeros[i]-(suma/10))
Print "La desviacion de dato ",(i+1)," : ",desviacion[i]
sumacuadrados= sumacuadrados+ pow(desviacion[i],2)
}
Print "Desviacion: ",sqrt(sumacuadrados/10)
Print "Varianza: ",(sumacuadrados/10)
}
Fin Funcion

Inicio  programa()
{
numeros[10] real
suma=datos(numeros) real
Print "La media geometrica es:  ",mgeo(numeros)
Print "La media armonica: ",marm(numeros)
Print "Intervalo: ",(mayor(numeros)-menor(numeros))
desviacion(numeros, suma)
}
Fin programa

Pseudocodigo Practica 13 problema 2.Funcion char vendedores(char name[5][30])
{
I           int
for (i=0 to   i<5 step i++)
{
 Print "Nombre de vendedor " ,(i+1) ," : "
gets(name[i])
}
return 0
}
Fin Funcion
Funcion char descripcionart(char d [5][30])
{
I           int
for (i=0 to  i<5 step i++)
{
 Print "Descripcion de articulo " ,(i+1) ," : "
gets(d[i])
}
return(d[i][30])
}
Fin Funcion
 Funcion real precios( real p[5])
{
I           int
for (i=0 to i<5 step i++)
{
 Print "Precio Articulo" ,(i+1) ," : "
Read p[i]
}
return 0
}
Fin Funcion
Funcion real sueldos(int nv, char d[5][30],  real p[5], real sueldo[5])
{
I           int
a,c      int
for (i=0 to i<5 step i++)
{
 Print "\nArticulo(clave): " ," : "
Read a
 Print "\nCantidad " ," : "
Read c
 Print "Descripcion: " ,d[a-1]
switch(a)
{
case 1: sueldo[nv-1]=sueldo[nv-1]+p[a-1]*c*0.05
break
case 2: sueldo[nv-1]=sueldo[nv-1]+p[a-1]*c*0.04
break
case 3:
case 4:
case 5: sueldo[nv-1]=sueldo[nv-1]+p[a-1]*c*0.02
break
default:  Print "Error"
}
}
return sueldo[nv-1]
}
Fin Funcion
Inicio de Programa()
{
name[5][30],d[5][30]       char
p [5]   real
sueldo[5]={0,0,0,0,0}         real
 Print "NOMBRE VENDEDORES"
vendedores(name)
 Print "DESCRIPCION ARTICULOS"
descripcionart(d)
 Print "PRECIOS UNITARIOS DE ARTICULOS"
precios(p)
salir     int
do
{
nv=0   int
 Print "Numero de vendedor:"
Read nv
 Print "Nombre vendedor " ,nv ," : " ,name[nv-1]
 Print "Sueldo vendedor " ,nv ," : " ,sueldos(nv,d,p,sueldo)
 Print "\nTerminar(si:1,no:0) :"
Read salir
}
while ( salir==0)
}
Fin programa

Pseudocodigo Practica 13 problema 3.
Funcion real datosiniciales (char clientes [3][30], real saldoinicial[3])
{
 I          int
Print "Iniciar datos Cliente "
for(i=0 to i<3 step  i++)
{
 Print "Nombre Cliente: "
gets(clientes[i])
Print "Saldo Inicial: "
read saldoinicial[i]
}
return saldoinicial[i]
}
Fin Funcion

Funcion real movs(real saldos, real mov[20], char clientes[3][30], real saldoinicial[3],int numcliente)
{
 i=0      int
do
{
 Print "Movimiento [-/+ |retiro/deposito]: "
read mov[i]
i++
}
while ((mov[i-1]!=0)&(i<20))
for (i=0 to i<20 step i++)
{
if ((saldos<mov[i])&(mov[i]<0))
{ Print ,"Error. Saldos Insuficientes." }
else
            {saldos+=mov[i] }
}
 Print "ESTADO DE CUENTA"
 Print "Nombre: ",(clientes[numcliente-1])
 Print "Saldo Inicial: ",(saldoinicial[numcliente-1])
 Print "Movimiento   Deposito\tRetiro\tSaldo\n"
 ii=0     int
do
{
 Print (ii+1),"\t\t"
if (mov[ii]>0)
{ Print " + \t\t" }
else
{ Print "\t - \t" }
 Print (mov[ii]),"\n\n"
ii++
}
while ((mov[ii]!=0)&&(ii<20))
return (saldos)
}
Fin Funcion
Programa principal ()
{
saldos=0       real
clientes [3][30]        char
saldoinicial[3],total           real
mov[20]        real
numcliente,sigue   int
datosiniciales(clientes,saldoinicial)
do
{
 Print "Numero de cliente: "
read numcliente
saldos=saldoinicial[numcliente-1]
total=movs(saldos,mov, clientes, saldoinicial, numcliente)
 Print "Saldo Final: ",total
 Print "Desea introducir otro cliente(si=1,no=0): "
read sigue
}
while(sigue==1)
}
Fin programa