5.11.
Ejercicios propuestos
38. Hacer un algoritmo que encuentre la suma de los nmeros impares comprendidos
entre 1 y N.
Inicio
Entero suma=0;
Escribir 'Ingrese N';
Leer N;
Para i<-1 Hasta N Hacer
Si (i mod 2 <> 0) Entonces
suma=suma+i;
Fin Si
Fin Para
Escribir 'La Sumatoria de impares es ',suma;
FinProceso
39. Elaborar un algoritmo que encuentre la desviacin tpica de un grupo de datos
positivos.
Inicio
Real X=0;
Real temp=0;
Real DT=0;
Escribir 'Ingrese 8 enteros positivos';
Escribir 'Ingrese entero 1';
Leer N1;
Escribir 'Ingrese entero 2';
Leer N2;
Escribir 'Ingrese entero 3';
Leer N3;
Escribir 'Ingrese entero 4';
Leer N4;
Escribir 'Ingrese entero 5';
Leer N5;
Escribir 'Ingrese entero 6';
Leer N6;
Escribir 'Ingrese entero 7';
Leer N7;
Escribir 'Ingrese entero 8';
Leer N8;
Si (N1>0)Y(N2>0)Y(N3>0)Y(N4>0)Y(N5>0)Y(N6>0)Y(N7>0)Y(N8>0)Entonces
X=(N1+N2+N3+N4+N5+N6+N7+N8)/8;
temp=(N1-X)*(N1-X)+(N2-X)*(N2-X)+(N3-X)*(N3-X)+(N4-X)*(N4-X)+(N5-
X)*(N5-X)+(N6-X)*(N6-X)+(N7-X)*(N7-X)+(N8-X)*(N8-X);
DT=rc(temp/8);
Escribir 'La desviacin tipica para el grupo de enteros positivos dados es ',DT;
Sino
Escribir 'Existe algun numero menor o igual a cero';
Fin Si
FinProceso
40. Encontrar la raz cuadrada, el cuadrado y el cubo de un grupo de nmeros enteros
positivos.
inicio
Escribir 'Ingrese 5 numeros';
Escribir 'Ingrese numero 1';
Leer N1;
Escribir 'Ingrese numero 2';
Leer N2;
Escribir 'Ingrese numero 3';
Leer N3;
Escribir 'Ingrese numero 4';
Leer N4;
Escribir 'Ingrese numero 5';
Leer N5;
Si (N1>0)Y(N2>0)Y(N3>0)Y(N4>0)Y(N5>0) Entonces
Escribir 'La raiz cuadrada del primer numero ingresado es ',rc(N1),' el
cuadrado es ',N1*N1,' y el cubo es ',N1*N1*N1;
Escribir 'La raiz cuadrada del primer numero ingresado es ',rc(N2),' el
cuadrado es ',N2*N2,' y el cubo es ',N2*N2*N2;
Escribir 'La raiz cuadrada del primer numero ingresado es ',rc(N3),' el
cuadrado es ',N3*N3,' y el cubo es ',N3*N3*N3;
Escribir 'La raiz cuadrada del primer numero ingresado es ',rc(N4),' el
cuadrado es ',N4*N4,' y el cubo es ',N4*N4*N4;
Escribir 'La raiz cuadrada del primer numero ingresado es ',rc(N5),' el
cuadrado es ',N5*N5,' y el cubo es ',N5*N5*N5;
Sino
Escribir 'Existe algun numero menor o igual a cero';
Fin Si
FinProceso
41. Elaborar un algoritmo que encuentre el mayor valor entre un grupo de datos
positivos.
inicio
Escribir 'Ingrese 5 numeros';
Escribir 'Ingrese numero 1';
Leer N1;
Escribir 'Ingrese numero 2';
Leer N2;
Escribir 'Ingrese numero 3';
Leer N3;
Escribir 'Ingrese numero 4';
Leer N4;
Escribir 'Ingrese numero 5';
Leer N5;
Si (N1>0)Y(N2>0)Y(N3>0)Y(N4>0)Y(N5>0) Entonces
Si (N1>N2)Y (N1>N3)Y (N1>N4)Y (N1>N5) Entonces
Escribir 'N1 es el mayor'
Fin Si
Si (N2>N1)Y (N2>N3)Y (N2>N4)Y (N2>N5) Entonces
Escribir 'N2 es el mayor'
Fin Si
Si (N3>N1)Y (N3>N2)Y (N3>N4)Y (N3>N5) Entonces
Escribir 'N3 es el mayor'
Fin Si
Si (N4>N1)Y (N4>N2)Y (N4>N3)Y (N4>N5) Entonces
Escribir 'N4 es el mayor'
Fin Si
Si (N5>N1)Y (N5>N2)Y (N5>N3)Y (N5>N4) Entonces
Escribir 'N5 es el mayor'
Fin Si
Sino
Escribir 'Existe algun numero menor o igual a cero';
Fin Si
FinProceso
42. Hacer un algoritmo que encuentre la suma de los valores mayor y menor entre un
grupo de datos positivos.
Inicio
ENTERO MA=0;
ENTERO ME=0;
ENTERO SUMA=0;
Escribir 'Ingrese 5 numeros';
Escribir 'Ingrese numero 1';
Leer N1;
Escribir 'Ingrese numero 2';
Leer N2;
Escribir 'Ingrese numero 3';
Leer N3;
Escribir 'Ingrese numero 4';
Leer N4;
Escribir 'Ingrese numero 5';
Leer N5;
Si (N1>0)Y(N2>0)Y(N3>0)Y(N4>0)Y(N5>0) Entonces
Si (N1>N2)Y (N1>N3)Y (N1>N4)Y (N1>N5) Entonces
MA=N1;
Fin Si
Si (N2>N1)Y (N2>N3)Y (N2>N4)Y (N2>N5) Entonces
MA=N2;
Fin Si
Si (N3>N1)Y (N3>N2)Y (N3>N4)Y (N3>N5) Entonces
MA=N3;
Fin Si
Si (N4>N1)Y (N4>N2)Y (N4>N3)Y (N4>N5) Entonces
MA=N4;
Fin Si
Si (N5>N1)Y (N5>N2)Y (N5>N3)Y (N5>N4) Entonces
MA=N5;
Fin Si
Fin Si
Si (N1>0)Y(N2>0)Y(N3>0)Y(N4>0)Y(N5>0) Entonces
Si (N1<N2)Y (N1<N3)Y (N1<N4)Y (N1<N5) Entonces
ME=N1;
Fin Si
Si (N2<N1)Y (N2<N3)Y (N2<N4)Y (N2<N5) Entonces
ME=N2;
Fin Si
Si (N3<N1)Y (N3<N2)Y (N3<N4)Y (N3<N5) Entonces
ME=N3;
Fin Si
Si (N4<N1)Y (N4<N2)Y (N4<N3)Y (N4<N5) Entonces
ME=N4;
Fin Si
Si (N5<N1)Y (N5<N2)Y (N5<N3)Y (N5<N4) Entonces
ME=N5;
Fin Si
SUMA=MA+ME;
Escribir 'La suma del mayor y el menor entero positivo es ',SUMA;
Sino
Escribir 'Existe algun numero menor o igual a cero';
Fin Si
FinProceso
43. Hacer un algoritmo que determine la cantidad de tros de valores, entre un conjunto
de ternas que representen tringulos rectngulos.
inicio
Escribir 'Ingrese 3 ternas de valores';
Escribir 'Ingrese valor 1 para terna A';
Leer TA1;
Escribir 'Ingrese valor 2 para terna A';
Leer TA2;
Escribir 'Ingrese valor 3 para terna A';
Leer TA3;
Escribir 'Ingrese valor 1 para terna B';
Leer TB1;
Escribir 'Ingrese valor 2 para terna B';
Leer TB2;
Escribir 'Ingrese valor 3 para terna B';
Leer TB3;
Escribir 'Ingrese valor 1 para terna C';
Leer TC1;
Escribir 'Ingrese valor 2 para terna C';
Leer TC2;
Escribir 'Ingrese valor 3 para terna C';
Leer TC3;
Si (TA1=TA2) Y (TA1=TA3) Entonces
Escribir 'Para la terna A existe un trio con valor de ',TA1;
Sino
Escribir 'No existen trio en la terna A, con valores de, ',TA1,TA2,TA3;
Fin Si
Si (TB1=TB2) Y (TB2=TB3) Entonces
Escribir 'Para la terna B existe un trio con valor de ',TB1;
Sino
Escribir 'No existen trio en la terna B, con valores de, ',TB1,TB2,TB3;
FinSi
Si (TC1=TC2) Y (TC2=TC3) Entonces
Escribir 'Para la terna c existe un trio con valor de ',TC1;
Sino
Escribir 'No existen trio en la terna C, con valores de, ',TC1,TC2,TC3;
Fin Si
FinProceso
44. En cada uno de una serie de registros se encuentran tres valores que posiblemente
representan los tres lados de un tringulo. Hacer un algoritmo que determine cuntos
tringulos equilteros, issceles y escalenos hay.
Inicio
ENTERO EQUI=0;
ENTERO ESCA=0;
ENTERO ISO=0;
Escribir 'Ingrese 3 ternas de registros';
Escribir 'Ingrese valor 1 para terna A';
Leer TA1;
Escribir 'Ingrese valor 2 para terna A';
Leer TA2;
Escribir 'Ingrese valor 3 para terna A';
Leer TA3;
Escribir 'Ingrese valor 1 para terna B';
Leer TB1;
Escribir 'Ingrese valor 2 para terna B';
Leer TB2;
Escribir 'Ingrese valor 3 para terna B';
Leer TB3;
Escribir 'Ingrese valor 1 para terna C';
Leer TC1;
Escribir 'Ingrese valor 2 para terna C';
Leer TC2;
Escribir 'Ingrese valor 3 para terna C';
Leer TC3;
Si (TA1=TA2) Y (TA1=TA3) Entonces
EQUI=EQUI+1;
Fin Si
Si (TB1=TB2) Y (TB1=TB3) Entonces
EQUI=EQUI+1;
Fin Si
Si (TC1=TC2) Y (TC1=TC3) Entonces
EQUI=EQUI+1;
Fin Si
Escribir 'Existen ',EQUI,' equilateros';
Si ((TA1=TA2) Y (TA1<>TA3)) O ((TA1<>TA2) Y (TA1=TA3)) Entonces
ISO=ISO+1;
Fin Si
Si ((TB1=TB2) Y (TB1<>TB3)) O ((TB1<>TB2) Y (TB1=TB3)) Entonces
ISO=ISO+1;
Fin Si
Si ((TC1=TC2) Y (TC1<>TC3)) O ((TC1<>TC2) Y (TC1=TC3)) Entonces
ISO=ISO+1;
Fin Si
Escribir 'Existen ',ISO,' isoceles';
Si (TA1<>TA2) Y (TA1<>TA3) Entonces
ESCA=ESCA+1;
Fin Si
Si (TB1<>TB2) Y (TB1<>TB3) Entonces
ESCA=ESCA+1;
Fin Si
Si (TC1<>TC2) Y (TC1<>TC3) Entonces
ESCA=ESCA+1;
Fin Si
Escribir 'Existen ',ESCA,' equilateros';
FinProceso
45. Hacer un algoritmo que encuentre la cantidad de valores enteros que hay entre un
par de nmeros positivos.
ENTERO SUMA=0;
Escribir 'Ingrese N1';
Leer N1;
Escribir 'Ingrese N2';
Leer N2;
Si (N1>0) Y (N2>0) Entonces
Mientras N1<N2-1 Hacer
SUMA=SUMA+1;
N1=N1+1;
Fin Mientras
Escribir 'Existen ',SUMA,' valores enteros, entre el par dado';
Sino
Escribir 'na';
Fin Si
FinProceso
46. Realizar un algoritmo que escriba la posicin de la cantidad de puntos que estn
ubicados en el primer cuadrante de una circunferencia con centro (0,0).
Inicio
ENTERO X1=0;
ENTERO Y1=0;
Escribir 'Este programa escriba la posicin de la cantidad de puntos ubicada en el primer
cuadrante de un circunferencia con centro (0,0)';
Escribir 'Digite las coordenadas de x1';
Leer X1;
Escribir 'Digite las coordenadas de y1';
Leer Y1;
Si (X1<0) O (Y1<0) Entonces
Escribir 'En el primer cuadrante solo hay puntos mayores o iguales a cero'
Sino
Escribir 'El punto ingresado es el: ','(',X1,',',Y1,')';
FinSi
FinProceso
47. Varias ambulancias recorren la ciudad y cuando se recibe en la CENTRAL una llamada
se informa la ubicacin de la emergencia mediante coordenadas, lo mismo que la
ubicacin de todas las ambulancias.
La central es el punto (0,0) u origen de las coordenadas.
Se sabe que existen N ambulancias en servicio.
Realice un algoritmo que, dada la informacin necesaria, informe las coordenadas de la
ambulancia ms cercana al punto de emergencia.
Inicio
Entero x_emer=0;
Entero y_emer=0;
Entero x_amb=0;
Entero y_amb=0;
Real d=0;
Real d_min=0;
Escribir 'Digite la cantidad de ambulancias';
Leer N;
Escribir 'Digite las coordenadas de emergencia';
Leer x_emer;
Leer y_emer;
//leemos la primera distancia como referencia para el ciclo
Escribir 'Digite las coordenadas de la ambulancia 1: ';
Leer x_amb;
Leer y_amb;
d<-((x_emer - x_amb)^2 + (y_emer - y_amb)^2)^1/2;
d_min<-d;
num_amb<-1;
Escribir 'La ambulancia #1 se encuentra a una distancia de ',d,'m';
Para i<-2 Hasta N Hacer
Escribir 'Digite las coordenadas de la ambulancia ',i,': ';
Leer x_amb;
Leer y_amb;
d<-((x_emer - x_amb)^2 + (y_emer - y_amb)^2)^1/2;
Escribir 'La ambulancia # ',i,' se encuentra a una distancia de ',d,' m';
Si d<=d_min Entonces
num_amb<-i;
d_min<-d;
FinSi
Fin Para
Escribir 'Ambulncia # ',num_amb,' dirijase a ayudar';
FinProceso
48. Dados N valores, disee un algoritmo que haga el siguiente proceso:
Si el valor es menor que cero calcular su cubo.
Si el valor est entre 0 y 100 calcular su cuadrado.
Si el valor est entre 101 y 1000 calcular su raz cuadrada.
Inicio
Entero Cubo=0;
Cuadrado=0;//entero
real Rais=0;
Escribir 'Ingrese el valor de los N valores';
Leer N;
Para i<-1 Hasta N Hacer
Escribir 'Escribe un valor';
Leer val;
Si val<0 Entonces
Cubo=val*val*val;
Escribir 'El cubo es ',Cubo;
Fin Si
Si (val>=0) Y (val<=100) Entonces
Cuadrado=val*val;
Escribir 'El cuadrado es ',Cuadrado;
Fin Si
Si (val>=101) Y (val<=1000) Entonces
Rais=rc(val);
Escribir 'La raiz cuadrada es ',Rais;
Fin Si
Fin Para
FinProceso
49. Elaborar un algoritmo que determine cuntos son los intereses generados en cada
uno de
los N perodos, por un capital de X pesos, que se invierte a una cantidad de P por ciento,
sin retirar intereses.
Inicio
Real AUX=0;
Real int=0;
Escribir 'Ingrese el N para los periodos';
Leer N;
Escribir 'Ingrese el X para el capital';
Leer X;
Escribir 'Ingrese el P para el porciento';
Leer P;
AUX=X*P/100;
int=AUX*N;
Escribir 'Los intereses generados en cada uno de los ',N,' periodos son ',AUX,'
pesos, para un capital de ',X,' pesos al ',P,' porciento genera un total a la fecha de ',int, '
pesos en intereses';
FinProceso
50. Elaborar un algoritmo que encuentre el factorial de los nmeros comprendidos entre
1 y N.
Inicio
entero; x=0;
Escribir "Ingrese un numero para obtener su factorial:"
Leer N
x <- 1
Para i <- N hasta 1 Hacer
Escribir sin saltar i, "*";
x <- x * i
FinPara
Escribir ", El factorial es: ", x;
Finproceso
51. Hacer un algoritmo que entre dos valores A y B y encuentre AB mediante sumas
nicamente.
Inicio
Entero aux=0;
Entero acum=0;
Escribir 'Ingrese de la base A';
Leer A;
Escribir 'Ingrese del exponente B';
Leer B;
aux<-A;
Para i<-1 Hasta B-1 Hacer
Para j<-1 Hasta A Hacer
Acum<-acum+aux;
Fin Para
aux <- acum;
acum <- 0;
FinPara
Escribir A,'^',B,'=',aux;
FinProceso
52. Elaborar un algoritmo que muestre los enteros desde 1 hasta N y sus cuadrados,
calculados
solamente con sumas y utilizando el mtodo propuesto.
Inicio
Nmero Cuadrado Mtodo
1 1 1
2 4 1 + 3
3 9 1 + 3 + 5
4 16 1 + 3 + 5 + 7
5 25 1 + 3 + 5 + 7 + 9
. . .
. . .
. . .
N
cuadrado=0;
Escribir 'Ingrese el valor de N';
Leer N;
cuadrado=1;
Escribir 'Numero ','Cuadrado ','Metodo';
Para i<-1 Hasta N Hacer
cuadrado=cuadrado*i;
Escribir ' ',i,' ',cuadrado,' ',metodo;
Fin Para
FinProceso
LOGARITMOS
CARLOS ANDRES JIMENEZ MONTERROZA
CARLOS ALEXIS SAENS VERTEL
HEYNER DAVID HUMANEZ ALMANZA
Taller de introduccin a la ingeniera
Presentado al licenciado
Jorge Gmez
UNIVERSIDAD DE CORDOBA
FACUTAD DE INGENIERIA
MONTERIA
2014
