EJERCICIOS DE CICLOS
 
Mis aficiones nuevo
EL HOMBRE QUE CALCULABA ( resumen)
EJERCICIOS DE DECISION SIMPLE
BIENVENIDOS A CANDY_LUNA INFORMATIC
TEORIA DE INFORMATICA
TAREA SEIS
DEFINICION DE ALGORITMO
RESOLUCION DE PROBLEMAS
BIOGRAFIAS DE MATEMATICOS
EJERCICIOS SECUENCIALES
MANUAL DEL DFD
EJERCICIOS DE DECISION MULTIPLE
EJERCICIOS DE CICLOS
EJERCICIOS DE FUNCIONES
EJERCICIOS DE ARREGLOS
TAREA SIETE
TAREA UNO
TAREA TRES
Mis aficiones nuevo
PROGRAMACION ORIENTADA A OBJETOS
EJERCICIOS DE CICLOS
CICLOS


C1.1) Hallar la sumatoria de 1 a N

Algo c1ccc;
Inicio
Entero num,cont,sum;
Escriba ("hasta que # la sumatoria:");
Lea (num);
Sum=0;
Cont=1;
MQ(cont <= num)
Inicio
Sum = sum + cont;
Cont ++;
Final
Escriba ("la sumatoria es %d",sum);
Final



Algo c1ccf;
Inicio
Entero num,cont,sum;
Imprima ("hasta que # la sumatoria:");
Lea (num);
Sum=0;
Cont=1;
Haga
Inicio
Sum = sum + cont;
Cont ++;
Final
MQ(cont <= num);
Imprima ("la sumatoria es %d",sum);
Final


Algo c1cp;
Inicio
Entero num,cont,sum;
Imprima ("hasta que # la sumatoria:");
Lea (num);
Sum=0;
Para (cont = 1; cont <= num; cont ++)
Inicio
Sum = sum + cont;
Final
Imprima ("la sumatoria es %d",sum);
Final






C3.1) Encontrar M*N con sumas.

Algo c3.1ccc;
Inicio
Entero m,n,j,mul;
Escriba ("digite multiplicando:");
Lea (m);
Escriba ("digite multiplicador:");
Lea (n);
mul=0;
j=1;
MQ(j <= n)
Inicio
mul = mul + m;
j++;
Final
Escriba ("%d * %d = %d",m,n,mul);
Final


Algo c3.1ccf;
Inicio
Entero m,n,j,mul;
Escriba ("digite multiplicando:");
Lea (m);
Escriba ("digite multiplicador:");
Lea (n);
mul=0;
j=1;
Haga
Inicio
mul = mul + m;
j ++;
Final
MQ(j <= n);
Escriba ("%d * %d = %d",m,n,mul);
Final


Algo c3.1cp;
Inicio
Entero m,n,j,mul;
Escriba ("digite multiplicando:");
Lea (m);
Escriba ("digite multiplicador:");
Lea (n);
mul=0;
Para (j = 1; j <= n; j ++)
Inicio
mul = mul + m;
Final
Escriba ("%d * %d = %d",m,n,mul);
Final

C3.2) Encontrar Mn con sumas.

Algo c5ccc;
Inicio
Entero m,n,x,sum;
Escriba ("digite base:");
Lea (m);
Escriba ("digite exponente:");
Lea (n);
sum=m;
x=1;
MQ(x <= n)
Inicio
sum = sum + m;
x ++;
Final
Escriba ("%d a la %d es %d",m,n,sum);
Final


Algo c5ccf;
Inicio
Entero m,n,x,sum;
Escriba ("digite base:");
Lea (m);
Escriba ("digite exponente:");
Lea (n);
sum=m;
x=1;
Haga
Inicio
sum = sum + m;
x ++;
Final
MQ(x <= n);
Escriba ("%d a la %d es %d",m,n,sum);
Final



Algo c3.2cp;
Inicio
Entero m,n,x,sum;
Escriba ("digite base:");
Lea (m);
Escriba ("digite exponente:");
Lea (n);
sum=m;
Para (x = 1; x <= n; x ++)
Inicio
sum = sum + m;
Final
Escriba ("%d a la %d es %d",m,n,sum);
Final

C3.3) Encontrar Mn con multiplicaciones.

Algo c3.3ccc;
Inicio
Entero m,n,y,exp;
Escriba (“digite base:”);
Lea (m);
Escriba ("digite exponente:");
Lea (n);
exp=m;
y=1;
MQ(y < n)
Inicio
exp = exp * m;
y ++;
Final
Escriba ("%d a la %d es %d",m,n,exp);
Final

Algo c3.3ccf;
Inicio
Entero m,n,y,exp;
Escriba ("digite base:");
Lea (m);
Escriba ("digite exponente:");
Lea (n);
exp=m;
y=1;
Haga
Inicio
exp = exp * m;
y ++;
Final
MQ(y < n);
Escriba ("%d a la %d es %d",m,n,exp);
Final


Algo c3.3cp;
Inicio
Entero m,n,y,exp;
Escriba ("digite base:");
Lea (m);
Escriba ("digite exponente:");
Lea (n);
exp=m;
Para (y = 1; y < n; y ++)
Inicio
exp = exp * m;
Final
Escriba (“%d a la %d es %d",m,n,exp);
Final



C3.4) Encontrar el MCD de dos números.

Algo c3.4ccc;
Inicio
Entero a,b;
Escriba ("digite primer número:");
Lea (a);
Escriba ("digite segundo número:");
Lea (b);
MQ(a ¡= b)
Inicio
Si (a > b) entonces
a = a – b;
sino
b = b – a;
fsi
Final
Escriba ("el MCD es %d",b);
Final


Algo c3.4ccf;
Inicio
Entero a,b;
Escriba ("digite primer número:");
Lea (a);
Escriba ("digite segundo número:");
Lea (b);
Haga
Inicio
Si (a > b) entonces
a = a – b;
sino
b = b – a;
fsi
Final
MQ(a ¡= b);
Escriba ("el MCD es %d",b);
Final



Algo c3.4cp;
Inicio
Entero a,b;
Escriba ("digite primer número:");
Lea (a);
Escriba ("digite segundo número:");
Lea (b);
Para (; a ¡= b ;)
Inicio
Si (a > b) entonces
a = a – b;
sino
b = b – a;
fsi
Final
Escriba ("el MCD es %d",b);
Final

C3.5) Encontrar el MCM de dos números.
Algo c3.5ccc;
Inicio
Entero a,b,a1,b1;
Escriba ("digite primer número:");
Lea (a);
Escriba ("digite segundo número:");
Lea (b);
a1 = a;
b1 = b;
MQ(a ¡= b)
Inicio
Si (a > b) entonces
b = b + b1;
sino
a = a + a1;
fsi
Final
Escriba ("el MCM es %d",a);
Final


Algo c3.5ccf;
Inicio
Entero a,b,a1,b1;
Escriba ("digite primer número:");
Lea (a);
Escriba ("digite segundo número:");
Lea (b);
a1 = a;
b1 = b;
Haga
Inicio
Si (a > b) entonces
b = b + b1;
sino
a = a + a1;
fsi
Final
MQ(a ¡= b);
Escriba ("el MCM es %d",a);
Final



Algo c3.5cp;
Inicio
Entero a,b,a1,b1;
Escriba ("digite primer número:");
Lea (a);
Escriba ("digite segundo número:");
Lea (b);
a1 = a;
b1 = b;
Para (; a ¡= b ;)
Inicio
Si (a > b) entonces
b = b + b1;
sino
a = a + a1 ;
fsi
Final
Escriba ("el MCM es %d",a);
Final

C4.1) Encontrar los n primeros términos de la serie Fibonacci.

Algo c4.1ccc;
Inicio
Entero n,f0,f1,f2,x;
Escriba ("hasta que # desea la serie Fibonacci");
Lea (n);
F0=0;
F1=1;
X=1;
MQ( x<=n)
Inicio
Escriba ("%d",f0);
F2=f0+f1;
F0=f1;
F1=f2;
X ++;
Final
Final


Algo c41ccf;
Inicio
Entero n,f0,f1,f2,x;
Escriba ("hasta que # desea la serie Fibonacci");
Lea (n);
F0=0; F1=1; X=1;
Haga
Inicio
Escriba ("%d",f0);
F2=f0+f1;
F0=f1;
F1=f2;
X ++;
Final
MQ( x<=n);
Final

Algo c4.1cp;
Inicio
Entero n,f0,f1,f2,x;
Escriba ("hasta que # desea la serie Fibonacci");
Lea (n);
F0=0;
F1=1;
Para (x=1 ; x <= n ; x ++)
Inicio
Escriba ("%d",f0);
F2=f0+f1;
F0=f1;
F1=f2;
Final
Final




C4.2) Encontrar la suma de los n primeros términos de la serie Fibonacci.

Algo c4.2ccc;
Inicio
Entero n,f0,f1,f2,x,acum;
Escriba ("hasta que # desea la serie fibonacci");
Lea (n);
F0=0;
F1=1;
X=1;
Acum=0;
MQ( x<=n)
Inicio
Acum=acum + f0;
F2=f0+f1;
F0=f1;
F1=f2;
X ++;
Final
Escriba ("la suma es %d",acum);
Final

Algo c42ccf;
Inicio
Entero n,f0,f1,f2,x,acum;
Escriba ("hasta que # desea la serie fibonacci");
Lea (n);
F0=0;
F1=1;
X=1;
Acum=0;
Haga
Inicio
Acum=acum + f0;
F2=f0+f1;
F0=f1;
F1=f2;
X ++;
Final
MQ( x<=n);
Escriba ("la suma es %d",acum);
Final



Algo c42cp;
Inicio
Entero n,f0,f1,f2,x,acum;
Escriba ("hasta que # desea la serie fibonacci");
Lea (n);
F0=0;
F1=1;
Acum=0;
Para (x=1 ; x <= n ; x ++)
Inicio
Acum=acum + f0;
F2=f0+f1;
F0=f1;
F1=f2;
Final
Escriba ("la suma es %d",acum);
Final



C83) Encontrar el ultimo término de la serie Fibonacci hay de 1 a n.

Algo c4.3ccc;
Inicio
Entero n,f0,f1,f2,i,cont;
Escriba ("digite limite de la serie fibonacci");
Lea (n);
F0=0;
F1=1;
i=1;
cont=0;
MQ( i<=n)
Inicio
F2=f0+f1;
F0=f1;
F1=f2;
cont ++;
i ++;
Final
Escriba ("desde 1 hasta %d hay %d términos de la serie",n,cont);
Final


Algo c43ccf;
Inicio
Entero n,f0,f1,f2,i,cont;
Escriba ("digite limite de la serie fibonacci");
Lea (n);
F0=0;
F1=1;
i=1;
cont=0;
Haga
Inicio
F2=f0+f1;
F0=f1;
F1=f2;
cont ++;
i ++;
Final
MQ( i<=n);
Escriba ("desde 1 hasta %d hay %d términos de la serie",n,cont);
Final


Algo c4.3cp;
Inicio
Entero n,f0,f1,f2,i,cont;
Escriba ("digite limite de la serie fibonacci");
Lea (n);
F0=0;
F1=1;
cont=0;
Para (i=1 ; i <= n ; i ++)
Inicio
F2=f0+f1;
F0=f1;
F1=f2;
Cont ++;
Final
Escriba ("desde 1 hasta %d hay %d términos de la serie",n,cont);
Final



C5.1) Decir si un número es primo o no.


Algo c5.1ccc;
Inicio
Entero Pri,a,cont;
Escriba ("digite número:");
Lea (a);
Pri=a;
Cont=0;
MQ (pri > 0)
Inicio
Si
(a % pri == 0) entonces
cont ++;
fsi
pri --;
Final
Si
(cont == 2) entonces
Escriba ("el # %d es primo",a);
Sino
Escriba ("el # %d no es primo",a);
fsi
Final


Algo c5.1ccf;
Inicio
Entero pri,a,cont;
Escriba ("digite número:");
Lea (a);
Pri=a;
Cont=0;
Haga
Inicio
Si
(a % pri == 0) entonces
cont ++;
fsi
pri --;
Final
MQ (pri > 0);
Inicio
Si
(cont == 2) entonces
Escriba ("el # %d es primo",a);
Sino
Escriba ("el # %d no es primo",a);
fsi
Final
Final

Algo c5.1cp;
Inicio
Entero pri,a,cont;
Escriba ("digite número:");
Lea (a);
Cont=0;
Para (Pri = a ; pri > 0 ; pri --)
Inicio
Si
(a % pri == 0) entonces
cont ++;
fsi
Final
Si
(cont == 2) entonces
Escriba ("el # %d es primo",a);
Sino
Escriba ("el # %d no es primo",a);
fsi

Final

C5.2) Cuantos número primos hay de 1 a n.


Algo c5.2ccc;
Inicio
Entero p,n,cont,x,acum;
Escriba ("digite hasta que # desea:");
Lea (n);
X=1;
Acum=0;
Cont=0;
P=x;
MQ (p <= 0)
Inicio
MQ(p > 0)
Inicio
Si
(x % p == 0) entonces
cont ++;
fsi
Final
p --;
Si
(cont == 2) entonces
acum ++;
fsi
x ++;
cont=0;
p=x;
Final
Escriba ("en la serie hay %d #s primos",acum);
Final



Algo c5.2ccf;
Inicio
Entero p,n,cont,x,acum;
Escriba ("digite hasta que # desea:");
Lea (n);
X=1;
Acum=0;
Cont=0;
P=x;
Haga
Inicio
Haga
Inicio
Si
(x % p == 0) entonces
cont ++;
fsi
Final
MQ (p > 0);
p--;
Si
(cont == 2) entonces
acum ++;
fsi
x ++;
cont=0;
p=x;
Final
MQ (p <= n);
Escriba ("en la serie hay %d #s primos", acum);
Final





Algo c5.2cp;
Inicio
Entero p,n,cont,x,acum;
Escriba ("digite hasta que # desea:");
Lea (n);
X=1;
Acum=0;
Cont=0;
Para (P = x ; p <= 0 ; p --)
Inicio
Para ( ; p > 0 ; )
Inicio
Si
(x % p == 0) entonces
cont ++;
fsi
Final
p--;
Si
(cont == 2) entonces
acum ++;
fsi
x ++;
cont=0;
p=x;
Final
Escriba ("en la serie hay %d #s primos", acum);
Final



C5.3) Encontrar la suma de los primeros n números primos .


Algo c5.3ccc;
Inicio
Entero p,n,cont,x,acum;
Escriba ("digite hasta que # desea:");
Lea (n);
X=1;
Acum=0;
Cont=0;
P=x;
MQ (p <= n)
Inicio
MQ(p > 0)
Inicio
Si
(x % p == 0) entonces
cont ++;
fsi
Final
p --;
Si
(cont == 2) entonces
acum=acum + x;
fsi
x ++;
cont=0;
p=x;
Final
Escriba ("la suma es %d",acum);
Final


Algo c5.3ccf;
Inicio
Entero p,n,cont,x,acum;
Escriba ("digite hasta que # desea:");
Lea (n);
X=1;
Acum=0;
Cont=0;
P=x;
Haga
Inicio
Haga
Inicio
Si
(x % p == 0) entonces
cont ++;
fsi
Final
MQ (p > 0);
p--;
Si
(cont == 2) entonces
acum=acum + x;
fsi
x ++;
cont=0;
p=x;
Final
MQ (p <= n);
Escriba ("la suma es %d", acum);
Final


Algo c5.3cp;
Inicio
Entero p,n,cont,x,acum;
Escriba ("digite hasta que # desea:");
Lea (n);
X=1;
Acum=0;
Cont=0;
Para (P = x ; p <= n ; p --)
Inicio
Para ( ; p > 0 ; )
Inicio
Si
(x % p == 0) entonces
cont ++;
fsi
Final
p--;
Si
(cont == 2) entonces
acum=acum + x;
fsi
x ++;
cont=0;
p=x;
Final
Escriba ("la suma es %d", acum);
Final


C5.4) Encontrar la suma de los primos que hay de m a n.


Algo c5.4ccc;
Inicio
Entero p,n,cont,x,acum;
Escriba ("digite hasta que # desea:");
Lea (n);
X=1;
Acum=0;
Cont=0;
P=x;
MQ (p <= n)
Inicio
MQ(p > 0)
Inicio
Si
(x % p == 0) entonces
cont ++;
fsi
Final
p --;
Si
(cont == 2) entonces
acum=acum + x;
fsi
x ++;
cont=0;
p=x;
Final
Escriba ("la suma es %d",acum);
Final


Algo c5.4ccf;
Inicio
Entero p,n,cont,x,acum;
Escriba ("digite hasta que # desea:");
Lea (n);
X=1;
Acum=0;
Cont=0;
P=x;
Haga
Inicio
Haga
Inicio
Si
(x % p == 0) entonces
cont ++;
fsi
Final
MQ (p > 0);
p--;
Si
(cont == 2) entonces
acum=acum + x;
fsi
x ++;
cont=0;
p=x;
Final
MQ (p <= n);
Escriba ("la suma es %d", acum);
Final



Algo c5.4cp;
Inicio
Entero p,n,cont,x,acum;
Imprima ("digite hasta que # desea:");
Lea (n);
X=1;
Acum=0;
Cont=0;
Para (P = x ; p <= n ; p --)
Inicio
Para ( p = x ; p > 0 ; )
Inicio
Si
(x % p == 0) entonces
cont ++;
fsi
Final
p--;
Si
(cont == 2) entonces
acum=acum + x;
fsi
x ++;
cont=0;
p=x;
Final
Imprima ("la suma es %d", acum);
Final

C6.2. leer un numero entero e imprimirlo al reves

algo C6.2.ccc;
inicio
entero n, di, re, sv;
Escriba ("Digite número: ");lea (n);
sv=0;
MQ(n > 0)
inicio
di=n/10;
re=n/10;
sv=sv*10+re;
n = di;
final
Escriba ("El número leído invertido es: %d",sv);
final


algo C6.2.ccf;
inicio
entero n, di, re, sv;
Escriba ("Digite número: ");lea (n);
sv=0;
haga
inicio
di=n/10;
re=n/10;
sv=sv*10+re;
n = di;
final
MQ(n > 0);
Escriba ("El número leído invertido es: %d",sv);
final


algo C6.2.cp;
inicio
entero n, di, re, sv;
escriba("Digite número: ");lea (n);
sv=0;
para( ; n > 0 ; )
inicio
di=n/10;
re=n/10;
sv=sv*10+re;
n = di;
final
escriba ("El número leído invertido es: %d",sv);
final










algo C11.ccc;
inicio
entero n, cont, cnt, x, di, re;
imprima("Digite cantidad de números: ");lea (n);
cont=1; cnt=0;
MQ(cont <= n)
x=cont;
si (x > 0) entonces
inicio
di=x/10;
re=x%10;
final
sino
cont ++;
fsi
si (re=3) entonces
inicio
cnt ++;
x=di;
final
fsi
imprima("Hay %d números "3" de 1 a 500",cnt);
final


algo C11.ccf;
inicio
entero n, cont, cnt, x, di, re;
imprima("Digite cantidad de números: ");lea (n);
cont=1; cnt=0;
haga
x=cont;
si (x > 0) entonces
inicio
di=x/10;
re=x%10;
final
sino
cont ++;
fsi
si (re=3) entonces
inicio
cnt ++;
x=di;
final
fsi
MQ(cont <= n);
imprima("Hay %d números "3" de 1 a 500",cnt);
final


algo C11.cp;
inicio
entero n, cont, cnt, x, di, re;
imprima("Digite cantidad de números: ");lea (n);
cnt=0;
Para(cont=1; cont < = n: cont ++)
x=cont;
si (x > 0) entonces
inicio
di=x/10;
re=x%10;
final
fsi
si (re=3) entonces
inicio
cnt ++;
x=di;
final
fsi
imprima("Hay %d números "3" de 1 a 500",cnt);
final

6.3.convertir un numero decimal a binario
algo C6.3ccc;
inicio
entero a,r,b=0, ct=1;
escriba ("Digite número: ");lea (a);
MQ(a > 0)
inicio
r= a %2;
a= a/2;
b = r*ct+b;
ct = ct*10;
final
escriba ("el número %d equivale en binario a: %d",a,b);
final


algo C6.3.ccf;
inicio
entero a, r, b=0, ct=1;
escriba ("Digite número: ");lea (a);
haga
inicio
r= a %2;
a= a/2;
b = r*ct+b;
ct = ct*10;
final
MQ(a > 0)
escriba ("el número %d equivale en binario a: %d",a,b);
final






algo C6.3.cp;
inicio
entero a,r,b=0, ct=1;
escriba ("Digite número: ");lea (a);
Para( ; a > 0 ;)
inicio
r= a %2;
a= a/2;
b = r*ct+b;
ct = ct*10;
final
escriba ("el número %d equivale en binario a: %d",a,b);
final

c6.5. leer una serie de numeros y encontrar

6.5.1. la suma

algo C6.5.1ccc;
inicio
# define EQUIS 4
real n, ss, cont, i, ex, fa, j;
n=10.0; cont=1.0; ss=1.0;
MQ(cont < = n)
inicio
i=1.0; ex=1.0;
MQ (i < = cont)
inicio
ex = ex * EQUIS;
i ++:
final
j=1.0; fa=1.0;
MQ(j < = cont)
inicio
fa = fa*1;
j ++;
final
ss =ss + (ex/fa);
cont ++;
final
escriba ("La suma de la serie es: %f",ss);
final


algo C6.5.1.ccf;
inicio
# define EQUIS 4
real n, ss, cont, i, ex, fa, j;
n=10.0; cont=1.0; ss=1.0;
haga
inicio
i=1.0; ex=1.0;
haga
inicio
ex = ex * EQUIS;
i ++:
final
MQ(i < = cont);
j=1.0; fa=1.0;
haga
inicio
fa= fa*1;
j ++;
final
MQ(j < = cont)
ss = ss + (ex/fa);
cont ++;
final
MQ(cont < = n)
escriba ("La suma de la serie es: %f",ss);
final


algo C6.5.1.cp;
inicio
# define EQUIS 4
real n, ss, cont, i, ex, fa, j;
n=10.0; ss=1.0;
Para( cont=1.0; cont < = n ; cont ++)
inicio
ex=1.0;
Para (i=1.0; i < = cont; i ++)
inicio
ex = ex * EQUIS;
final
fa=1.0;
Para(j=1.0; j < = cont; j ++)
inicio
fa= fa*1;
final
ss= ss + (ex/fa);
final
escriba ("La suma de la serie es: %f",ss);
final







algo C17.ccc;
inicio
entero i, res, lim, b, c;
i=1; res=1; lim=10; b=2;
MQ(i < = lim)
inicio
si (b > 0) entonces
inicio
c = i;
b = b*(-1);
res = res + b;
b ++;
final
fsi
i ++;
final
imprima("La respuesta de la serie es: %d", res);
final



algo C17.ccf;
inicio
entero i, res, lim, b, c;
i=1; res=1; lim=10; b=2;
haga
inicio
si (b > 0) entonces
inicio
b = b*(-1);
res = res + b;
b --;
final
sino
inicio
b= b*(-1);
res = res + b;
b ++;
final
fsi
i ++;
final
imprima("La respuesta de la serie es: %d", res);
final


algo C17.cp;
inicio
entero i, res, lim, b, c;
res=1; lim=10; b=2;
Para(i=1 ; i <= lim; i ++)
inicio
si (b > 0) entonces
inicio
b = b*(-1);
res = res + b;
b --;
final
sino
inicio
b= b*(-1);
res = res + b;
b ++;
final
fsi
final
imprima("La respuesta de la serie es: %d", res);
final

algo C18.ccc;
inicio
# define EQUIS 4
entero fa=3, cont=2,mul, res, i, j, p, facto;
real resul,total;
p=EQUIS; i=2;
MQ(i < = 10)
inicio
res= p * EQUIS;
mul = res;
i +2;
MQ(cont < = n)
inicio
j=1;
MQ (j < = fa)
inicio
facto = j + facto; j ++;
final
cont + 2; fa +2;
resul=res/facto;
si(resul > 0) entonces
inicio
total = total + resul;
resul *(-1);
final
sino
inicio
total = total + resul;
resul * (-1);
final
fsi
final
imprima("El resultado es: %f",total);
final


algo C18.ccf;
inicio
# define EQUIS 4
entero fa=3, cont=2,mul, res, i, j, p, facto;
real resul, total;
p = EQUIS; i=2;
haga
inicio
res= p * EQUIS;
mul = res;
i + 2;
haga
inicio
j=1;
haga
inicio
facto = j + facto;
j ++;
final
MQ(j< = fa);
cont +2; fa +2;
resul=res/facto;
si(resul > 0) entonces
inicio
total = total + resul;
resul *(-1);
final
sino
inicio
total = total + resul;
resul * (-1);
final
fsi
final
MQ (cont < = n);
final
MQ(i < =10);
imprima("El resultado es: %f",total);
final


algo C18.cp;
inicio
# define EQUIS 4
entero fa=3, cont=2,mul, res, i, j, p, facto;
real resul, total;
p = EQUIS;
Para (i=2; i < = 10; i +2)
inicio
res= p * EQUIS;
mul = res;
Para (cont=2; cont < = n; cont +2)
inicio
Para (j=1; j < = fa; j ++)
inicio
facto = j + facto;
final
fa + 2;
resul = res/facto;
si(resul > 0) entonces
inicio
total = total + resul;
resul *(-1);
final
sino
inicio
total = total + resul;
resul * (-1);
final
fsi
final
final
imprima("El resultado es: %f",total);
final

Imagen