EJERCICIOS EN SEUDOCODIGO DE CICLOS, FUNCIONES Y ARREGLOS
 
EJERCICIOS EN SEUDOCODIGO DE CICLOS, FUNCIONES Y ARREGLOS
EJERCICIOS EN SEUDOCODIGO DE SECUENCIALES, DECISION SIMPLE Y MULTIPLE
CONVERSIONES
INFORMATICA 1
PROGRAMACION ORIENTADA A OBJETOS
RESUMEN DEL HOMBRE QUE CALCULABA
TEORIA DE INFORMATICA 1
BIBLIOGRAFIAS
MANUAL DE AYUDA DE DFD
TABLA DE OPERADORES LOGICOS Y A NIVEL DE BITS
EJERCICIOS EN SEUDOCODIGO DE CICLOS, FUNCIONES Y ARREGLOS

ejercicios hechos en seudocodigo de ciclos y funciones
c1.resolver los siguientes problemas de series
c1.1 1+2+3+4+5+6.....
algo c1.1
inicio
entero n,acum,i
escriba ("digite numero:");
lea (n);
acum = 0
i =1
mq (i<=n)
inicio
acum = acum +i
i++
final
escriba ("la respuesta es",acum);
final

c1.1f
inicio
entero suma (entero n)
principal
inicio
entero x,res
escriba ("digite numero:");
lea (x);
res=suma(x)
escriba ("la suma es",res);
final
entero suma (entero n)
inicio
entero i, su;
i = 1
su = 0
mq (i<=x)
inicio
su = su + i
i = i + 1
final
devuelva (su);
final



c1.2 2+4+6+8+10...
algo c1.2
inicio
entero acum,i,cont;
acum=0
i=1
cont=2
escriba ("digite numero:");
lea (n);
mq ( i<=n)
inicio
acum = acum+cont
cont = cont + 2
i = i+1
final
escriba ("la respuesta es",acum);
final

c1.2f
inicio
entero sumatoria (entero n)
principal
inicio
entero x,s,cont;
s=0
cont=2
escriba ("digite numero:");
lea (x);
para (i=1;i<=n;i++)
escriba ("la suma es",s);
final
entero sumatoria (entero n)
inicio
s = s + cont
cont = cont + 2
final
devuelva (s);
final


c1.3 3+6+9+12...
algo c1.3
inicio
entero n,i,cont,acum;
escriba ("digite numero:");
lea (n);
i=1
cont=3
acum =0
mq (i<=n)
inicio
acum=acum+cont
cont = cont+3
i++
final
escriba ("la respuesta es",acum);
final

c1.3f
inicio
entero sumatoria (entero n)
principal
inicio
entero s,cont,n
s = 0
cont = 3
escriba ("digite numero:");
lea (n);
para (i=1; i<=n; i++)
escrba ("la sumatoria es",s);
final
entero sumatoria (entero n)
inicio
s = s + cont
cont = cont + 3
final
devuelva (s);
final

c1.4 (1/1)+(1/2)+(1/3)+(1/4)...
algo c1.4
inicio
entero n,acum,i,den,num
escriba ("digite numero:");
lea (n);
acum = 0
i = 1
den = 1
num = 1
mq (i<=n)
inicio
acum = acum+(num/den)
den = den + 1
i = i+1
final
escriba ("la suma es",acum);
final

c1.4f
inicio
real division (real x)
principal
inicio
entero n,acum,den,num;
acum= 0
den = 1
num = 1
escriba ("digite numero:");
lea (n);
para (i=1; i<=n; i++)
escriba ("la division es",acum);
final
real division (real x)
inicio
acum=acum+(num/den)
den = den+1
final
devuelva (acum);
final

c1.5 5-10+15-20+25-30...
algo c1.5
inicio
entero sum, sig,n,i,cont;
escriba ("digite numero:");
lea (n);
acum=0
sig=1
i=1
cont=5
mq (i<=n)
inicio
acum = acum + (cont*sig)
cont = cont +5
sig = sig *-1
i ++
final
escriba ("la respuesta es",sum);
final

c1.5f
inicio
entero solucion (entero x)
ppal
inicio
entero x,acum,sig,cont;
acum=0
sig =1
cont =5
escriba ("digite numero:");
lea (n);
para (i=1; i<=n; i++)
escriba ("la respuesta es",acum);
final
entero solucion (entero x)
inicio
acum = acum+(cont*sig)
cont = cont+5
sig = sig *-1
final
devuelva (acum);
final

c1.6 1+2+4+7+11+16...
algo c1.6
inicio
entero n,i,sum,cont
escriba ("digite numero:");
lea (n);
sum=0
cont=1
i=1
mq (i<=n)
inicio
sum = sum+cont
cont= cont+i
i++
final
escriba ("la suma es",sum);
final

c1.6f
inicio
entero suma (entero n)
principal
inicio
entero sum,x,cont;
sum=0
cont=1
escriba ("digite numero:");
lea (x);
para (i=1; i<=x;i++)
escriba ("la suma es",sum);
final
entero suma (entero n)
inicio
sum = sum+cont
cont = cont + i
final
devuelva (sum);
final


c1.7 1-(1/2)+(1/4)-(1/7)+(1/11)-(1/16)...
algo c1.7
inicio
entero acum,i,sig,cont;
escriba ("digite numero:");
lea (n);
acum=0
i=1
sig=1
cont=1
mq (i<=n)
inicio
acum = acum+(1/cont*sig)
sig = sig*-1
cont = cont+i
i++
final
escriba ("la suma de la division es",acum);
final

c1.7f
inicio
real division (real a)
principal
inicio
entero n,acum,sig,cont;
acum = 0
sig = 1
cont = 1
escriba ("digite numero:");
lea (n);
para (i=1; i<=n;i++)
escriba ("el resultado es",acum);
final
real division (real a)
inicio
acum = acum+(1/cont*sig)
sig = sig*-1
cont = cont+i
final
devuelva (acum);
final


c1.8 (1/2)+(3/5)+(5/9)+(7/14)+(9/20)...
algo c1.8
inicio
entero acum,i,num,den;
escriba ("digite numero:");
lea (n);
acum =0
i=1
num=1
den=2
mq (i<=n)
inicio
acum= acum+(num/den)
num= num+2
den = den+2+i
i++
final
escriba("la suma de la division es",acum);
final

c1.8f
inicio
real division (real a)
principal
inicio
real acum,i,num,den;
acum =0
i=1
num =1
den =2
escriba ("digite numero:");
lea (n);
mq (i<=n)
inicio
i++
final
escriba ("la sumatoria de la division es", acum);
final
real division (real a)
inicio
acum = acum + (num/den)
num = num + 2
den = den + 2 +i
final
devuelva (acum);
final


c1.9 (3/4)-(6/8)+(10/12)-(15/16)+(21/20)...
algo c 1.9
inicio
entero acum,den,num,n,sig,i;
acum = 0
den = 4
num = 3
sig = 1
i = 1
mq (i<=n)
inicio
acum= acum+(num/den*sig)
num = num+2+i
den = den +4
sig = sig*-1
i++
final
escriba ("la suma de la division es",acum);
final


c1.9f
inicio
real respuesta (real x)
principal
inicio
real acum,num,den,sig,i
acum = 0
den = 4
num = 3
sig = 1
i = 1
escriba ("digite numero:");
lea (n);
mq (i<=n)
i++
escriba (la respuesta de la division es ",acum);
final
real respuesta (real x)
inicio
acum = acum + (num/den*sig)
num = num+2+i
den = den+4
sig = sig *-1
final
devuelva (acum);
final

c1.10 encontrar la suma de las sumatorias de los numeros de 1 a N.
algo c1.10
inicio
entero susumato,i,j,suint,n
escriba ("digite numero:");
lea (n);
susumato = 1
i = 1
mq (i<=n)
inicio
j = 1
suint = 0
mq (j<=i)
inicio
suint = suint +j
j++
final
escriba ("el valor de la suma interna para",i,"=",suint);
susumato = susumato + suint
i++
final
escriba ("el valor de la suma es",susumato);
final


c1.10f
inicio
entero sumatoria (entero x)
principal
inicio
entero susumato,i,j,suint,n;
susumato=1
i=1
escriba ("digite numero:");
lea (n);
mq (i<=n)
inicio
j=1
suint =0
i++
final
escriba ("el valor de la suma es",susumato);
final
entero sumatoria (entero x)
inicio
mq (j<=i)
inicio
suint = suint + j
j = j+1
final
susumato = susumato + suint
final
devuelva (susumato);
final
final


c2 resolver los siguientes problemas propuestos

c2.1 1*2*3*4*5*6...
algo c 2.1
inicio
entero n,mul,i;
escriba ("digite numero:");
lea (n);
mul = 1
i = 1
mq (i<=n)
inicio
mul = mul*i
i = i+1
final
escriba ("la respuesta de los problemas es",mul);
final

c2.1f
inicio
entero multiplicacion (entero n)
principal
inicio
entero mul,i,x
mul =1
escriba ("digite numero:");
lea (x);
para (i=1; i<=x, i+1)
escriba ("la respuesta es",mul);
final
entero multiplicacion (entero n)
inicio
mul = mul*i
final
devuelva (mul);
final

c 2.2 2*4*6*8*10..
algo c2.2
inicio
entero n,i,cont,acum;
escriba ("digite numero:");
lea (n);
i=1
cont=2
acum=1
mq (i<=n)
inicio
acum = acum*cont
cont = cont+2
i++
final
escriba ("la respuesta es", acum);
final

c2.2f
inicio
entero multi(entero n)
ppal
inicio
entero i,cont,acum,x
escriba ("digite numero:");
lea (x);
acum=multi (x)
escriba ("la respuesta es",acum);
final
entero multi (entero n)
inicio
i=1
cont=2
acum = 1
mq (i<=n)
inicio
acum = acum*cont
cont = cont+2
i=i+1
final
devuelva (acum);
final


c2.3 1+(1+2)+(1+2+3)+(1+2+3+4)+...
inicio
entero i,fa,j,sum,x;
escriba ("digite numero:");
lea (x);
i=1
sum =0
mq (i<=x)
inicio
fa =0
j = 1
mq (j<=i)
inicio
fa = fa+j
j = j+1
final
sum = sum+fa
i = i+1
final
escriba ("la suma es",sum);
final

c2.3f
inicio
entero suma (entero n)
principal
inicio
entero i, sum,fa,i;
i=1
sum =0
escriba ("digite numero:");
lea (x);
mq (i<=x)
inicio
fa =0
j=1
i++
final
escriba ("la suma es",sum);
final
entero suma (entero n)
inicio
mq (j<=i)
inicio
fa = fa+j
j = j+1
final
sum = sum + fa
final
devuelva (sum);
final

c2.4
inicio
entero i, mul, x,t,a
escriba ("digite numero:");
lea (x);
i=1
mul= 1
a=1
mq (i<=x)
inicio
mul=mul*a
a=a+i+1
i=it1
final
escriba ("la respuesta de la multiplicacion es",mul);
final

c2.4f
inicio
entero multi (entero n)
principal
inicio
entero x,mul
escriba ("digite numero:");
lea (x);
mul=multi(x)
escriba ("la respuesta de la multiplicacion es",mul);
final
entero multi (entero n)
i=1
mul=1
a=1
mq (i<=x)
inicio
mul= mul*a
a = a+i+1
i = i+1
final
devuelva (mul);
final

c2.5 (1/1!)+(2/2!)+(3/3!)+(4/4!)+...
inicio
entero i,mul,fa,x;
real acum
escriba ("digite numero:");
lea (x);
i=1
acum=0
mq (i<=x)
inicio
fa =1
mul =1
mq (mul<=i)
inicio
fa = fa * mul
mul = mul+1
final
acum =acum+(i/fa)
i = i+1
final
escriba ("la respuesta es ",acum);
final

c2.5f
inicio
real facto (real x)
principal
inicio
real acum
entero n
acum =0
escriba ("digite numero:");
lea (n);
acum = facto (n)
escriba ("la respuesta es ", acum);
final
real facto (real x)
inicio
entero i,fa,mul,n
i=1
mq (i<=n)
inicio
fa=1
mul=1
mq (mul<=i)
inicio
fa = fa*mul
mul = mul+1
final
acum = acum + (i/fa)
i=i+1
final
devuelva (acum);
final

c2.6 (1/1!)+(3/2!)+(6/4!)+(10/7!)...
inicio
real acum;
entero cont1,cont2,num,n,i
escriba ("digite numero");
lea (n);
cont2=1
acum =0
num =1
i=1
mq (i<=n)
inicio
fa = 1
cont1 =1
mq (cont1<=cont2)
inicio
fa= fa*cont1
cont1=cont1+1
final
acum = acum+(num/fa)
num = num+1+i
cont2 = cont2+i
i=i+1
final
escriba(fa,"es la factorial y la division total es",acum);
final

c2.6f
inicio
real sum_facto (real x)
principal
inicio
entero n,fa;
real res
escriba ("digite numero:");
lea (n);
acum = divifacto(n)
escriba (fa,"es la factorial y la division total es",acum);
final
real sum_facto (real x)
inicio
entero cont2,num,acum
cont2=1
acum =0
num =1
i=1
mq (i<=n)
inicio
fa= 1
cont1=1
mq (cont1<=cont2)
inicio
fa= fa*cont1
cont1= cont1+1
final
acum = acum+(num/fa)
num = num+1+i
cont2 = cont2+i
i=i+1
final
devuelva (acum);
final

c3. leer dos numero enteros y encontrar:
c3.1 su producto (M*N) con sumas
inicio
entero m,n,i,sum
escriba ("digite numero:");
lea (m);
escriba ("digite numero:");
lea (n);
i=1
sum =0
mq (i<=n)
inicio
sum= sum+m
i = i+1
final
escriba ("la suma del producto es",sum);
final

c3.1f
inicio
entero pro (entero m,entero n)
principal
inicio
entero m,n,res
escriba ("digite numero:");
lea (x);
escriba ("digite numero:");
lea (y);
res = pro (x,y)
escriba ("la suma del producto es",res);
final
entero pro (entero m, entero n)
inicio
entero i, sum
i=1
sum =0
mq (i<=n)
inicio
sum = sum+m
i =i+1
final
devuelva (sum);
final

c3.3 M a la N (M a la N ) con multiplicacion
inicio
entero m,n,i,mul
escriba ("digite numero:");
lea (m);
escriba ("digite numero:");
lea (n);
i=1
mul =1
mq (i<=n)
inicio
mul = mul*m
i = i+1
final
escriba ("la multiplicacion es",mul);
final


c3.3f
inicio
entero multiplicacion (entero m, entero n)
principal
inicio
entero x,y,mul
escriba ("digite numero:");
lea (x);
escriba ("digite numero:");
lea (y);
mul = multiplicacion (x,y);
escriba ("la multiplicacion es ", mul);
final
entero multiplicacion (entero m, entero n)
inicio
entero i,pro
i=1
pro =1
mq (i<=n)
inicio
pro = pro*m
i = i+1
final
devuelva (pro);
final


c3.4 el MCD (segun teorema de euclides)
inicio
entero a,b
escriba ("digite numero:");
lea (a);
escriba ("digite numero:");
lea (b);
mq (a!=b)
inicio
si (a>b)entonces
a = a-b
sino
b= b-a
fsi
final
escriba (a);
final

c3.4f
inicio
entero mcd (entero a, entero b);
principal
inicio
entero x,y
escriba ("digite numero:");
lea (x);
escriba ("digite numero:");
lea (y);
a= mcd (x,y)
escriba ("la respuesta es ",a)
final
entero mcd (entero a, entero b)
inicio
entero a,b
mq (a!=b)
inicio
si (a>b) entonces
a=a-b
sino
b=b-a
fsi
final
devuelva (a);
final

Algo c3.5;
Inicio
Entero a, b, c, d;
Escriba (“digite dos numeros”);
Lea a;
Lea b;
C= a;
D= b;
Mq (a!=b)
Inicio
Si (a>b) entonces
B= b+d;
Sino
A= a-c;
Fsi
Final
Escriba (“el mcm es”, a);
Final


c3.5f
inicio
entero mcm (entero a, entero b )
principal
inicio
entero x,y,a
escriba ("digite numero");
lea (x);
escriba ("digite numero");
lea (y);
a= mcm(x,y);
escriba ("el mcm es",a);
final
entero mcm (entero a, entero b)
inicio
entero
C= a;
D= b;
Mq (a!=b)
Inicio
Si (a>b) entonces
B= b+d;
Sino
A= a-c;
fsi
devuelva (a);
final
final

Algo c 4.1;
Inicio
Entero f0, f1, f2, i, n;
Escriba (“cuantas sucesiones desea hallar”);
Lea n;
I= 1;
F0= 0;
F1= 1;
Mq (i<=n)
Inicio
Escriba (f0);
F2= f0+f1;
F0= f1;
F1= f2;
I++;
Final
Final

C4.1f
inicio
entero fibonacci (entero x)
principal
inicio
entero n;








Algo c4.2;
Inicio
Entero n, p, m, f0, f1, f2;
Escriba (“digite cuantas sucesiones quiere hallar”);
Lea n;
P= 0;
M= 1;
F0= 0;
F1=1;
Mq (m<=n)
Inicio
P= p+f0;
F2= f0+f1;
F0= f1;
F1= f2;
M= m+1;
Final
Escriba (“la suma de los”, n, “numeros es”, p);
Final



Algo c4.3;
Inicio
Entero n, i, f0, f1, f2;
Escriba (“digite cuantos numero quiere”);
Lea n;
I= 1;
F0= 0;
F1= 1;
Mq (i<=n)
Inicio
F2= f0+f1;
F0= f1;
F1= f2;
I++;
Final
Escriba (“el ultimo numero de “,n, “es”, f0);
Final




c 5.1 Decir si un numero es primo o no.

algo c5.1
inicio
entero x, p, cont
escriba ("digite numero:");
lea (x);
p=x
cont=0
mq (p>0)
inicio
si (x % p ==0) entonces
cont= cont+1
fsi
p--
final
si (cont<=2) entonces
x," es primo"
sino
x," no es primo"
final


C5.1f
incio
real primo (real x)
principal
inicio
real n,res
res = 0
escriba ("digite numero:");
lea (n);
res= primo(n)
si (res<=2) entonces
escriba (x,"es primo");
sino
escriba (x,"no es primo");
fsi
final
real primo (real x)
inicio
entero i,res;
para (i=1;i<=x;i++)
inicio
si (x mod i =0 ) entonces
res = res + 1
fsi
devuelva (res)
final

algo c5.2
inicio
entero n,np, cnp,p,i
escriba ("digite numero:");
lea (n);
cnp = 0
para (i=1; i<=n; i+1)
inicio
p=i
np =0
mq (p>0)
inicio
si (i mod p =0) entonces
np = np+1
fsi
p--
final
si (np =2) entonces
cnp= cnp+1
fsi
escriba ("la cantidad de numeros primos de 1 a N es", cnp)
final


C5.2f
incio
entero primos (entero n)
principal
inicio
entero n,res
escriba ("digite numero:");
lea (n);
res= primos(n)
final
entero primos(entero n)
inicio
cnp = 0
para (i=1; i<=n; i+1)
inicio
p=i
np =0
mq (p>0)
inicio
si (i mod p =0) entonces
np = np+1
fsi
p--
final
si (np =2) entonces
cnp= cnp+1
fsi
final
regrese


c5.3

algo c5.3
inicio
entero np,i,p,sum,n
escriba ("digite numero:");
lea (n);
np = 0
sum = 0
para (i=1; i<=n; i+1)
inicio
p=i
np =0
mq (p>0)
inicio
si (i mod p =0) entonces
np = np+1
fsi
p--
final
si (np =2) entonces
sum= sum+i
fsi
final
escriba ("la suma de los numeros primos es", sum);
final


c5.3f
incio
entero sumatoria (entero n)
principal
inicio
entero n,res
escriba ("digite numero:");
lea (n);
res= sumatoria(n)
final
entero sumatoria(entero n)
inicio
np = 0
sum=0
para (i=1; i<=n; i+1)
inicio
p=i
np =0
mq (p>0)
inicio
si (i mod p =0) entonces
np = np+1
fsi
p--
final
si (np =2) entonces
sum= sum+i
fsi
final
regrese


Algo c5.4;
Inicio
Entero m, n, np, p, i;
Escriba (“digite principio de la serie”);
Lea m;
Escriba (“digite final de la serie”);
Lea n;
S=0;
I= m;
Mq (i<=n)
Inicio
Np= 0;
P= i;
Mq (p>0)
Inicio
Si (i mod p=0) entonces
Np= np+1;
Fsi
P= p-1;
Final
Escriba (“la suma de los primeros numeros primos entre”, m, “y”,
N, “es”, s);
Final
Algo c6.1;
Inicio
Entero n, c, i, t, d, p, r;
Escriba (“cuantas sumas desea”);
Lea n;
C=0;
I=1;
Mq (i<=n)
Inicio
P=i;
T=0;
Mq (p>0)
Inicio
D= trunc (p/10);
R= p mod 10;
Si (r=3) entonces
T= t+1;
Fsi
P=d;
Final
C= c+t;
I++;
Final
Escriba (“de uno a”, n, “hay”, c, “numeros tres”);
Final


Algo c6.2;
Inicio
Entero n, numrev, d, r;
Escriba (“digite numero”);
Lea n;
Numrev= 0;
Mq (n>0)
Inicio
D= trunc (n/10);
R= n mod 10;
Numrev= ((num*10) +numrev);
N=d;
Final
Escriba (“el numero al reves es”, numrev);
Final


Algo c6.3;
Inicio
Entero num, vacío;
Escriba (“digite que numero desea convertir”);
Lea num;
Num= trunc (num);
Vacío= “ “;
Si (num>0) entonces
Mq (num>0)
Inicio
Si (num mod 2=0) entonces
Vacio= “0”+vacio;
Sino
Vacio= “1”+vacio;
Fsi
Num= trunc (num/2);
Final
Escriba (“el numero binario es”, vacio);
Sino
Si (num=0) entonces
Escriba (“0”);
Sino
Escriba (“no se convierten numeros negativos”);
Final


Algo c6.4;
Inicio
Entero n, p, s;
Escriba (“digite numero”);
Lea n;
S=0;
P= n/2;
Mq (p>0)
Inicio
Si (n mod p=0) entonces
S= s+p;
Fsi
P= p-1;
Final
Si (n=s) entonces
Escriba(n, “es un numero perfecto”);
Sino
Escriba (n, “no es un número perfecto”);
Fsi
Final


Algo c6.5.1;
Inicio
Entero sum=0, opc, num;
Mq (opc!=0)
Inicio
Escriba (“digite numero”);
Lea num;
Sum= sum+num;
Escriba (“desea salir”);
Lea opc;
Final
Escriba (“la suma es”, sum9;
Final


Algo c6.5.2;
Inicio
Entero i, s, res, n;
I= 0;
S= 0;
Res= 1;
Mq (res=1)
Inicio
Escriba (“digite un numero”);
Lea n;
S= s+n;
I++;
Escriba (“desea otro numero 1=si, 2=no”);
Lea res;
Final
S= s/i;
Escriba (“el promedio es”, s);
Final


Algo c6.5.3;
Inicio
Entero res, ma, n;
Res= 1;
Ma= 0;
Mq (res=1)
Inicio
Escriba (“digite numero”);
Lea n;
Si (n>ma) entonces
Ma=n;
Fsi
Escriba (“desea otro numero 1=si, 2=no”);
Lea res;
Final
Escriba (“el numero mayor es”, ma);
Final


Algo c6.5.4;
Inicio
Entero res, n, me;
Res=1;
Mq (res=1)
Inicio
Escriba (“digite numero”),
Lea n;
Me=n;
Si (n<me) entonces
Me= n;
Fsi
Escriba (“desea continuar 1=si, 2=no”);
Lea res;
Final
Escriba (“el numero menor es”, me);
Final


Algo c65.5;
Inicio
Entero res, c, n;
Res=1;
C=0;
Mq (res=1)
Inicio
Escriba (“digite numero”);
Lea n;
Si (n mod 2=0) entonces
C=c+1;
Fsi
Escriba (“desea continuar 1=si, 2=no”);
Lea res;
Final
Escriba (“hay”, c, “numeros pares”);
Final


Algo c6.5.6;
Inicio
Entero res, c, n;
Res=1;
C=0;
Mq (res=1)
Inicio
Escriba (“digite numero “);
Lea n;
Si (n mod 2!=0) entonces
C= c+1;
Fsi
Escriba (“desea continuar 1=si, 2=no”);
Lea res;
Final
Escriba (“hay”, c, “numeros impares”);
Final


Algo c6.5.7;
Inicio
Entero res, s, n;
Res=1;
S=0;
Mq (res=1)
Inicio
Escriba (“digite un numero”);
Lea n;
Si (n mod 2=0) entonces
S= s+n;
Fsi
Escriba (“desea continuar 1=si, 2=no”);
Lea res;
Final
Escriba (“la suma de los numeros pares es”, s);
Final


Algo c6.5.8;
Inicio
Entero res, s, n;
Res=1;
S=0;
Mq (res=1)
Inicio
Escriba (“digite un numero”);
Lea n;
Si (n mod 2!=0) entonces
S=s+n;
Fsi
Escriba (“desea continuar 1=si, 2=no);
Lea res;
Final
Escriba (“la suma de los numeros impares es”, s);
Final


Algo c6.5.9;
Inicio
Entero res, c, n;
Res=1;
C=0;
Mq (res=1)
Inicio
Escriba (“digite numero”);
Lea n;
Si (n<0) entonces
C= c+1;
Fsi
Escriba (“desea continuar 1=si, 2=no”);
Lea res;
Final
Escriba (“hay”, c, “numeros negativos”);
Final


Algo c6.5.10;
Inicio
Entero res, c, n;
Res=1;
C=0;
Mq (res=1)
Inicio
Escriba (“digite un numero”);
Lea n;
Si (n>0) entonces
C=c+1;
Fsi
Escriba (“desea continuar 1=si, 2=no);
Final
Escriba (“hay”, c, “numeros positivos”);
Final


Algo c6.5.11;
Inicio
Entero res, c, n, p, cont;
Res=1;
C=0;
Mq (res=1)
Inicio
Escriba (“digite un numero”);
Lea n;
P=n;
Cont=0;
Mq (p>0)
Inicio
Si (n mod p=0) entonces
Cont= cont+1;
Fsi
P--;
Final
Si (cont=2) entonces
C= c+1;
Fsi
Escriba (“desea continuar 1=si, 0=no”);
Final
Escriba (“hay”, c, “numeros primos”);
Final


Algo c6.5.12;
Inicio
Entero res, pe, n, x, s;
Res=1;
Pe=0;
Mq (res=1)
Inicio
Escriba (“digite un numero”);
Lea n;
X= n/2;
S=0;
Mq (x>0)
Inicio
Si (n mod x=0) entonces
S= s+x;
Fsi
X=x+1;
Final
Si (n=s) entonces
Pe=pe+1;
Fsi
Escriba (“desea continuar 1=si, 0=no”);
Lea res;
Final
Escriba (“hay”, pe, “numeros perfectos”);
Final


Algo c6.5.13;
Inicio
Entero res, s, sumimp, n;
Res=1;
S=0;
Sumimp=0;
Mq (res=1)
Inicio
Escriba (“digite un numero”);
Lea n;
Si (n mod 2=0) entonces
S=s+n;
Sino
Sumimp0 sumimp+n;
Fsi
Escriba (“desea continuar 1=si, 0=no”);
Lea res;
Final
Si (s>sumimp) entonces
Escriba (“la suma de los impares es igual
A la de los pares”);
Sino
Escriba (“la suma de los impares es mayor a la de los
Pares”);
Fsi
Final


Algo c6.5.14;
Inicio
Entero res, s, n;
Res=1;
S=0;
Mq (res=1)
Inicio
Escriba (“digite un numero”),
Lea n;
Si (n mod 3=0) entonces
S= s+n;
Fsi
Escriba (“quiere continuar 1=si, 0=no”);
Lea res;
Final
Escriba (“la suma de los numeros tres es”, s);
Final


Algo c7.1;
Inicio
Cons x=4;
Cons n = 10;
Entero j, i;
Real expo, fa, ss;
J =1;
Ss =1;
Mq (j < n)
Inicio
Fa=1;
Expo =1;
I =1;
Mq (i<= j)
Inicio
Fa = fa * i;
Expo = expo * x;
I++;
Final
Ss = ss + (expo / fa);
J++;
Final
Escriba (ss);
Final


Algo c7.2;
Inicio
Cons m=4;
Real acum.=0;
Entero x=1, y, z=0, mod=1,
Escriba (“cuantas sumas”);
Lea y;
Mq (z < y)
Inicio
Acum.acum.+(m/x * mod);
X+2;
Z++;
Mod*-1;
Final
Escriba (acum.);
Final


Algo c7. 3;
Inicio
Entero x, n, r, c, y, po, k, fac, i, re;
Escriba (“digite numero”);
Lea x;
Escriba (“cuantas sumas”);
Lea n;
R=0;
C=2;
Y=1;
Para (i =1; i< =n; i++)
Inicio
Pc=1;
Fac=1;
Para (j=1; j< =y; j++)
Inicio
Po=po*x;
Final
Para (k=1; k< =y; k++)
Inicio
Fac = fac * k;
Final
Si (i mod 2= 0) entonces
Re = re – (po / fac);
Sino
Re = re + (po / fac);
Fsi
Y = y + c;
Final
Escriba (“el seno de”, x,” es”, re);
Final


Algo c7.4;
Inicio
Entero x, n, re, y, i, po, fac, k;
Escriba (“digite numeros”);
Lea x;
Escriba (“cuantas sumas”);
Lea n;
Re =1;
Y= 2;
Para (i =1; i< = n; i++)
Inicio
Po =1;
Fac =1;
Para (j =1; j< =y; j++)
Inicio
Po = po * x;
Final
Para (k =1; k< = y; k++);
Inicio
Fac = fac * k;
Final
Si (i mod 2 =0) entonces
Re =re – (po /fac);
Sino
Re = re + (po/ fac);
Fsi
Y =y + 2
Final
Escriba (“el coseno de”, x, “es”, re);
Final


c6.4
algo c6.4
inicio
entero p,n,cperfect
escriba ("digite numero");
lea (n);
p = n/2
cperfect
mq (p>0)
inicio
si (n mod p=0)entonces
cperfect= cperfect+p
fsi
p--
final
Si (cperfect=n)entonces
escriba (cperfect,"es numero perfecto" );
sino
escriba (cperfect,"no es numero perfecto");
fsi
final


c6.4f
inicio
entero perfectos (entero n)
ppal
inicio
entero n,res
escriba ("digite numero");
lea (n);
res = perfectos (n)
final
entero perfectos (entero n)
inicio
entero p,cperfect
p = n/2
cperfect
mq (p>0)
inicio
si (n mod p=0)entonces
cperfect= cperfect+p
fsi
p--
final
Si (cperfect=n)entonces
escriba (cperfect,"es numero perfecto" );
sino
escriba (cperfect,"no es numero perfecto");
fsi
final

c 6.5 leer una serie de numeros y encontrar:
c6.5.1 la suma

algo c6.5.1
inicio
real num, sum;
caracter res
res=1
sum=0
mq (res!=0)
inicio
escriba ("digite numero:");
lea (num);
sum = sum + num
escriba ("digite 1 para leer otro numero y 0 para salir");
lea (res);
final
escriba ("la suma es"sum);
final

c6.5.1f
inicio
real suma (real x)
ppal
inicio
real x, sum
sum = suma (x)
escriba ("la suma es"sum);
final
real suma (real x)
inicio
real num, sum;
caracter res;
res =1
sum =0
mq (res!=0)
inicio
escriba ("digite numero");
lea (num);
sum = sum + num
escriba ("digite 1 para leer otro numero y 0 para salir");
lea (res);
final
devuelva sum


c5.4
inicio
entero n,m,sum,primo,i;
escriba ("digite numero:");
lea (m);
escriba ("hasta que numero desea:");
lea (n);
primo = 0;
sum = 0;
mq (m<=n)
inicio
para (i=1; i<=m; i++)
inicio
si (m mod i=0) entonces
primo = primo + 1
fsi
final
si primo =2 entonces
sum = sum + m
fsi
m = m+1
final
escriba ("la suma es", sum);
final

ALGORITMOS DE ARREGLOS
A1.1 Imprimir los elementos
inicio
const dim=10
nulo generar (entero a[dim]);
nulo mostrar (entero a[dim]);
principal
inicio
entero vect[dim];
generar (vect);
mostrar (vect);
final
nulo generar (entero a[dim])
inicio
entero i;
para (i=0;i<dim;i++)
inicio
escriba ("digite numero");
lea (a[i]);
final
final
nulo mostrar (entero a[dim])
inicio
entero i;
para (i=0;i<dim;i++)
inicio
escriba ("elemento #",i,"=",a[i]);
final
final
final

A1.2 Encontrar la suma de todos los elementos.
inicio
const dim=10
nulo crear (entero a[dim]);
nulo mostrar (entero a[dim]);
entero suma (entero a[dim]);
principal
inicio
entero x[dim],sum;
crear (x);
mostrar (x);
sum = suma (x);
escriba ("la suma de los elementos es",sum);
final
nulo crear (entero a[dim])
inicio
entero i;
para (i=0;i<dim;i++)
inicio
escriba ("digite numero");
lea (a[i]);
final
final
nulo mostrar (entero a[dim])
inicio
entero i;
para (i=0;i<dim;i++)
inicio
escriba ("elemento #",i,"=",a[i]);
final
final
entero suma (entero a[dim])
inicio
entero i,su;
su =0
para (i=0;i<dim;i++)
inicio
su= su+a(i)
final
devuelva (su);
final
final


A1.4 Encontrar cuantos numeros pares hay.
inicio
const dim=10
nulo generar (entero a[dim]);
nulo mostrar (entero a[dim]);
entero pares (entero a[dim]);
principal
inicio
entero x [dim],par;
generar (x)
mostrar (x)
par= pares (x);
escriba ('hay',par,'pares');
final
nulo generar (entero a[dim]);
inicio
entero i
para (i=0;i<dim;i++)
inicio
escriba('digite numero')
lea (a(i));
final
final
nulo mostrar (entero a[dim])
inicio
entero i
para (i=0;i<dim;i++)
inicio
escriba ('termino #',i,'=',a[i]);
final
final
entero pares (entero a[dim])
inicio
entero i, cantpar
cantpar =0
para (i=0;i<dim;i++)
inicio
si (a[i]mod 2==0) entonces
cantpar= cantpar+1
fsi
final
devuelva (cantpar)
final
final

A1.5 Encontrar cuantos impares hay
inicio
const dim=10
nulo generar (entero a[dim]);
nulo mostrar (entero a[dim]);
entero impares (entero a[dim]);
principal
inicio
entero x[dim],cant_impar;
generar (x);
mostrar (x);
cant=impares (x);
escriba ("hay",cant,'impares');
final
nulo generar (entero a[dim])
inicio
entero i
para (i=0;i<dim;i++)
inicio
escriba ("digite numero");
lea (a[i]);
final
final
nulo mostrar (entero a[dim])
inicio
entero i
para (i=0;i<dim;i++)
inicio
escriba ("termino #",i,"=",a[i]);
final
final
entero impares (entero a[dim])
inicio
entero i,cant_impar;
cant_impar=0
para (i=0;i<dim;i++)
inicio
si (a[i] mod 2!==0 ) entonces
cant_impar=cant_impar+1
fsi
final
devuelva (cantid);
final
final


A1.6 Encontrar cuantos negativos hay
inicio
const dim=10
nulo crear (entero a[dim]);
nulo visual (entero a[dim]);
entero negativos (entero a[dim]);
principal
inicio
entero x[dim],canti;
crear (x);
visual (x);
canti= negativos(x);
escriba ("la cantidad de numeros negativos es",canti);
final
nulo crear (entero a[dim])
inicio
entero i
para (i=0;i<dim;i++)
inicio
escriba ("digite numero");
lea (a[i]);
final
final
nulo visual (entero a[dim])
inicio
entero i,cneg;
cneg=0
para (i=0;i<dim;i++)
inicio
si (a[i]<0) entonces
cneg = cneg+1
fsi
final
devuelva (cneg);
final
final

A1.7 Encontrar cuantos numeros positivos hay
inicio
cons dim =10
nulo crear (entero a[dim]);
nulo mostrar (entero a[dim]);
entero positivos(entero a[dim]);
principal
inicio
entero x[dim],canti;
crear (x);
mostrar(x);
canti= positivos (x);
escriba ("la cantidad de numeros positivos es", canti);
final
nulo crear (entero a[dim])
inicio
entero i
para (i=0;i<dim;i++)
inicio
escriba ("digite numero");
lea (a[i]);
final
final
nulo mostrar (entero a[dim])
inicio
entero i
para (i=0;i<dim;i++)
inicio
escriba ("elemento #",i,"=",a[dim]);
final
final
entero positivos (entero a[dim])
inicio
entero i,cnp
cnp=0
para (i=0;i<dim;i++)
inicio
si (a[i]>0) entonces
cnp = cnp+1
fsi
final
devuelva (cnp);
final
final

A1.8 Encontrar la suma de los numeros que esten entre 50 y 100 y ademas que sean pares.
inicio
const dim= 10
nulo generar (entero a[dim]);
nulo visual (entero a[dim]);
entero suma (entero a[dim]);
principal
inicio
entero x[dim],sum;
generar(x);
visual (x);
sum = suma (x);
escriba ("la suma de los numeros que estan entre 50 y 100 es", sum);
final
nulo generar (entero a[dim])
inicio
entero i;
para (i=0;i<dim;i++)
inicio
escriba ("digite numero");
lea (a[i]);
final
final
nulo visual (entero a[dim])
inicio
entero i;
para (i=0;i<dim;i++)
inicio
escriba ("elemento #",i,"=",a[i]);
final
final
entero suma (entero a[dim])
inicio
entero i,su
su =0
para (i=0;i<dim;i++)
inicio
si (a(i)>=50 && a(i)<=100) entonces
su = su + a(i)
si (a(i) mod 2==0) entonces
escriba ("es par",a(i));
fsi
fsi
final
devuelva (su);
final
final

A1.9 Encontrar el promedio de los numeros que esten entre 100 y 200 y ademas que sean impares
inicio
const dim =10
nulo crear (entero a[dim]);
nulo visual (entero a[dim]);
entero promedio (entero a[dim]);
principal
inicio
entero x[dim],pro;
crear (x);
visual (x);
pro = promedio (x);
escriba ("el promedio de los numeros que estan entre 100 y 200 es",pro);
final
nulo crear (entero a[dim])
inicio
entero i;
para (i=0;i<dim;i++)
inicio
escriba ("digite numero",);
lea (a[i]);
final
final
nulo visual (entero a[dim])
inicio
entero i;
para (i=0;i<dim;i++)
inicio
escriba ("elemento #",i,"=",a[i]);
final
final
entero promedio (entero a[dim])
inicio
entero i,su,cn;
su =0
cn =0
para (i=0;i<dim;i++)
inicio
si (a[i]>=100 and a[i]<=200 )entonces
inicio
su = su+a[i]
cn = cn+1
pr = su/cn
final
si (a[i] mod 2!==0) entonces
escriba ("es impar",a[i]);
fsi
fsi
final
devuelva (pr);
final
final

A1.10 Encontrar el mayor de ellos
inicio
const max=10
nulo generar (entero x[max]);
nulo imprimir (entero x[max]);
entero mayor (entero x[max]);
principal
inicio
entero arr[max],may;
generar (arr);
imprimir (arr);
may = mayor (arr)
escriba ("el mayor es", may);
final
nulo generar (entero x[max])
inicio
entero i;
para (i=0;i<max;i++)
inicio
escriba ("digite numero");
lea (x[i]);
final
final
nulo imprimir (entero x[max])
inicio
entero i;
para (i=0;i<max;i++)
inicio
escriba ("elemento #",i,"=",x[i]);
final
final
entero mayor (entero x[max])
inicio
entero i,ma;
ma = x[0]
para (i=0;i<max;i++)
inicio
si (x[i]>ma) entonces
ma = x[i]
fsi
final
devuelva (ma);
final
final

A1.12 Encontrar el menor de ellos
inicio
const max=10
nulo generar (entero x[max]);
nulo imprimir (entero x[max]);
entero mayor (entero x[max]);
principal
inicio
entero arr[max],may;
generar (arr);
imprimir (arr);
men = menor (arr)
escriba ("el menor es", men);
final
nulo generar (entero x[max])
inicio
entero i;
para (i=0;i<max;i++)
inicio
escriba ("digite numero");
lea (x[i]);
final
final
nulo imprimir (entero x[max])
inicio
entero i;
para (i=0;i<max;i++)
inicio
escriba ("elemento #",i,"=",x[i]);
final
final
entero mayor (entero x[max])
inicio
entero i,me;
me = x[0]
para (i=0;i<max;i++)
inicio
si (x[i]<me) entonces
me = x[i]
fsi
final
devuelva (me);
final
final

A1.13 Encontrar cuantos primos hay.
inicio
const max=10
nulo generar (entero x[max]);
nulo imprimir (entero x[max]);
entero primos (entero x[max]);
principal
inicio
entero a[max],prim;
generar (a);
imprimir (a);
prim = primos (a);
escriba ("la cantidad de numeros primos es";prim);
final
nulo generar (entero x[max])
inicio
entero i;
para (i=0;i<max;i++)
inicio
escriba("digite numero");
lea (x(i));
final
final
nulo imprimir (entero x[max])
inicio
entero i;
para (i=0;i<max;i++)
inicio
escriba ("elemento #",i,"=",x(i));
final
final
entero primos (entero x[max])
incio i,cp,cont,p;
cp=0
para (i=0;i<max;i++)
inicio
p = x(i)
cont =0
mq (p>0)
inicio
si (x(i) mod p==0) entonces
cont = cont+1
fsi
p--
final
si (cont ==2) entonces
cp = cp+1
fsi
final
devuelva (cp);
final
final



A1.15 Encontrar cuantos numeros"siete" hay
inicio
const dim=10
nulo generar (entero x[dim]);
nulo visual (entero x[dim]);
entero siete (entero x[dim]);
principal
inicio
entero a[dim],cant;
generar (a);
visual (a);
cant=siete (a);
escriba ("la cantidad de numeros siete es",cant);
final
nulo generar (entero x[dim])
inicio
entero i;
para (i=0;i<dim;i++)
inicio
escriba ("digite numero");
lea (x(i));
final
nulo visual (entero x[dim])
inicio
entero i;
para (i=0;i<dim;i++)
escriba ("elemento #",i,"=',x(i))
final
entero siete (entero x[dim])
inicio
entero i, cns;
cns=0
para (i=0;i<dim;i++)
inicio
si (x(i) mod 7==0) entonces
cns = cns+1
fsi
final
devuelva (cns);
final
final


A1.16 Encontrar si la suma de los pares es mayor que la de los impares o viceversa.
inicio
const dim= 10
nulo generar (entero a[dim]);
nulo mostrar (entero a[dim]);
entero mayor (entero a[dim]);
principal
inicio
entero x[dim],may;
generar (x);
mostrar (x);
may = mayor (x);
escriba ("el mayor es",may);
final
nulo generar (entero a[dim])
inicio
entero i;
para (i=0;i<dim;i++)
inicio
escriba ("digite numero");
lea (a(i));
final
final
nulo mostrar (entero a[dim])
inicio
entero i;
para (i=0;i<dim;i++)
inicio
escriba ("elemento #"i,"=",a(i));
final
final
entero mayor (entero a[dim])
inicio
entero i,may,sumpar,sumimpar;
sumpar=0
sumimpar=0
para (i=0;i<dim;i++)
inicio
si (x(i) mod 2=0) entonces
sumpar=sumpar+x(i)
sino
sumimpar=sumimpar+x(i)
fsi
si (sumpar<sumimpar)entonces
may = sumpar
sino
may = sumimpar
fsi
final
devuelva (may);
final
final

A3.1