PRACTICA 12.
Pseudocódigo Practica 12 Problema 1.

1.- Inicio
Inicio programa()
{
num[10]          int
lecturadatosarreglo(num)
Print "La suma de los datos: ",sumadatosarreglo(num)
Print "El promedio de los datos: ",promediodatosarreglo(num)
prom int
prom=promediodatosarreglo(num)
Print"Numeros mayores o iguales a promedio\n"for(int i=0 to 9 step i++)
{
if (num[i]>=prom){
Print num[i]
}
}
Print “Numero mayor: ",mayordatosarreglo(num)
Print "Numero menor: ",menordatosarreglo(num)
}
Función lecturadatosarreglo(int numeros[10])
{
int i
Print "Introduce los valores enteros\n"for(i=0 to 9 step i++)
{
Print "Dato",(i+1),"= ? "
Read numeros[i]
}
}
Fin función
Función int sumadatosarreglo(int numeros[10])
{
i, suma=0       int
for(i=0 to 9 step i++)
{
suma=suma+numeros[i]
}
return suma
}
Fin función
Función int promediodatosarreglo(int numeros[10])
{
suma=0          int
suma=sumadatosarreglo(numeros)
return suma/10
}
Fin función
Función mayordatosarreglo(int numeros[10])
{
mayor=0, i     int
for (i=0 to 9 step i++)
{
if (mayor<numeros[i])
{
mayor=numeros[i]
}
}
return mayor
}
Fin funcion
Funcion menordatosarreglo(int numeros[10])
{
menor=9999, i           int
for (i=0 to 9 step i++)
{
if (menor>numeros[i])
{menor=numeros[i]
}
}
return menor
}
Fin función.
Fin

Pseudocódigo Practica 12 Problema 2.

1.-Inicio.
Función void lecturadatos(Real a[10])
{
i           int
Print “Introduce diez valores reales”
for (i=0 to 9 step i++)
{
Print “Dato ”,(i+1), ”=?  ”
Read a[i]
}
}

Fin función
Función Calcularvoltios(Real  c[10), real r[10], real v[10])
{
i           int
for (i=0 to 9 step i++)
{
v[i]=c[i]*r[i]
}
}
Fin función
Función real sumadatos(Real a[10])
{
suma=0.0       real
i=0                   int
for(i=0 to 9step i++)
{
suma=suma+a[i]
}
return suma
}
Fin función
Función  void desplegar datos (real c[10], real r[10],  real v[10],real p[10])
{
i           int
Print “Corriente        resistencia     voltios             potencia”
for (i=0 to 9 step i++)
{
Print c[i], “      “, r[i],”             ”,v[i],”             “,p[i]
}
Print “Total: ”, sumadatos(c), sumadatos (r), sumadatos(v),sumadatos(p)
}

Fin función
Función calcularpotencia(real c[10],real r[10],real p[10])
{
i           int
for (i=0 to 9 step i++)
{
p[i]=c[i]* (pow(r[i],2))
}
}
Fin función
Inicio programa
{
corriente [10],resistencia[10], voltios[10], potencia[10]            real
Print “Datos de corriente:              ”
Lectura datos (corriente)  
Print “Dato de resistencia:                         ”
Lectura datos (resistencia)
calcular voltios (corriente,resistencia,voltios)
calcularpotencia(corriente,resisitencia,potencia)
desplegardatos (corriente,resistencia,voltios)
}
Fin.

Pseudocodigo Tutorial con Funciones.

1.-Inicio.
Inicio de programa ()
{
c         int
bienvenida()
Read c
do
{
clrscr()
indice()
if (c==1)
{
unidad1()
}
if (c==2)
{
unidad2()
}
if (c==3)
{
unidad3()
}
if (c==10)
{
examen1()
}
Read c
}
while (c!=-1)
}
Fin.

Funcion void bienvenida()
{
Print "\n\n\n\n\t\t\t    Tutorial de Matematicas I\n"
Print "\n\n\n\t\t\t\t  Version 1.0 \n"
Print "\n\n\n\n\t\t\t\t    Autor:\n"
Print "\n\n\n\t\t\t  Denisse Alejandra Meza Soria.\n"
Print "\n\n\n\n\nPresione 0 para continuar: "
}
Fin Funcion.
Funcion void indice()
{
Print "\n\n\t\t\t\tIndice\n\n"
Print "\t\t1.-Historia del  algebra.\n"
Print "\t\t2.-Definicion de ecuaciones.\n"
Print "\t\t3.-Operaciones basicas de expresiones algebraicas.\n"
Print "\n\n\n\n\nIntroduzca el numero de la unidad para ir al resumen: "
Print "\n\n Introduzca  -1 para salir: "
}
Fin Funcion.

Funcion void unidad1()
{
clrscr()
Print "\n\n\t\t\t1.-Historia del  algebra.\n\n\n"
Print "\tEl termino algebra viene del titulo de la obra del matematico"
Print "arabe Mahommed ibn Musa al-Kharizmi, que significa Mahommed,"
Print "  hijo de Musa,natural de Kharizm, al-jebr w'al-muqabalah, "
Print "que significa transposición y eliminacion." 
Print "\n\tEl algebra es una rama de las Matematicas que estudia la forma"
Print " de resolver las ecuaciones."
Print "\n\tUna de las caracteristicas del algebra es que utiliza simbolos" 
Print " para representar numeros."
Print "\n\tEl algebra actual trata con entidades mas generales"
Print " que los numeros y sobre estas entidades define operaciones."
Print "\n Esta nueva algebra se debe a Galois."
Print "\n\tLos egipcios utilizaban sumas de fracciones unidad (a), junto con"
Print "la fraccion B, para expresar todas las fracciones. Los egipcios"   
Print "fueron capaces de resolver problemas aritmeticos con fracciones,"   
Print "asi como problemas algebraicos elementales.\n"   
Print "\n\tLos babilonios desarrollaron unas matematicas mas sofisticadas"   
Print "que les permitieron encontrar las raices positivas de cualquier"   
Print "ecuacion de segundo grado. Fueron capaces de encontrar las raices"  
Print "de algunas ecuaciones de tercer grado, y resolvieron problemas mas"   
Print "complicados utilizando el teorema de Pitagoras. Los babilonios"   
Print "compilaron una gran cantidad de tablas, incluyendo tablas de"   
Print "multiplicar y de dividir, tablas de cuadrados y tablas de interes"   
Print "compuesto. Ademas, calcularon no solo la suma de progresiones"   
Print "aritmeticas y de algunas geometricas, sino tambien de"   
Print "sucesiones de cuadrados."   
Print "\n\n\n\nIntroduzca 0 para volver al indice o escriba 10 para realizar la evaluacion: "
}
Fin Funcion.

Funcion int examen1()
{
char resp
int contador=0
clrscr()
Print "\t\tEXAMEN UNIDAD I HISTORIA DEL ALGEBRA\n\n"
Print "\tResponda cada pregunta en orden, ingresando la letra elegida.\n"   
Print "Origen del autor de la obra  de donde proviene el termino algebra?\n\n\ta)Ingles\tb)Griego\tc)Arabe\n\nRespuesta: "
Read resp
if (resp=='c')
{contador++ }
Print "Cual es el significado de algebra?\n\n\ta)Calculos\tb)Transposicion\tc)Matematicas\n\nRespuesta: "
Read resp
if (resp=='b')
{contador++ }
Print "Que estudia el algebra?\n\n\ta)Ecuaciones\tb)Numeros\tc)Cuentas\n\nRespuesta: "
Read resp
if (resp=='a')
{contador++ }
Print "Es una de las caracteristicas del
algebra?\n\n\ta)Simbolos\tb)Numeros\tc)Graficas\n\nRespuesta: "
Read resp
if (resp=='a')
{contador++ }
Print "Nombre del personaje al que debemos la nueva algebra?\n\n\ta)Pitagoras\tb)Galois\tc)Arquimides\n\nRespuesta: "

Read resp

if (resp=='b')

{contador++ }

Print "Cual era la herramienta matematica que utilizaban los Egipcios para resolver problemas?\n\n\ta)Sumas\t\t b)Transposicion\t\tc)Fracciones\n\nRespuesta: "

Read resp

if (resp=='c')

{contador++ }

Print "Que tipo de problemas fueron capaces de resolver?\n\n\ta)Geometricos y Pitagoricos\tb)Aritmeticos y algebraicos\tc)Matematicos y Fisicos\n\nRespuesta: "

Read resp

if (resp=='b')

{contador++ }

Print "Personajes que lograron resolver problemas matematicos avanzados?\n\n\ta)Babilonios\tb)Egipcios\tc)Griegos\n\nRespuesta: "

Read resp

if (resp=='a')

{contador++ }

Print "Cual fue el teorema utilizado para resolver estos problemas?\n\n\ta)Algebra\tb)Pitagorico\tc)Tales\n\nRespuesta: "

Read resp

if (resp=='b')

{contador++ }

Print "Tipo de progresiones que calcularon los Babilonios?\n\n\ta)Matematicas\tb)Aritmeticas y geometricas\tc)Analiticas y de intereses.\n\nRespuesta: "

Read resp

if (resp=='b')

{contador++ }

Print "FIN\nSu calificacion es: ",(contador),   

if (contador>=7)

{Print "Aprovado" }

else

{Print "Reprovado debes estudiar mas." }

Print "\n\nIntroduzca 0 para volver al indice: "

return contador

}
Fin Funcion.

Funcion void unidad2()

{

clrscr()

Print "\n\n\n\t\t\t2.-Definicion de ecuaciones.\n\n"

Print "\n\tUna expresion algebraica es una combinacion de numeros y simbolos (que \nrepresentan numeros). Por ejemplo: 5x2 + 3x3y3z."

Print "\n\tUn termino es una combinacion de numeros y simbolos (que representan\nnumeros)unidos por operaciones de multiplicacion o division. Por ejemplo: 5x2,\n3x3y3z son los terminos de la expresion algebraica 5x2 + 3x3y3z."    

Print "\n\tUn factor es cada uno de los componentes de un termino. Por ejemplo: 5 yx2,son los factores del termino 5x2 de la expresion algebraica 5x2 + 3x3y3z."    

Print "\n\tElegido un factor, un coeficiente, es lo queda del termino. Por ejemplo:3 es el coeficiente de x3y3z, x3 es el coeficiente de 3y3z, z es el coeficiente de 3x3y3 y asi sucesivamente. Si el coeficiente es un numero se le llama \ncoeficiente numerico."    

Print "\n\n\tDos terminos se dice que son similares cuando solo se diferencian en el coeficiente numerico."    

Print "\n\tEl grado de un termino es la suma de los exponentes de las variables.Porejemplo: el grado del termino 3x3y3z es 7. El grado de una constante es cero."    

Print "\n\tLas ecuaciones son igualdades. Nunca debemos olvidar esto.Debemos \ndistinguir entre identidades y ecuaciones. Cuando dos expresiones son\niguales para cualesquiera valores que se pongan en lugar de las letras que\nfiguran en la expresion es una identidad. Cuando la igualdad solo se cumple\npara determinados valores de la expresion es una ecuacion."    

Print "\n\tPor ejemplo: 3x2 + 5x2 + 6x2 = 14x2 es una identidad y 9x2 + 3x = 10 es\nuna ecuacion."    

Print "\n\n\n\nIntroduzca 0 para volver al indice: "

}

Fin Funcion.

Funcion void unidad3()

{

clrscr()

Print "\n\n\n\t\t3.-Operaciones basicas de expresiones algebraicas.\n\n\n"

Print "\n\tUn monomio es una expresion algebraica de un solo termino.Ejemplos:\nAlgunos ejemplos son: 8x, xyt, 1/6x, x"    

Print "\n\tUn binomio es una expresion algebraica formada por dos terminos\nseparados por los signos de suma o resta.\nEjemplos:7x + y  2z + a  5x + y  2/4x + 2"    

Print "\n\tUn trinomio es una expresion algebraica de tres terminos separados\npor los simbolos de suma y de resta.Ejemplos:2x + b + m  x2 - 4xy + 3y2"    

Print "\n\tUn multinomio es una expresion algebraica de mas de un termino.\nEjemplos: 2x + b  x2+ 2xy2 + 3z4 - 8y + 3x"    

Print "\n\n\tUn polinomio es un monomio polinomio o multinomio en el que cada\ntermino es entero y racional con respecto a las variables."    

Print "\n\tEn un monomio hay un factor numerico y una parte constituida por\nletras y sus exponentes que se llama parte literal."    

Print "\n\tEjemplos: La parte literal de 6x2 es x2.La parte literal de\n3x es x.La parte literal de 12 x2 g5 es x2 g5."    

Print "\n\n\n\nIntroduzca 0 para volver al indice: "

}
Fin Funcion.

  Pseudocódigo Practica 12 Problema 3.

1.- Inicio.

Función void menu1()
{
Print "Convertidor de moneda\n"
Print "1)Inicializar Venta de moneda\n"
Print "2)Inicializar Compra de moneda\n"
Print "3)Convertir\n"
Print "Ingresar el numero de la funcion elegida para continuar: \n"
}
Final Funcion

Función void menu2()
{
Print "Tipos de monedas"
Print "1)Dollar americano"
Print "2)Euro"
Print "3)Yen"
Print "4)Yuan"
Print "Selecciona tipo de moneda= "
}
Final Funcion

Programa principal ()
{
op1, tipo Int
cantidad, valor  Real
venta[5], compra[5]            Real
do
{
clrscr()
menu1()
Read op1
switch(op1)
{
case 1:           Print "Venta dollar a pesos= "
                        Read venta[0]
                        Print "Venta euro a pesos= "
                        Read venta[1]
                        Print "Venta Yen a pesos= "
                        Read venta[2]
                        Print "Venta Yuan a pesos= "
                        Read venta[3]
                        clrscr()
                         menu1()
                        break
case 2:           Print "Compra dollar a pesos= "
                        Read compra[0]
                        Print "Compra euro a pesos= "
                        Read compra[1]
                        Print "Compra Yen a pesos= "
                        Read compra[2]
                        Print "Compra Yuan a pesos= "
                        Read compra[3]
                        clrscr()
                        menu1()
                        break
case 3:           Print "Cantidad= "
                        Read cantidad
                        valor=cantidad
                        Print "Quiero esta divisa=?\n"
                        menu2()
                        Read tipo
                        switch (tipo)
                         {
                        case 1 : convertirvalorventa(valor,venta,tipo)
                                     convertirvalorcompra(valor,compra,tipo)
                                    clrscr()
                                    Print "De PESOS a DOLLAR"
                                    Print "PESOS\t\tVENTA\t\tCOMPRA"
                                    Print cantidad ," PESOS= \t" ,convertirvalorventa(valor,venta,tipo)
                                    Print "\t\t" ,convertirvalorcompra(valor,compra,tipo) ,"\tDOLLARES"
                                    break
                        case 2 : convertirvalorventa(valor,venta,tipo)
                                    convertirvalorcompra(valor,compra,tipo)
                                    clrscr()
                                    Print "De PESOS a EUROSR"
                                    Print "PESOS\t\tVENTA\t\tCOMPRA"
                                    Print cantidad ," PESOS= \t" ,convertirvalorventa(valor,venta,tipo)
                                    Print "\t\t" ,convertirvalorcompra(valor,compra,tipo) ,"\tEUROS"
                                    getch()
                                    break
                     case 3 : convertirvalorventa(valor,venta,tipo)
                                    convertirvalorcompra(valor,compra,tipo)
                                    clrscr()
                                    Print "De PESOS a YEN"
                                    Print "PESOS\t\tVENTA\t\tCOMPRA”
                                    Print cantidad ," PESOS= \t" ,convertirvalorventa(valor,venta,tipo)
                                    Print "\t\t" ,convertirvalorcompra(valor,compra,tipo) ,"\tYEN"
                                   getch()
                                    break
            case 4 : convertirvalorventa(valor,venta,tipo)
                                    convertirvalorcompra(valor,compra,tipo)
                                    clrscr()
                                    Print "De PESOS a YUAN”
                                    Print "PESOS\t\tVENTA\t\tCOMPRA"
                                    Print cantidad ," PESOS= \t" ,convertirvalorventa(valor,venta,tipo)
                                    Print "\t\t" ,convertirvalorcompra(valor,compra,tipo) ,"\tYUAN"
                                    getch()
                                    break
         default: Print "ERROR"
         }
}
}
while ((op1==1)|(op1==2)|(op1==3))
getch()
}
Funcion real convertirvalorventa(real valor,real venta[5],int tipo)
{
return valor/venta[tipo-1]
}
Fin Funcion
función real convertirvalorcompra(real valor,real compra[5],int tipo)
{
return valor/compra[tipo-1]
}
Fin Funcion
Fin.

  Pseudocódigo Practica 12 Problema 4.

1.-Inicio.Inicio programa()
{
valor, valor1, valor2, valor3, numero       real
pantalla(16)
pantalla(8.75)
Print  "Introduce un valor:? "
Read valor
pantalla(valor)
Print "Introduce tres valores:? "
Print "valor 1: "
Read valor1
Print "valor 2: “
Read valor2
Print "valor 3: "
Read valor3
Print "El valor maximo es: ",maximo(valor1, valor2, valor3)
Print "El valor maximo es: ",maximo(32.5, 8.16, 7.99)
Print "El valor maximo es: ",maximo(18,90,32)
Print "El cuadrado de 20 es: ",cuadrado(20)
Print "El cuadrado de 32.8 es: ",cuadrado(32.8)
Print "Introduce un valor: "
Read valor
Print "El cuadrado de ",valor," es: ",cuadrado(valor)
Print "El entero de 98.2 es ",entero(98.2)
Print "Introduce un numero: "
Read numero
Print "El entero de ",numero," es ",entero(numero)
}
FUNCIONES.
 template <class t>
Función void pantalla(t valor)
{
Print "El dato transmitido es: ",valor
}
Fin Funcion

template <class t>
Función  t maximo(t n1, t n2, t n3)
{
if ((n1>=n2) & (n1>=n3))
return n1
if ((n2>=n1) & (n2>=n3))
return n2
            else
            {return n3}
}
Fin Funcion
template <class t>
Función int cuadrado (t valor)
{
valor=pow(valor,2)
return valor
}
Fin Funcion

template <class t>
Función  int entero (t numero)
{
return int(numero)
}
Fin Funcion
Fin.