16
Primer Año / Re: Introduccion a la Programacion - PSeInt y los ejercicios!
« on: April 17, 2020, 10:39:55 am »
Ejercicio 26
Link de descarga
Para llenar: Recorrer todo un arreglo de 15 elementos numéricos reales y completar sus elementos con un nro. al azar
^ Arriba ^
Ejercicio 27
Link de descarga
Para leer: Recorrer todo un arreglo de 15 elementos numéricos reales y completar sus elementos con un nro. ingresado por teclado
^ Arriba ^
Ejercicio 28
Link de descarga
Ingresar por teclado 10 elementos enteros, colocarlos en un vector y luego mostrar su contenido separado por comas.
^ Arriba ^
Ejercicio 29
Link de descarga
Calcular el promedio de 5 números ingresados por teclado. Utilizar un vector. Primero leer los cinco números, luego recorrerlo para calcular el promedio
^ Arriba ^
Ejercicio 30
Link de descarga
Comparar 2 vectores con 10 elementos enteros ya ordenados en forma ascendente y generar un tercer vector también ordenado.
(para probarlo en Pseint ver indicación en presentación clase 5)
^ Arriba ^
Link de descarga
Para llenar: Recorrer todo un arreglo de 15 elementos numéricos reales y completar sus elementos con un nro. al azar
Code: PSeInt [Installed Languages]
//26 Para llenar: Recorrer todo un arreglo de 15 elementos numéricos reales y completar sus elementos con un nro. al azar
Algoritmo sin_titulo
Dimension array(15);
Definir n como ENTERO;
n = 0;
Escribir "Mostrar todos los valores de los indices de un array";
Mientras n < 15 Hacer
array(n) = AZAR(128);
n = n + 1;
FinMientras
n = 0;
Mientras n < 15 Hacer
Escribir "Indice [",n,"] = ",array(n);
n = n + 1;
FinMientras
FinAlgoritmo
^ Arriba ^
Ejercicio 27
Link de descarga
Para leer: Recorrer todo un arreglo de 15 elementos numéricos reales y completar sus elementos con un nro. ingresado por teclado
Code: PSeInt [Installed Languages]
//27 Para leer: Recorrer todo un arreglo de 15 elementos numéricos reales y completar sus elementos con un nro. ingresado por teclado
Algoritmo e27
Escribir "Insertar numeros en un array de 15 indices.";
Dimension array(15);
Definir n como ENTERO;
n = 0;
Mientras n < 15 Hacer
Leer array(n);
n = n + 1;
FinMientras
FinAlgoritmo
^ Arriba ^
Ejercicio 28
Link de descarga
Ingresar por teclado 10 elementos enteros, colocarlos en un vector y luego mostrar su contenido separado por comas.
Code: PSeInt [Installed Languages]
//28 Ingresar por teclado 10 elementos enteros, colocarlos en un vector y luego mostrar su contenido separado por comas.
Algoritmo e28
Escribir "Insertar numeros en un array de 10 indices.";
Dimension array(10);
Definir n como ENTERO;
n = 0;
Mientras n < 10 Hacer
Leer array(n);
n = n + 1;
FinMientras
Escribir "";
Escribir "Valores del array:";
n = 0;
Mientras n < 10 Hacer
Escribir array(n),", " SINSALTAR;
n = n + 1;
FinMientras
Escribir "";
FinAlgoritmo
^ Arriba ^
Ejercicio 29
Link de descarga
Calcular el promedio de 5 números ingresados por teclado. Utilizar un vector. Primero leer los cinco números, luego recorrerlo para calcular el promedio
Code: PSeInt [Installed Languages]
//29 Calcular el promedio de 5 números ingresados por teclado.
//Utilizar un vector. Primero leer los cinco números, luego recorrerlo para calcular el promedio
Algoritmo sin_titulo
Escribir "Promedio de cinco numeros con array.";
Dimension array(5);
Definir n como ENTERO;
Definir p como REAL;
n = 0;
p = 0;
Mientras n < 5 Hacer
Leer array(n);
n = n + 1;
FinMientras
Escribir "";
Escribir "Calculo del promedio:";
n = 0;
Mientras n < 5 Hacer
p = p + array(n);
n = n + 1;
FinMientras
p = p / 5;
Escribir "";
Escribir "Resultado del promedio: ", p;
FinAlgoritmo
^ Arriba ^
Ejercicio 30
Link de descarga
Comparar 2 vectores con 10 elementos enteros ya ordenados en forma ascendente y generar un tercer vector también ordenado.
(para probarlo en Pseint ver indicación en presentación clase 5)
Code: PSeInt [Installed Languages]
// 30 Comparar 2 vectores con 10 elementos enteros ya ordenados en forma ascendente y generar un tercer vector también ordenado.
///* (para probarlo en Pseint ver indicación en presentación clase 5) */
Algoritmo sin_titulo
Definir n, max, tmp como ENTERO;
max = 10;
Dimension array1(max), array2(max), arrayMezclado(max*2);
n = 0;
Mientras n < max Hacer // rellenar los arrays
array1[n] = ALEATORIO(max*n, max*(n+1));
array2[n] = ALEATORIO(max*n, max*(n+1));
n = n + 1;
FinMientras
n = 0;
Mientras n < max Hacer // rellenar los arrays
Escribir array1[n]," " SINSALTAR;
n = n + 1;
FinMientras
Escribir "";
n = 0;
Mientras n < max Hacer // rellenar los arrays
Escribir array2[n]," " SINSALTAR;
n = n + 1;
FinMientras
n=0;
Mientras n < max*2 Hacer //rellenar el tercer array
Si n < max Entonces
arrayMezclado[n] = array1[n];
Sino
arrayMezclado[n] = array2[n-max];
FinSi
n = n + 1;
FinMientras
Escribir "";
n = 0;
Mientras n < max*2-1 Hacer //aca arrancamos la recursion para ordenar de menor a mayor
Si arrayMezclado[n] > arrayMezclado[n+1] Entonces ///* Si el valor anterior es mayor al posterior */
tmp = arrayMezclado[n]; // Guardamos un toque aca el valor mas grande
arrayMezclado[n] = arrayMezclado[n+1]; // Ponemos el mas chico en el anterior
arrayMezclado[n+1] = tmp; // Ponemos el mas grande en el posterior
n = -1; // Hay que hacer todo de vuelta para asegurarnos de que no haya otro mas grande
// Poniendo 0 se saltara el primer indice ya que se suma 1 en la siguiente instruccion
FinSi
n = n + 1;
FinMientras
n = 0;
Mientras n < max*2 Hacer //mostrar el array
Escribir "Indice [",n,"] = ",arrayMezclado[n];
n = n + 1;
FinMientras
FinAlgoritmo
^ Arriba ^