Psint6

1)VOLUMEN DEL ELIPSOIDE

Proceso VolumenDeUnElipsoide

     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

2)SUMA DE “n” NUMEROS

Proceso suma

     definir a,b,c,sum como reales;

     sum=0;

     Escribir "Ingrese los extremos numericos";

     Leer a;

     leer b;

     Para a<-a Hasta b Con Paso 1 Hacer

         sum=sum+a;

     Fin Para

     Escribir "La suma de los  numeros es:",sum;

Finproceso

3)SUMA DE “n” NUMEROS

Proceso suma

     definir  a,b,c,d,n,sum como reales;

     Escribir "Ingrese los extremos numericos" ;

     leer a,b;

     n=b-a+2;

     sum=0;

     Para a=a hasta b hacer

         Escribir a;

         sum=sum+a;

     FinPara

     Escribir "la suma es: ",sum;

    

     d=(sum)/n;

     Escribir "la media es: ",d;

    

    

FinProceso

4)IMPRESIÓN DE NUMEROS

Proceso GrupoDeNumeros

     definir n como entero;

     Escribir "Precione una tecla para continuar";

      esperar tecla;

     n=0;

    

       Mientras n<10 Hacer

          Escribir n+1;

         n=n+1;

      finmientras

    finproceso