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 Mⁿ 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 Mⁿ 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

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

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

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

imprima("El resultado es: %f",total);

final

CICLOS

PAGINA ANTERIOR LISTA DE TALLERES