Algoritmo de BUCLES DE REPETICIÓN INFINITA

Proceso sin_titulo Definir num como entero;

Escribir "1- calcular la suma enesima";

Escribir "2- calcular la suma de impares";

Escribir "3- calcular factorial";

Escribir "4- calcular la tabla de multip´licacion del 1 al 12";

Escribir "ingrese numero";

Leer num;

Segun num Hacer 1: suma=0 ;

Escribir "ingrese el valor para n";

Leer n;

c=1;

Mientras c<=n Hacer

suma=suma+(2*c);

c<-c+1;

Fin Mientras

Escribir "El resultado es:", suma; 2: suma=0

Escribir "ingrese el valor para n";

Leer n;

c<-1

Mientras c<=n Hacer

suma<-suma+((2*c)-1)

c<-c+1 Fin Mientras

Escribir "El resultado es:", suma;

3: factorial=1;

Escribir "ingrese el valor para n";

Leer n;

c<-1;

Mientras c<=n Hacer factorial<-factorial*c;

c<-c+1 Fin Mientras

Escribir "el resultado es factorial:" factorial;

4:

tabla=0;

c<-0;

Escribir "ingrese el valor para n";

Leer n;

Escribir "la tabla del n es:", n;

Mientras c<=12 hacer

tabla<-tabla+c*n;

c<-c+1;

Escribir c, "*", n,"=", c*n;

Fin Mientras

5:

Definir serie como real;

serie=0;

factorial=1;

c=1;

Escribir "ingrese el valor para n";

Leer n;

Escribir "el resultado es:", serie;

Mientras c<=n Hacer

factorial<-factorial*c;

c<-c+1;

serie<-serie+factorial/(2*c+1); Fin Mientras De Otro Modo: Escribir "fuera de rango" Fin Segun FinProceso