Ejemplos Psint

Ejemplos de algoritmos en PSeudoCodigo
* AdivinaNumero: simple juego en el que hay que adivinar un nro aleatorio entre 1 y 100 en menos de 10 intentos. 
* Factorizacion: descompone un numero en sus factores primos. 
* Hanoi: juego de las torres de Hanoi, donde se deben mover discos entre tres torres cumpliendo ciertas limitaciones, hasta colocarlos todos en la ultima torre. 
*Matematicas: presenta un menu que permite realizar diferentes operaciones matematicas sobre un numero (funciones trigonometricas, calcular valor absolto, truncar, determinar si es primo, hallar el factorial, hallar la raiz cuadrada, etc.). 
* Mayores: Busca los dos mayores de una lista de N datos
* Modulo: Ejemplo trivial del uso del operador de módulo (MOD o %).
* OrdenaLista: ordena unalista de nombres alfabeticamente. 
* Promedio: calcula el promedio de una lista de datos. 
* Resolvente: calcula e informa las raices de una ecuacion de cuadratica, considerando los tres casos (reales iguales, reales distintas, o complejas conjugadas). 
* Sucursales: se obtienen datos acerca de las ventas de una empresa ingresando las cantidades vendidas por articulo y sucursal, juntocon el listado de precios. 
* Triangulo: calcula el area de un triangulo rectangulo, verificando primero que lo sea mediante el teorema de pitagoras. 

TRIANGULO
//    Lee los tres lados de un triangulo rectangulo, determina 
// si corresponden (por Pitargoras) y en caso afirmativo 
// calcula el area

Proceso TrianguloRectangulo
          
          // cargar datos
         Escribir "Ingrese el lado 1:";
          Leer l1;
          Escribir "Ingrese el lado 2:";
          Leer l2;
          Escribir "Ingrese el lado 3:";
          Leer l3;
          
          // encontrar la hipotenusa (mayor lado)
          Si l1>l2 Entonces
                    cat1<-l2;
                    Si l1>l3 Entonces
                              hip<-l1;
                             cat2<-l3;
                    Sino
                              hip<-l3;
                              cat2<-l1;
                    FinSi
          Sino
                    cat1<-l1;
                    Si l2>l3 Entonces
                              hip<-l2;
                              cat2<-l3;
                    Sino
                             hip<-l3;
                              cat2<-l2;
                    FinSi
          FinSi
          
          // ver si cumple con Pitagoras
          Si hip^2 = cat1^2 + cat2^2 Entonces
                    // calcualar area
                    area<-(cat1*cat2)/2;
                    Escribir "El area es: ",area;
          Sino
                    Escribir "No es untriangulo rectangulo.";
          FinSi
          
FinProceso

PROMEDIO
// Calcula el promedio de una lista de N datos

Proceso Promedio

          Escribir "Ingrese la cantidad de datos:";
          Leer n;
          
          acum<-0;
          
          Para i<-1 Hasta n Hacer
                    Escribir "Ingrese el dato ",i,":";
                    Leer dato;
                   acum<-acum+dato;
          FinPara
          
          prom<-acum/n;
          
          Escribir "El promedio es: ",prom;
          
FinProceso

ADIVINA NUMERO,PSINT

// Juego simple que pide al usuario que adivine un numero en 10 intentos

Proceso Adivina_Numero
          
          intentos<-9;
          num_secreto <- azar(100)+1;
          
         Escribir "Adivine el numero (de 1 a 100):";
          Leer num_ingresado;
          Mientras num_secreto<>num_ingresado Y intentos>0 Hacer
                    Si num_secreto>num_ingresado Entonces
                              Escribir "Muy bajo";
                    Sino 
                              Escribir "Muy alto";
                    FinSi
                    Escribir...