Pseint

1)Proceso Fibonacci

    

     Definir a,b,c,d,e,s,i,n como enteros

     a=1;b=1;d=1;s=0;e=0;

     Escribir "Ingrese la cantidad de numeros a ver";

     Leer n;

     Para i<-0 Hasta n-1 Con Paso 1 Hacer

         Escribir a;

         c=a+b;

         b=a;

         a=c;

         s=s+b;

         d=d*b;

     FinPara

     Escribir "la suma es:",s;

     Escribir "la multiplicación es:",d;

FinProceso

2)Proceso VOTOS

     Definir a,b,c,v,n,p,q,i,m como enteros;

     a=0;b=0;c=0;q=0;p=0;i=1;

    Escribir "Ingrese la cantidad de votos";

     Leer n;

     Escribir '1. Candidato 1';

     Escribir '2. Candidato 2';

     Escribir '3. Candidato 3';

     Para m<-1 Hasta n Con Paso 1 Hacer

         Escribir "Ingrese su voto numero ",i;

         Leer v;

         Si v=1 Entonces

              a=a+1;

         Sino

         Si v=2 Entonces

          b=b+1

         Sino

         Si v=3 Entonces

          c=c+1;

         Sino

         Si v=0 Entonces

          q=q+1;

         Sino

         Si v>3 Entonces

          p=p+1;

     Fin Si

    Fin Si

     Fin Si

     Fin Si

    Fin Si

     i=i+1;

     Fin Para

    Escribir "La cantidad de votos del candidato 1 es:",a;

     Escribir "La cantidad de votos del candidato 2 es:",b;

     Escribir "La cantidad de votos del candidato 3 es:",c;

     Escribir "La cantidad de votos en blanco es:",q;

     Escribir "La cantidad de votos viciados es:",p;

FinProceso

3)Proceso Área

     definir a,b,c,d,e,f,g como reales ;

     Escribir "ingrese la primera coordenada X,Y respectivamente";

     leer a,b  ;

     Escribir "ingrese la segunda coordenada X,Y respectivamente";

     leer c,d;

     Escribir "ingrese la tercera coordenada X,Y respectivamente";

     leer e,f;

     g=abs((a*f+e*d+c*b-e*b-c*f-a*d)/2) ;

     Escribir "la repuesta es: ",g ;

FinProceso

4)Proceso Capital

     definir a,t,c,d como reales ;

     Escribir "Ingrese el capital";

     leer c;

     Escribir "Ingrese la tasa de interes";

     Leer t;

     c=100/t ;

     Escribir "el tiempo es: ",c;

FinProceso

5)Proceso Factorial

     definir a,b,c como enteros  ;

     a<-1;

     b<-1 ;

     Escribir "Ingrese el numero";

     leer c;

     Si c<0 Entonces

         Escribir "El factorial no existe";

     Fin Si

       Para a<-1 Hasta c Con Paso 1 Hacer

         b=b*a;

      Fin Para

      Escribir "El factorial es: ",b;

FinProceso 

6)Proceso Fisica

     Definir vi,g,vf,t como reales ;

     g=10;

     Escribir "Ingrese la velocidad inicial";

     Leer vi;

     Escribir "Ingrese en tiempo(segundos)";

     Leer t;

     vf=vi-g*t;

     Escribir "La velocidad final es: ",vf;

     Escribir "NOTA: -Si la Velocidad Final es negativa  el objetos se esta callendo                                                 -Si la Velocidad Final es positiva el objetos se se dirige hacia arriba  ";

     FinProceso

7)Proceso Multiplicación

     

     Definir a,b,c,d como enteros ;

     Repetir

         Escribir "Ingrese el numero";

         Leer a;

     Hasta Que a>=0;

    Para b=1 hasta 20 con paso 1 hacer

         Escribir a,"*",b,"=",a*b;

    FinPara

FinProceso

 8)Proceso Volumen De Un Elipsoide

     

     Definir a,b,c,d,p como reales ;

    

     Escribir "Ingrese los datos de el elipsoide";

     Leer a,b,c;

     d=4*a*b*c*PI/3;

     Escribir "El volumen del elipsoide es: ",d;

FinProceso

9)Proceso Hora

     definir a,b,c,d,f como enteros ;

     escribir "ingrese la hora " ;

     leer a;

     si a>0 Y a<24 Entonces

         Escribir "Hora:" a;

     sino

         Escribir "la hora ingresada no existe , Dame otra Hora";

         Leer a;

     FinSi

     Escribir "los minutos" ;

     Leer b;

     Escribir "los segundos" ;

     Leer c;

     f=c+1;

     Escribir "La hora es: ",a;

     Escribir "los minutos",b;

     Escribir "los segundos ",f;

FinProceso