5.11. Ejercicios propuestos 38. Hacer un algoritmo que encuentre la suma de los números 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 desviación típica 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)+(N5X)*(N5-X)+(N6-X)*(N6-X)+(N7-X)*(N7-X)+(N8-X)*(N8-X); DT=rc(temp/8); Escribir 'La desviación 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 raíz cuadrada, el cuadrado y el cubo de un grupo de números 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
FinProceso
43. Hacer un algoritmo que determine la cantidad de tríos de valores, entre un conjunto de ternas que representen triángulos rectángulos. 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 triángulo. Hacer un algoritmo que determine cuántos triángulos equiláteros, isósceles 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 números positivos. ENTERO SUMA=0; Escribir 'Ingrese N1'; Leer N1; Escribir 'Ingrese N2'; Leer N2; Si (N1>0) Y (N2>0) Entonces Mientras N1
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 posición de la cantidad de puntos que estén ubicados en el primer cuadrante de una circunferencia con centro (0,0). Inicio ENTERO X1=0; ENTERO Y1=0; Escribir 'Este programa escriba la posición 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 ubicación de la emergencia mediante coordenadas, lo mismo que la ubicación 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 información necesaria, informe las coordenadas de la ambulancia más 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, diseñe 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 raíz 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 cuántos son los intereses generados en cada uno de los N períodos, 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 números 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 método propuesto. Inicio Número Cuadrado Método 111 241+3 391+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,' Fin Para
FinProceso
',cuadrado,'
',metodo;
LOGARITMOS
CARLOS ANDRES JIMENEZ MONTERROZA CARLOS ALEXIS SAENS VERTEL HEYNER DAVID HUMANEZ ALMANZA
Taller de introducción a la ingeniera
Presentado al licenciado Jorge Gómez
UNIVERSIDAD DE CORDOBA FACUÑTAD DE INGENIERIA MONTERIA 2014