PSeInt Algoritmos Matematicos

1)=============================================================
Proceso cinco_numeros
 // algoritmo que diga el mayor de 5 numeros ingresado
   definir a,b,c,d,e como enteros

    Escribir " ingrese un numero " ;
    leer a
    Escribir " ingrese un numero " ;
    leer b
    Escribir " ingrese un numero " ;
    leer c
    Escribir " ingrese un numero " ;
    leer d
    Escribir " ingrese un numero " ;
    leer e
   
    si a>b y a>c y a>d y a>e Entonces
        Escribir " El mayor es : " a;
    FinSi

    si b>a y b>c y b>d y b>e Entonces
        Escribir " El mayor es : " b;
    FinSi
   
    si c>a y c>b y c>d y c>e Entonces
        Escribir " El mayor es : " c;
    FinSi
   
    si d>a y d>b y d>c y d>e Entonces
        Escribir " El mayor es : " d;
    FinSi
    si e>a y e>b y e>c y e>d Entonces
        Escribir " El mayor es : " e;
    FinSi
FinProceso

2)=============================================================
 Proceso Calcular_Area_de_circulo
    Escribir "por favor digite el valor de radio"
    Leer radio
    AreaCirculo=3.1416*(radio)^2
    Escribir "El area del circulo es:  " AreaCirculo;
FinProceso

3)=============================================================
Proceso area_de_cudrado
    Escribir "por favor introdusca el valor del lado de un cuadrado"
    Leer lado
    Area=lado*4
    Escribir "El area de su cuadrado es: " Area;
  
FinProceso

4)=============================================================
 como hace una calculadora con menu.
 Proceso calculadora
     definir op como entero;
     definir a,b,num como real;
     num<-1;
     Escribir "           =Calculadora=";
     Escribir "================================================";
     mientras num=1 hacer
         escribir "1.==========Suma";
         escribir "2.==========Resta";
         escribir "3.==========Multiplicacion";
         escribir "4.==========Divicion";
         escribir "5.==========Raiz cuadrada";
         escribir "6.=Salir=";
         Escribir "=============================================";
         leer op;
         segun op Hacer
             1:
                 escribir "-Usted va a Sumar-";
                 escribir "Ingrese un numero y presione Enter ";
                 leer a;
                  escribir "Ingrese otro numero y presione Enter ";
                 leer b;
                 escribir " El Resultado de su suma es: ",a+b;
             2:
                 escribir "-Usted va a Resta-";
                 escribir "Ingrese un numero y presione Enter ";
                 leer a;
                 escribir "Ingrese otro numero y presione Enter ";
                 leer b;
                 escribir "El  Resultado de su resta es: ",a-b;
             3:
                 escribir "Usted va a Multiplicar";
                 escribir "Ingrese un numero y presione Enter ";
                 leer a;
                 escribir "Ingrese otro numero y presione Enter ";
                 leer b;
                 escribir "El Resultado de su multiplicacion es: ",a*b;
             4:
                 escribir "Divicion";
                 escribir "Ingrese un  numero y presione Enter ";
                 leer a;
                 escribir "Ingrese otro numero  y presione Enter ";
                 leer b;
                  escribir "El Resultado de su division es: ",a/b;
             5:
                 escribir "Raiz cuadrada";
                 escribir "Ingrese un numero y presione Enter ";
                 leer a;
                 escribir "El Resultado es: ",raiz(a);
             6:
                 escribir  "Buena suerte, Hasta pronto";
                 num=2;
         de Otro Modo:
             escribir "Por favor ingrese una de las opciones del menu";
         FinSegun
     FinMientras
    
 FinProceso




5)===========================================================


Proceso calcular_seno_cos_tang
    Escribir "introdusca el primer numero";
    Leer num1;
    Escribir "introdusca el segundo";
    Leer num2;
    Escribir "introdusca el tercer numero";
    Leer num3;
    seno1=Sen (num1);
    seno2=Sen (num2);
    seno3=Sen (num3);
    coseno1=Cos (num1);
    coseno2=Cos (num2);
    coseno2=Cos (num3);
    tang1=tan(num1);
    tang2=tan(num2);
    tang3=tan(num3);
    RaizC=RC(num1);
    RaizC=RC(num2);
    RaizC=RC(num3);
    Suma=num+num2+num3
    resta=num-num2-num3
    multiplicacion=num1*num2*num3
    Escribir "El resultado del seno1 es: " seno1
    Escribir "El resultado del seno2 es: " seno2
    Escribir "El resultado del seno3 es: " seno3
    Escribir "El resultado del Coseno1 es: " coseno1
    Escribir "El resultado del Coseno2 es: " coseno2
    Escribir "El resultado del Coseno3 es: " coseno3
    Escribir "El resultado del Tangente1 es: " tang1
    Escribir "El resultado del Tangente2 es: " tang2
    Escribir "El resultado del Tangente3 es: " tang3
    Escribir "El resultado del RaizC es: " RaizC
    Escribir "El resultado de la suma es: " suma
    Escribir "El resultado de la resta es: " resta
    Escribir "El resultado de la multiplicacion  es: " multiplicacion
FinProceso

6)===========================================================

 Proceso Celsius_a_fahrenheit
    Escribir "Por favor ingrese el grado celsius que quiere convertir a fahrenint"
    Leer temp
    tempfahrenheit=(9/5*(temp)+32)
    Escribir "su grado en fahrenhiet es: " tempfahrenheit " F "
  
FinProceso

7)============================================================

Proceso segundos_minutos_horas
  
    Escribir "segundos a minuto"
    Leer s
    min=s/60
    Escribir "La cantidad ingresada tiene como resultados: " min  " min "
  
    Escribir "minuto a segundo"
    leer m
    segundos=m*60
    Escribir "La cantidad ingresada tiene como resultados: " segundos  " seg "
  
  
    Escribir "minuto a horas"
    leer m
    horas=m/60
    Escribir "La cantidad ingresada tiene como resultados: " horas  " horas "
  
    Escribir "horas a minutos"
    leer h
    minutos=h*60
    Escribir "La cantidad ingresada tiene como resultados: " minutos  " min "
  
  
    Escribir "segundos a horas"
    leer seg
    hora=seg/3600
    Escribir "La cantidad ingresada tiene como resultados: " hora  " horas "
  
  FinProceso



8)===========================================================
   suma de 5 numeros
 Proceso Suma
    Escribir "Introdusca su primer numero"
    leer n1
    Escribir "Introdusca su segundo numero"
    leer n2
    Escribir "Introdusca su tercer numero"
    leer n3
    Escribir "Introdusca su Cuarto numero"
    leer n4
    Escribir "Introdusca su ultimo numero"
    leer n5
    R_suma=n1+n2+n3+n4+n5;
    Escribir "El Resultado de su suma es: " R_suma;
  
FinProceso

9)============================================================
 saber el factorial de un numero culquiera con el ciclo mientras
 Proceso Factorial
    Escribir "ingrese número";
    Leer n;
    fact<-1
    i=1
    Mientras i<=n Hacer
        fact=fact*i
        i=i+1;
    Fin Mientras
    Escribir "resultado ", fact;
FinProceso

 10)============================================================

  factorial de un numero con ciclo para.
 Proceso factorial_de_un_numero
  
    Escribir "ingrese un numero";
    leer n;
    factorial=1
    Para i<-1 Hasta n Con Paso 1 Hacer
        factorial=factorial*i
      
    Fin Para
    Escribir "resultado ", factorial;
FinProceso

 11)============================================================

Proceso muestra_la_longito_que_tiene_Cualquier_palabra_ingresada
    definir cantidad como entero
   
    Escribir " introdusca cualquier texto "
    leer text
    cantidad=Longitud(text)
    escribir " su texto contiene una longitud de: " cantidad " carácteres ";
FinProceso

 12)============================================================
Proceso test_de_ciclos
   
    Escribir "opcion ", "1 " , "muetras los numeros pares hasta el 100";
    Escribir "opcion ", "2 " , "muestras los numros pares hasta el 1000";
    leer op
    Segun op Hacer
        1:
        para i=2 hasta 100 con paso 2 Hacer
       
        Escribir i
        FinPara
    2:
        mientras cont<=998 Hacer
            cont=cont+2
           
            Escribir cont
        Finmientras
        De Otro Modo:
            Escribir "Error"
    Fin Segun
   
 13)=============================================================


Proceso muestra_la_posicion_del_numero_mayor_de_3_numeros_ingresados
    Escribir "ingrese el primer numero";
    Leer  n1;
    Escribir "ingrese el segundo numero";
    Leer  n2;
    Escribir "ingrese el tercer numero";
    Leer  n3;
    si (n1>n2) y (n1>n3)
        Escribir "el primer numero es mayor"
    fin si
    si (n2 > n1) y (n2 > n3)
        Escribir "el segundo numero es mayor"
    FinSi
    si (n3 > n1) y (n3 > n2)
        Escribir "el tercer numero es mayor"
    FinSi
   
   
FinProceso

 14)============================================================

 mestra el numero mayor y menor
   
Proceso mayorMenor
Escribir "ingrese un numero";
Leer a;
Escribir "ingrese otro numero";
Leer b;
Escribir "ingrese un numero mas";
Leer c;
si a>b y a>c Entonces
Escribir "el numero mayor es:',a;
FinSi
si b>a y b>c Entonces
Escribir "el numero mayor es:',b;
FinSi
si c>b y c>a Entonces
Escribir "el numero mayor es:',c;
FinSi
si a<b y a<c Entonces
Escribir "el numero menor es:',a;
FinSi
si b<a y b<c Entonces
Escribir "el numero menor es:',b;
FinSi
si c<b y c<a Entonces
Escribir "el numero menor es:',c;
FinSi
FinProceso

15)===========================================================

 Proceso numero_primo
    Escribir "digite un numero"
    leer P
    cont=2
    Mientras cont<P y p mod cont <> 0 Hacer
        cont=cont+1
      
    Fin Mientras
    Si cont=p Entonces
        Escribir p " es un numero primo "
    Sino
        Escribir  p " no es un numero primo "
    Fin Si
FinProceso

16)============================================================
 Proceso numPulsaciones
    Escribir "por Favor ingrese la edad y presiones Enter"
    leer edad
    Pulsaciones<- (220-edad)/10
    escribir "el valor de pulsaciones es: " Pulsaciones;
FinProceso

17)============================================================

 Proceso numros_pares_menores_que_cien
    cont=0
    Mientras cont<100 Hacer
        cont=cont+2
        Escribir cont
    Fin Mientras
FinProceso


18)============================================================

  Proceso Numeros_Pares_Impares
cont<-c
numpar<-0
numimpar<-0
prodpar<-1
prodimpar<-1
Escribir "digite la cantidad de numeros a evaluar"
Leer c
Mientras cont<c Hacer
Escribir "introduzca un numero entero"
Leer n
Si n mod 2=0 Entonces
numpar<-numpar+1
prodpar<-prodpar*n
Sino
numimpar<-numimpar+1
prodimpar<-prodimpar*n
FinSi
cont<-cont+1
FinMientras
Escribir "la cantidad de numeros pares es: ", numpar
 Si numpar=0 Entonces
Escribir "el producto de los numeros pares es: ", prodpar-1
 Sino
Escribir "el producto de los numeros pares es: ", prodpar
 FinSi
Escribir "la cantidad de numeros impares es: ", numimpar
 Si numimpar=0 Entonces
Escribir "el producto de los numeros impares es: ", prodimpar-1
 Sino
Escribir "el producto de los numeros impares es: ", prodimpar
 FinSi
 FinProceso


19)===========================================================
 porcentaje de hombre y mujeres en un lugar cualquiera
 Proceso mujeres_hombres
    Escribir "ingrese la cantidad de mujeres";
    leer cm
    Escribir "ingrese la cantidad de hombres";
    leer ch
    total_estudiante=cm+ch;
    pm=cm*total_estudiante/100;
    ph=ch*total_estudiante/100;
    Escribir "porcentaje de mujeres: " pm;
    Escribir "porcentaje de hombres: " ph;
     
FinProceso


20)============================================================

 Proceso Num_positivo_negativo
    Escribir "introdusca un numero"
    leer num
    si num > 0 Entonces
        Escribir "Su numero es: Positivo "
    FinSi
    si num < 0 Entonces
        Escribir "Su numero es: Negativo "
    FinSi
    si num = 0 Entonces
        Escribir "Su numero es: Cero "
    FinSi
FinProceso

21)============================================================

 Proceso  promedio_cronometrado_semanal
    definir prom,lu,mc,vn Como Real
    Escribir "ingrese valores cronometrado del dia lunes";
    Leer lu
    Escribir "ingrse valores cronometrados del dia miercoles";
    leer mc
    Escribir "ingrese valores cronometrados del dia viernes";
    Leer vn
    prom=(lu+mc+mc)/3;
    Escribir " su promedio  cronometrado semanal es de: " prom;
FinProceso


22)============================================================

 Proceso Raiz_Cuadrada_de_un_Numero
    Repetir
        Escribir "Introdusca Un numero"
        leer n
        si n <0 Entonces
            Escribir "su numero no puede ser negativo, introdusca uno positivo"
        FinSi
    Hasta Que n >=0;
    Escribir "La raiz de su numero es: " RC(n);
  
FinProceso
23)============================================================

Proceso Volumen_de_una_esfera
    definir VolumendeUnaEsfera como real
    Escribir "por favor digite el valor de radio"
    Leer radio
    VolumendeUnaEsfera= 4/3*3.1416*(radio)^3
    Escribir "El volumen de su esfera es: " VolumendeUnaEsfera;
   
FinProceso

24)============================================================


 Proceso Numeros_Pares_Impares
cont<-c
numpar<-0
numimpar<-0
prodpar<-1
prodimpar<-1
Escribir "digite la cantidad de numeros a evaluar"
Leer c
Mientras cont<c Hacer
Escribir "introduzca un numero entero"
Leer n
Si n mod 2=0 Entonces
numpar<-numpar+1
prodpar<-prodpar*n
Sino
numimpar<-numimpar+1
prodimpar<-prodimpar*n
FinSi
cont<-cont+1
FinMientras
Escribir "la cantidad de numeros pares es: ", numpar
 Si numpar=0 Entonces
Escribir "el producto de los numeros pares es: ", prodpar-1
 Sino
Escribir "el producto de los numeros pares es: ", prodpar
 FinSi
Escribir "la cantidad de numeros impares es: ", numimpar
 Si numimpar=0 Entonces
Escribir "el producto de los numeros impares es: ", prodimpar-1
 Sino
Escribir "el producto de los numeros impares es: ", prodimpar
 FinSi
 FinProceso