Post on 15-Dec-2015
description
transcript
RUBENNAVARROCASERO
&RAUL
MORALESGARCIA
Corrección e implementación en PSeInt por Alejandro Caro y discoduroderoer
© 2004© 2012-2013
1
Ejercicios de Pseudocódigo Parte 1Nota: Los arreglos son en base 0
1. Leer un número y mostrar por la salida estándar si dicho número es o no es par. 2. Leer 2 números y mostrar el producto de ellos. 3. Leer 2 números y determinar el mayor de ellos. 4. Leer 3 números y mostrar el mayor de ellos. 5. Leer un número y mostrar su tabla de multiplicar. 6. Leer una secuencia de 30 números y mostrar la suma y el producto de ellos. 7. Leer una secuencia de números, hasta que se introduce un número negativo y
mostrar la suma de dichos números. 8. Leer dos números y realizar el producto mediante sumas. 9. Leer dos números y realizar la división mediante restas mostrando el cociente y
el resto. 10. Leer una secuencia de números y mostrar su producto, el proceso finalizará
cuando el usuario pulse a la tecla F. 11. Lee una secuencia de números y determina cual es el mayor de ellos. anda12. Dado un número mostrar su valor en binario. 13. Generar enteros de 3 en 3 comenzando por 2 hasta el valor máximo menor que
Calculando la suma de los enteros generados que sean divisibles por 5. 14. Calcular la media de una secuencia de números, el proceso finalizará cuando el
usuario pulse F. 15. Generar los N primeros términos de la serie de Fibonacci y mostrarlos por
pantalla. El valor N (entero y positivo) deberá ser leído por el teclado. En esta serie los dos primeros números son 1, y el resto se obtiene sumando los dos anteriores: 1,1,2,3,5,8,13,21…
16. Leer una secuencia se números y mostrar cuáles de ellos es el mayor y el menor, el proceso finalizará cuando se introduzca un número impar.
17. Leer una secuencia de números y sumar solo los pares mostrando el resultado del proceso.
18. Leer una secuencia de números y mostrar los 30 primeros pares leídos. 19. Leer una secuencia de números y mostrar la suma de los 30 números que ocupan
posiciones de lectura par. 20. Leer un número y determinar su factorial. 21. Leer un número y determinar si es o no es primo. 22. Leer una secuencia de 30 números y mostrar la suma de los primos. 23. Leer una secuencia de 30 números y mostrar la suma de su factorial. 24. Calcular el valor del número E (Euler) =(1/n!) y mostrarlo en pantalla. (ver)25. Implementar un programa que sea capaz de calcular el resultado de aplicar la
fórmula siguiente (n i)=n! / (i! * (n-i)!).
Véase página Ejercicios de Pseudocódigo Parte 2 para la segunda parte
2
PROCESO ejercicio_1 DEFINIR numero COMO ENTERO;
ESCRIBIR ("Introduce un número");LEER numero;SI (numero % 2 = 0) ENTONCES
ESCRIBIR ("El numero es par");SINO
ESCRIBIR ("El numero no es par");FINSI
FINPROCESO
PROCESO ejercicio_2 DEFINIR numero_a COMO ENTERO;DEFINIR numero_b COMO ENTERO;
ESCRIBIR ("Introduce un número");LEER numero_a;ESCRIBIR ("Introduce otro número");LEER numero_b;ESCRIBIR (numero_a * numero_b);
FINPROCESO
PROCESO ejercicio_3 DEFINIR numero1 COMO ENTERO;DEFINIR numero2 COMO ENTERO;ESCRIBIR ("Introduce el número1");LEER numero1;ESCRIBIR ("Introduce el número2");LEER numero2;SI (numero1 > numero2) ENTONCES
ESCRIBIR ("El número1 es mayor", numero1);SINO
ESCRIBIR ("El número2 es mayor", numero2);SI (numero1 = numero2) ENTONCES
ESCRIBIR ("Los números son iguales");FINSI
FINSIFINPROCESO
3
PROCESO ejercicio_4 DEFINIR numero1 COMO ENTERO;DEFINIR numero2 COMO ENTERO;DEFINIR numero3 COMO ENTERO;ESCRIBIR ("Introduce número1");LEER numero1;ESCRIBIR ("Introduce número2");LEER numero2;SI (numero1 > numero2) ENTONCES
ESCRIBIR ("Introduce número3");LEER numero3;
SI (numero1 > numero3) ENTONCESESCRIBIR ("El número1 es el mayor");
SINOSI (numero2 > numero3) ENTONCES
ESCRIBIR ("El número2 es el mayor");SINO
ESCRIBIR ("El número3 es el mayor");FINSI
FINSIFINSI
FINPROCESO
PROCESO ejercicio_5 DEFINIR indice COMO ENTERO;DEFINIR numero COMO ENTERO;DEFINIR cota_superior COMO ENTERO;DEFINIR cota_inferior COMO ENTERO;
cota_inferior <- 1;cota_superior <- 10;indice <- 1;
ESCRIBIR "Ingrese un número";LEER numero;PARA indice <- cota_inferior HASTA cota_superior CON PASO 1 HACER
ESCRIBIR numero ,(" * "), indice ,(" = "), numero*indice;FINPARA
FINPROCESO
4
PROCESO ejercicio_6 DEFINIR numero COMO ENTERO;DEFINIR indice COMO ENTERO;DEFINIR suma COMO ENTERO;DEFINIR producto COMO ENTERO;suma <- 0;producto <- 1;PARA indice <-1 HASTA 30 CON PASO 1 HACER
LEER numero;suma <- suma + numero;producto <- producto * numero;indice <-indice + 1;
FINPARAESCRIBIR ("la suma es: "), suma;ESCRIBIR ("el producto es: "), producto;
FINPROCESO
PROCESO ejercicio_7 DEFINIR numero COMO ENTERO;DEFINIR suma COMO ENTERO;suma <- 0;LEER numero;MIENTRAS (numero > 0) HACER
suma <- suma +numero;LEER numero;
FINMIENTRASESCRIBIR ("la suma es:"), suma;
FINPROCESO
PROCESO ejercicio_8 DEFINIR a COMO ENTERO;DEFINIR b COMO ENTERO;DEFINIR indice COMO ENTERO;DEFINIR Multi COMO ENTERO;ESCRIBIR ("introduce el primer número");LEER a;ESCRIBIR ("introduce el segundo número");LEER b;multi <- 0;PARA indice <-b HASTA 1 CON PASO -1 HACER
multi <- multi + a;FINPARAESCRIBIR (multi), " "; //apretar alt + 01
FINPROCESO
5
PROCESO ejercicio_9 DEFINIR dividendo COMO ENTERO;DEFINIR divisor COMO ENTERO;DEFINIR cociente COMO ENTERO;DEFINIR resto COMO ENTERO;DEFINIR signo COMO ENTERO;
ESCRIBIR ("introduce el dividendo");LEER dividendo;ESCRIBIR ("introduce el divisor");LEER divisor;//idem multiplicar//casos especialesSI (divisor = 0) ENTONCES
ESCRIBIR ("error");SINO
cociente <- 0;resto <- dividendo;MIENTRAS (resto >= divisor) HACER
resto <- resto - divisor;cociente <- cociente + 1;
FINMIENTRASFINSIESCRIBIR "El cociente es ", cociente;ESCRIBIR "El resto es ", resto;
FINPROCESO
PROCESO ejercicio_10 DEFINIR numero COMO ENTERO;DEFINIR producto COMO ENTERO;DEFINIR ffin COMO CARACTER;DEFINIR limite COMO CARACTER;
Limite <- "f";
Producto <- 1;REPETIR
ESCRIBIR ("Introduce el número");LEER numero;ESCRIBIR ("¿Seguir? f = no s = si\n");LEER ffin;producto <- producto * numero;
HASTA QUE (ffin = limite)ESCRIBIR ("el producto de los números es: "), producto;
FINPROCESO
6
PROCESO ejercicio_11 DEFINIR numero COMO ENTERO;DEFINIR mayor COMO ENTERO;DEFINIR final COMO CARACTER;DEFINIR ffin COMO CARACTER;
ffin <-"F";mayor <- 0;
REPETIRESCRIBIR ("Introduce un número");LEER numero;ESCRIBIR ("¿Seguir? f = no s = si\n");LEER final;SI (numero > mayor) ENTONCES
mayor <- numero;FINSI
HASTA QUE (final = ffin)ESCRIBIR ("El mayor es:"), mayor;
FINPROCESO
PROCESO ejercicio_12 DEFINIR contador COMO ENTERO;DEFINIR binario COMO CADENA;DEFINIR digito COMO CADENA;DEFINIR decimal COMO ENTERO;DEFINIR cociente COMO ENTERO;binario<-"";digito<-"";Contador <- 0;REPETIR
ESCRIBIR ("Introduce un decimal");LEER decimal;Contador <- contador + 1;
HASTA QUE (decimal >= 0) | (contador = 5)SI (contador = 5) ENTONCES
ESCRIBIR ("Sobrepasado numero de errores");SINO
SI (decimal = 0) ENTONCESESCRIBIR ("0");
FINSICociente <- decimal;
MIENTRAS (cociente<> 0) HACERSI cociente % 2 = 0 ENTONCES
digito<-"0"Sino
digito<-"1"FinSibinario<-digito+binarioCociente <- cociente/2;
FINMIENTRASESCRIBIR binario;
FINSI
7
FINPROCESO
//(Otra solución)PROCESO ejercicio_12_ii DEFINIR num COMO ENTERO; DEFINIR cad COMO CADENA; ESCRIBIR ("Ingrese un número entero positivo: "); LEER num; cad <- ""; SI num > 0 ENTONCES MIENTRAS num>0 HACER
SI num%2 = 0 ENTONCES cad <- "0" + cad; SINO
cad <- "1" + cad;FINSInum <- trunc(num/2);
FINMIENTRAS ESCRIBIR ("Numero en binario: "), cad; SINO SI num = 0 Entonces ESCRIBIR "0";
SINO Escribir ("Solo números mayores a cero");
FINSIFINSI
FINPROCESO
PROCESO ejercicio_13 DEFINIR indice COMO ENTERO;DEFINIR suma COMO ENTERO;suma <- 0;PARA indice <-2 HASTA 29 CON PASO 3 HACER
SI (indice % 5 = 0) ENTONCESsuma <- suma + indice;
FINSIFINPARA
ESCRIBIR ("La suma es: "), suma;FINPROCESO
PROCESO ejercicio_14 DEFINIR media COMO ENTERO;DEFINIR suma COMO ENTERO;DEFINIR contador COMO ENTERO; DEFINIR numero COMO ENTERO;suma <- 0;contador <- 0;media <- 0;ESCRIBIR ("Introduce un número");LEER numero;MIENTRAS (numero <> 0) HACER
contador <- contador + 1;suma <- suma + numero;ESCRIBIR ("Introduce un número");
8
LEER numero;FINMIENTRASmedia <- suma/contador;
ESCRIBIR suma, " ";ESCRIBIR media;
FINPROCESO
PROCESO ejercicio_15 DEFINIR numero COMO ENTERO;DEFINIR indice COMO ENTERO;DEFINIR intercambio COMO ENTERO;DEFINIR n_1 COMO ENTERO;DEFINIR n_2 COMO ENTERO;
REPETIRESCRIBIR ("Introduce un número");LEER numero;
HASTA QUE (numero > 0)SI (numero = 1) ENTONCES
ESCRIBIR ("a1 <- 1");SINO
SI (numero = 2) ENTONCESESCRIBIR ("a1 <- 1");ESCRIBIR ("a2 <- 1");
SINOESCRIBIR ("a1 <- 1");ESCRIBIR ("a2 <- 1");
FINSIn_1 <- 1; //a1 <- 1n_2 <- 1; //a2 <- 1PARA indice <-3 HASTA numero CON PASO 1 HACER
ESCRIBIR ( "a"), indice ,(" = "), n_1 + n_2;intercambio <- n_1;n_1 <- n_1 + n_2;n_2 <- intercambio;
FINPARAFINSI
FINPROCESO
PROCESO ejercicio_16 DEFINIR numero COMO ENTERO;DEFINIR mayor COMO ENTERO;DEFINIR menor COMO ENTERO; ESCRIBIR ("Introduce un número");LEER numero;MIENTRAS (numero % 2 = 0) HACER
mayor <- numero;menor <- numero;
MIENTRAS (numero % 2 = 0) HACERSI (numero > mayor) ENTONCES
mayor <- numero;SINO
SI (numero < menor) ENTONCESmenor <- numero;
9
FINSIFINSI
FINMIENTRASFINMIENTRAS
FINPROCESO
PROCESO ejercicio_17 DEFINIR suma COMO ENTERO;DEFINIR numero COMO ENTERO;suma <- 0;ESCRIBIR ("Introduce un número");LEER numero;MIENTRAS (numero % 2 = 0) HACER
LEER numero;suma <- suma + numero;SI (numero % 2 = 0) ENTONCES
suma <- suma + numero;FINSI
FINMIENTRASESCRIBIR (suma);
FINPROCESO
PROCESO ejercicio_18 DEFINIR numero COMO ENTERO;DEFINIR contador COMO ENTERO;DEFINIR caracter COMO ENTERO;contador <- 0;ESCRIBIR ("Introduce el primer número");REPETIR
LEER numero;SI (numero % 2 = 0) ENTONCES
ESCRIBIR (numero);contador <- contador + 1;
FINSIHASTA QUE (contador = 30)
FINPROCESO
PROCESO ejercicio_19 DEFINIR numero COMO ENTERO;DEFINIR suma COMO ENTERO;DEFINIR posicion COMO ENTERO;DEFINIR indice COMO ENTERO;
suma <- 0;posicion <- 0;MIENTRAS (indice <= 30) HACER
ESCRIBIR ("introduce un número");LEER numero;posicion <- posicion + 1; SI (posicion % 2 = 0 ) ENTONCES
suma <- suma + numero;FINSI
FINMIENTRASESCRIBIR (suma);
10
FINPROCESO
PROCESO ejercicio_20 DEFINIR factorial COMO ENTERO;DEFINIR indice COMO ENTERO;DEFINIR numero COMO ENTERO;
ESCRIBIR ("introduce un número");LEER numero;SI (numero < 0) ENTONCES
ESCRIBIR ();SINO SI (numero = 0) ENTONCES
ESCRIBIR ("El factorial de 0 es 1");SINO
factorial <- 1;PARA indice <-2 HASTA numero CON PASO 1 HACER
factorial <- factorial * numero;FINPARAESCRIBIR ("El resultado es: "), factorial;
FINSIFINSI
FINPROCESO
PROCESO ejercicio_21 DEFINIR n COMO ENTERO;DEFINIR contador COMO ENTERO; DEFINIR encontrado COMO LOGICO;
ESCRIBIR ("introduce un número");LEER n;encontrado <- falso;contador <- 2;MIENTRAS (contador <= n-1) & (n % contador <> 0) HACER
contador <- contador + 1; FINMIENTRASSI (contador <= n-1 ) ENTONCES
ESCRIBIR ("el número no es primo");SINO
ESCRIBIR ("el número es primo");FINSI
FINPROCESO
PROCESO ejercicio_22 DEFINIR n COMO ENTERO;DEFINIR contador COMO ENTERO; DEFINIR suma COMO ENTERO;DEFINIR indice COMO ENTERO;suma <- 0;PARA indice <-0 HASTA 29 CON PASO 1 HACER
ESCRIBIR ("introduce un número");LEER numero;contador <- 2;MIENTRAS (contador <= n-1) & (n % contador = 0) HACER
contador <- contador + 1;
11
FINMIENTRASSI (contador = n ) ENTONCES
suma <- suma + numero;FINSI
FINPARAFINPROCESO
PROCESO ejercicio_23 DEFINIR n COMO ENTERO;DEFINIR contador COMO ENTERO; DEFINIR factorial COMO ENTERO;DEFINIR suma COMO ENTERO;DEFINIR indice COMO ENTERO;DEFINIR numero COMO ENTERO;
n <- 0;contador <- 0;suma <- 0;
REPETIRREPETIR
ESCRIBIR ("introduce un número");LEER numero;
HASTA QUE (n >= 0)factorial <- 1;PARA indice <-2 HASTA numero CON PASO 1 HACER
factorial <- factorial * numero;FINPARAsuma <- suma + factorial;contador <- contador + 1;HASTA QUE (contador = 30)ESCRIBIR ("la suma es:"), suma;
FINPROCESO
SUBPROCESO suma <- factorial ( numero )DEFINIR suma COMO ENTERO;suma<-numero;PARA contador<-numero-1 HASTA 1 CON PASO -1 HACER
suma<-suma*contador;FINPARA
FINSUBPROCESO
PROCESO ejercicio_24DEFINIR e, n, numero COMO REALES;e<-1;ESCRIBIR "Ingrese la cantidad de cifras para el límite del factorial: ";LEER numero;//ESCRIBIR (1+1/numero)^numero;PARA n <-1 HASTA numero CON PASO 1 HACER
e <- e + 1/factorial(n);FINPARAESCRIBIR e;
FINPROCESO
12
SUBPROCESO suma <- factorial ( numero )DEFINIR suma, contador COMO ENTERO;suma<-numero;PARA contador<-numero-1 HASTA 1 CON PASO -1 HACER
suma<-suma*contador;FINPARA
FINSUBPROCESO//http://www.discoduroderoer.es/ejercicios-de-funciones-pseudocodigo/
PROCESO ejercicio_25DEFINIR numero COMO ENTERO;DEFINIR resultado COMO ENTERO;DEFINIR i COMO ENTERO;DEFINIR indice COMO ENTERO;REPETIR
ESCRIBIR ("Introduce un número");LEER numero;ESCRIBIR ("Introduce i");LEER i;
HASTA QUE (numero > i) & (numero >= 0) & (i >= 0)resultado <-factorial(numero) / (factorial(i) * factorial(numero-i));ESCRIBIR resultado;
FINPROCESO
SUBPROCESO suma <- factorial ( numero )DEFINIR suma, contador COMO ENTERO;suma<-numero;PARA contador<-numero-1 HASTA 1 CON PASO -1 HACER
suma<-suma*contador;FINPARA
FINSUBPROCESO
13
1. Desarrolle un algoritmo (Pseudocódigo-Organigrama) para cada uno de los siguientes problemas que se plantean:
a. Dado una secuencia de números determinar el mayor leído y el número de veces que aparece.
b. Dado una secuencia de palabras determinar el mayor y menor lexicográficamente.
c. Resolución de una ecuación de 2º grado. d. Dado una secuencia de números obtener la suma de los factoriales de
aquellos que ocupan posición par. e. Determina dado una secuencia de enteros obtener los dos más mayores.f. Dada un entero extraer cada uno de los dígitos que lo forma. g. Dada un entero visualizar sus divisores. h. Dada una secuencia de enteros determinar para cada una los divisores. i. Dada una secuencia de enteros determinar los que son primos y también
los que tienen como dígito menos significativo un 7. j. Dada una secuencia de enteros determinar para cada su factorial y si es o
no primo. k. Determina de una secuencia de enteros aquel que es mayor pero además
es primo. l. Determina de una secuencia de enteros aquel factorial que es mayor. m. Dado una secuencia de enteros de cada uno determina sus 20 primeros
múltiplos positivos y enteros.
14
PROCESO ejercicio_a DEFINIR numero COMO ENTERO;DEFINIR mayor COMO ENTERO;DEFINIR contador COMO ENTERO; DEFINIR ffin COMO CARACTER;
ffin <- "F";
contador <- 1;mayor <- 0;REPETIR
ESCRIBIR ("Introduce un número");LEER numero;ESCRIBIR ("¿Seguir? f = no s = si\n");LEER fin;SI (numero > mayor) ENTONCES
contador <- 1;mayor <- numero;ESCRIBIR numero ,("es el mayor");
SINOESCRIBIR ("El mayor es:"), mayor;
FINSIHASTA QUE (ffin = limite)ESCRIBIR ("El mayor es:"), mayor;ESCRIBIR ("Aparece:"), contador ,("veces");
FINPROCESO
PROCESO ejercicio_b DEFINIR palabra COMO CARACTER;DEFINIR mayor COMO ENTERO;DEFINIR contador COMO ENTERO; DEFINIR ffin COMO ENTERO;
ffin <- "F";
contador <- 1;mayor <- 0;REPETIR
ESCRIBIR ("Introduce una palabra");LEER palabra;ESCRIBIR ("¿Seguir? f = no s = si\n");LEER ffin;SI (palabra > mayor) ENTONCES
contador <- 1;mayor <- palabra;
ESCRIBIR palabra ,(" es la mayor");SINO
ESCRIBIR ("La mayor es:", mayor);FINSI
HASTA QUE (fin = limite)ESCRIBIR ("La mayor es:"), mayor;ESCRIBIR ("Aparece:"), contador ,("veces");
FINPROCESO
15
PROCESO ejercicio_c DEFINIR a COMO ENTERO;DEFINIR b COMO ENTERO;DEFINIR c COMO ENTERO;DEFINIR det COMO REAL;
ESCRIBIR ("Introduce b");LEER b;ESCRIBIR ("Introduce a");LEER a;ESCRIBIR ("Introduce c");LEER c;det <-b^2 - 4 * a * c;SI ((det)<0) ENTONCES
ESCRIBIR ("error");SINO
ESCRIBIR (-b + (det)^0.5) / (2 * a);ESCRIBIR (-b - (det)^0.5) / (2 * a);
FINSIFINPROCESO
PROCESO ejercicio_d DEFINIR numero COMO ENTERO;DEFINIR factorial COMO ENTERO;DEFINIR contador COMO ENTERO;DEFINIR suma COMO ENTERO;DEFINIR cota_superior COMO ENTERO;DEFINIR indice COMO ENTERO;
contador <- 0;suma <- 0;ESCRIBIR ("cuantos números quieres leer");LEER cota_superior;REPETIR
ESCRIBIR ("Introduce un número");LEER numero;contador <- contador + 1;SI (contador % 2 = 0) ENTONCES
factorial <- 1;PARA indice<-2 HASTA numero CON PASO 1 HACER
factorial <- factorial * indice;FINPARAsuma <- suma + factorial;
FINSIHASTA QUE (contador = cota_superior)
FINPROCESO
PROCESO ejercicio_e DEFINIR numero COMO ENTERO;DEFINIR mayor COMO ENTERO;DEFINIR contador COMO ENTERO;DEFINIR ffin COMO CADENA;DEFINIR limite COMO CADENA;limite <- "F";
16
ffin <- limite;Contador <- 1;Mayor <- 0;REPETIR
ESCRIBIR ("Introduce un número");LEER numero;ESCRIBIR ("Si quieres finalizar pulsa F (solo ingrese F o N)");LEER ffin;SI (numero > mayor) ENTONCES
Contador <- 1;Mayor <- numero;ESCRIBIR numero ,(" es el mayor");
SINOESCRIBIR ("El mayor es: "),mayor;
FINSIHASTA QUE (ffin = limite)ESCRIBIR ("El mayor es:"),mayor;ESCRIBIR ("Aparece: "),contador ,(" veces");
FINPROCESO
PROCESO ejercicio_f DEFINIR decimal COMO ENTERO;DEFINIR cociente COMO ENTERO;DEFINIR contador COMO ENTERO; contador <- 0;REPETIR
ESCRIBIR ("Introduce un número");LEER decimal;contador <- contador + 1;
HASTA QUE (decimal >= 0) | (contador = 5)SI (contador = 5) ENTONCES
ESCRIBIR ("sobrepasa el número de errores");SINO
cociente <- decimal;MIENTRAS (cociente <> 0) HACER
ESCRIBIR (cociente % 10);cociente <- trunc(cociente/10);
FINMIENTRASFINSI
FINPROCESO
PROCESO ejercicio_g DEFINIR numero COMO ENTERO;DEFINIR indice COMO ENTERO;
REPETIRESCRIBIR ("Introduce un número");LEER numero;
HASTA QUE (numero > 0)PARA indice <-1 HASTA numero CON PASO 1 HACER
SI (numero % indice =0) ENTONCESESCRIBIR ("Un divisor es: "), indice;
SINOESCRIBIR ("El "), indice ,(" no es un divisor");
17
FINSIFINPARA
FINPROCESO
PROCESO ejercicio_h DEFINIR numero COMO ENTERO;DEFINIR indice COMO ENTERO;DEFINIR ffin COMO CARACTER;DEFINIR limite1 COMO CARACTER;DEFINIR limite2 COMO CARACTER;
Limite1 <- "N";Limite2 <- "S";
REPETIRESCRIBIR ("Introduce un número");LEER numero;
HASTA QUE (numero > 0)PARA indice <-1 HASTA numero CON PASO 1 HACER
SI (numero % indice <-0) ENTONCESESCRIBIR ("Un divisor es: "), indice;
SINOESCRIBIR ("El "), indice ,(" no es un divisor");
FINSIFINPARAREPETIR
ESCRIBIR ("¿Quieres seguir? (S/N)");LEER ffin;
HASTA QUE (ffin = limite1) | (fin = limite2)MIENTRAS (ffin = limite2) HACER
PARA indice <-1 HASTA numero CON PASO 1 HACERSI (numero % indice <-0) ENTONCES
ESCRIBIR ("Un divisor es:"), indice;SINO
ESCRIBIR ("El "), indice ,(" no es un divisor");FINSI
FINPARAREPETIR
ESCRIBIR ("¿Quieres seguir? (S/N)");LEER ffin;
HASTA QUE (ffin = limite1) | (ffin = limite2)FINMIENTRAS
FINPROCESO
18
Programación modular (no anda ninguno)i Calcular el mayor de dos valores introducidos mediante el teclado utilizando
programación modular. No anda (ir al código)Leer un número y mostrar su tabla de multiplicar No anda (ir al código)Realizar un algoritmo que muestre el siguiente menú. No anda (ir al código)a. Amigosb. Sociablesc. Vector de productosd. Vector de sumase. Bisiestof. Salir
j Define una función que reciba un vector y devuelva el mayor de todos. No anda (ir a código )
k Define una función que recibiendo un vector y un entero devuelva la existencia o no de dicho entero en el vector. No anda
l Algoritmo que lea n enteros que indiquen el factorial de los primos. No anda (ir al código)(Ir a códigos parte 2)
19
Calcular el mayor de dos valores introducidos mediante el teclado utilizando programación modular. (no anda) (volver al índice) (probado en código fuente)
PROCESO ejercicio_i //no andaDEFINIR valor1 COMO ENTERO;DEFINIR valor2 COMO ENTERO;Pantalla_principal;Leer_valores;SI (mayor(valor1, valor2) = 0) ENTONCES
ESCRIBIR ("Valor 1 es mayor que valor2");SINO
SI (mayor(valor1, valor2) = 1) ENTONCESESCRIBIR ("Valor 2 es mayor que valor1");
SINOESCRIBIR ("Son iguales");
FINSIFINSI
FINPROCESO
SUBPROCESO Pantalla_principalBorrar_pantalla();ESCRIBIR ("__");ESCRIBIR ("__");//……
FINSUBPROCESO
SUBPROCESO Leer_valoresESCRIBIR ("Introduce valor1");LEER valor1;ESCRIBIR ("Introduce valor2");LEER valor2;
FINSUBPROCESO
SUBPROCESO borrar_pantallaDEFINIR A1 COMO ENTERO; //A1 es un contadorDEFINIR primera_linea, ultima_linea COMO ENTEROS;primera_linea <- 1;ultima_linea <- 24;PARA A1 <- primera_linea HASTA ultima_linea CON PASO 1
HACERESCRIBIR ("__");
FINPARAFINSUBPROCESO
SUBPROCESO mayor (valor1, valor2)SI (valor1 > valor2) ENTONCES
Retornar (0);SINO
SI (valor1 < valor2) ENTONCESRetornar (1);
SINORetornar (2);
FINSIFINSI
20
FINSUBPROCESO
Leer un número y mostrar su tabla de multiplicar (hecho sin usar variables globales) (volver al índice)
PROCESO principalDEFINIR numero COMO ENTERO;DEFINIR cota_inferior COMO ENTERO;DEFINIR cota_superior COMO ENTERO;DEFINIR error COMO ENTERO;error <- leer_valores(numero, cota_superior, cota_inferior);SI (error = 1) ENTONCES
ESCRIBIR ("Has introducido mal los datos");SINO
Tabla_multiplicar(numero, cota_superior, cota_inferior);FINSI
FINPROCESO
SUBPROCESO leer_valores(numero Por Referencia, cota_superior Por Referencia, cota_inferior Por Referencia)
ESCRIBIR "Introduce el número de multiplicar, cota_superior, cota_inferior";
LEER numero;LEER cota_superior;LEER cota_inferior;SI (cota_superior < cota_inferior) ENTONCES
Retornar (1);SINO
Retornar (0);FINSI
FINSUBPROCESO
SUBPROCESO Tabla_multiplicar(numero Por Referencia, cota_superior Por Referencia, cota_inferior Por Referencia)
DEFINIR indice COMO ENTERO;indice <- 1;PARA indice <- cota_inferior HASTA cota_superior CON PASO 1
HACERESCRIBIR numero ,(" * "), indice ,(" = "), numero*indice;
FINPARAFINSUBPROCESO
Realizar un algoritmo que muestre el siguiente menú. (no anda) (probar en código fuente)
1. Amigos2. Sociables3. Vector de productos4. Vector de sumas5. Bisiesto6. Salir
PROCESO principal
21
DEFINIR opcion COMO ENTERO;REPETIR
pantalla_menu();Leer_opcion();SEGUN Leer_opcion HACER
1: procedimiento_amigos();2: procedimiento_sociables();3: ESCRIBIR procedimiento_vector_productos(vvector[],
cota_inferior, cota_superior);4: ESCRIBIR suma_vector(vvector, cota_inferior,
cota_superior);5: ESCRIBIR bisiesto();
FINSEGUNHASTA QUE (opcion = 6)
FINPROCESOPROCEDIMIENTO pantalla_menu()
ESCRIBIR ("__");ESCRIBIR ("__");ESCRIBIR ("__");
FINPROCEDIMIENTOPROCEDIMIENTO leer_opcion
LEER oopcion;FINPROCEDIMIENTO
PROCEDIMIENTO procedimiento_amigos()DEFINIR valor1 COMO ENTERO;DEFINIR valor2 COMO ENTERO;DEFINIR tecla COMO CARACTER;REPETIR
REPETIRLEER valor1;LEER valor2;
HASTA QUE ((valor1 > 0) & (valor2 > 0))SI (amigos(valor1,valor2) = 1) ENTONCES
ESCRIBIR ("Son amigos");SINO
ESCRIBIR ("No son amigos");FINSIREPETIR
ESCRIBIR ("¿Quieres seguir s/n?");LEER tecla;
HASTA QUE ((teca = s) | (tecla = n))HASTA QUE (tecla = N)
FINPROCEDIMIENTO
funcion amigos (v1, v2)SI (suma_divisores(v1) = v2) & (suma_divisores(v2) = v1) ENTONCES
Retornar (1);SINO
Retornar (0);FINSI
FINFUNCION
funcion suma <- suma_divisores (vvalor)
22
DEFINIR indice COMO ENTERO;DEFINIR suma COMO ENTERO;Suma <- 0;PARA indice <- 1 HASTA (v1 - 1) CON PASO 1 HACER
SI (v1 % divisor = 0) ENTONCESSuma <- suma + indice;
FINSIFINPARA
FINFUNCION
PROCEDIMIENTO procedimiento_sociables()DEFINIR cota_inferior COMO ENTERO;DEFINIR cota_superior COMO ENTERO;DIMENSION vector[cota_inferior, cota_superior];DEFINIR vector COMO ENTERO;DEFINIR indice COMO ENTERO;cota_inferior <- 1;cota_superior <- 20;PARA indice = cota_inferior HASTA cota_superior CON PASO 1
HACERLEER vvector[indice];
FINPARASI ((sociables(vvector, cota_inferior, cota_superior)) = 1) ENTONCES
ESCRIBIR ("Son sociables");SINO
ESCRIBIR ("NO son sociables");FINSI
FINPROCEDIMIENTO
funcion sociables (vvector, cota_inferior, cota_superior)DEFINIR indice COMO ENTERO;Indice <- 1;MIENTRAS (indice < cota_inferior) & (sociables(vvector[indice],
vvector[indice + 1]) = 1) HACERindice <- indice + 1;
FINMIENTRASSI (indice <- cota_superior) & ((sociable[cota_inferior],
v[cota_superior]) = 1) ENTONCESRetornar (1);
SINORetornar (0);
FINSIFINFUNCION
funcion productos <- procedimiento_vector_productos(vvector[], cota_inferior, cota_superior)
Definir indice Como Entero;Definir producto Como Entero;Producto <- 1;PARA indice <- cota_inferior HASTA cota_superior CON PASO 1
HACERproducto <- producto * vvector[indice];
FINPARAFINFUNCION
23
PROCEDIMIENTO vector_de_sumasDEFINIR cota_inferior COMO ENTERO;DEFINIR cota_superior COMO ENTERO;DEFINIR indice COMO ENTERO;DIMENSION vvector[cota_inferior, cota_superior];DEFINIR vvector COMO ENTERO;Leer cota_inferior;Leer cota_superior;PARA indice <- cota_inferior HASTA cota_superior CON PASO 1
HACERLEER vvector[indice];
FINPARAESCRIBIR (suma_vector(vvector[], cota_inferior, cota_superior);
FINPROCEDIMIENTO
PROCEDIMIENTO suma <- suma_vector(vvector[], cota_inferior, cota_superior)
DEFINIR indice COMO ENTERO;DEFINIR suma COMO ENTERO;Suma <- 0;PARA indice <- cota_inferior HASTA cota_superior CON PASO 1
HACERsuma <- suma + vvector[indice];
FINPARAFINFUNCION
PROCEDIMIENTO bisiestoDEFINIR anio COMO ENTERO;Borrar pantalla;ESCRIBIR ("Dame un año");LEER anio;ESCRIBIR ("Dame un año");LEER anio;SI (anio <= 0) ENTONCES
ESCRIBIR ("El año no es bisiesto");SINO
SI (año % 400 = 0) ENTONCESESCRIBIR ("Es bisiesto");
SINOSI (año % 100 = 0) ENTONCES
ESCRIBIR ("No es bisiesto");SINO
ESCRIBIR ("Es bisiesto");FINSI
FINSIFINSI
FINPROCEDIMIENTO
FUNCION funcion_Bisiesto(anio)INICIOSI (anio % 4 <> 0) ENTONCES
Retornar (0);SINO SI (anio % 400 = 0) ENTONCES
24
Retornar (1);SINO SI (anio % 100 <> 0) ENTONCES
Retornar (1);SINO
Retornar (0);FINSI
FINFUNCION
Define una función que reciba un vector y devuelva el mayor de todos. (no anda)
SUBPROCESO Mayor <- mayor_vector (a, cota_inferior, cota_superior)DEFINIR indice COMO ENTERO;DEFINIR mayor COMO ENTERO;mayor <- a[cota_inferior];PARA (indice <- cota_inferior HASTA cota_superior) CON PASO 1 HACER
SI (a[indice] > mayor) ENTONCESMayor <- a[indice];
FINSIFINPARA
FINSUBPROCESO
Define una función que recibiendo un vector y un entero devuelva la existencia o no de dicho entero en el vector. (no anda)
SUBPROCESO numero_vector (numero, vector, cota_inferior, cota_superior)DEFINIR indice COMO ENTERO;indice <- cota_inferior;MIENTRAS (indice <= cota_superior) & (vector(indice <> numero) HACER
Indice <- indice + 1;FINMIENTRASSI (indice <- cota_inferior + 1) ENTONCES
Retornar (0);SINO
Retornar (1);FINSI
FINSUBPROCESO
Algoritmo que lea n enteros que indiquen el factorial de los primos. (no anda) (ir al principio)
PROCESO vector_de_factoriales_primosDIMENSION vector [cota_inferior, cota_superior];DIMENSION vector_factorial [cota_inferior, cota_superior];DEFINIR cota_superior COMO ENTERO;DEFINIR cota_inferior COMO ENTERO;DEFINIR indice COMO ENTERO;Leer_valores;PARA (indice <- cota_inferior HASTA cota_superior) CON PASO 1 HACER
SI (numeros_primos(vector[indice]) = 1) ENTONCESvector_factorial[indice] <- factorial_de_un_numero (vector[indice]);
FINSIESCRIBIR vector_factorial[indice];
FINPARAFINPROCESO
25
SUBPROCESO numeros_primos (numero)DEFINIR numero COMO ENTERO;DEFINIR indice COMO ENTERO;indice <- 2;MIENTRAS (indice < numero) & (numero % indice <> 0) HACER
indice <- indice + 1;FINMIENTRASSI (indice = numero) ENTONCES
Retornar (1);SINO
Retornar (0);FINSI
FINSUBPROCESO
SUBPROCESO factorial <- factorial_de_un_numero (numero)DEFINIR factorial COMO ENTERO;DEFINIR indice COMO ENTERO;SI (numero < 0) ENTONCES
Retornar (-1);SINO
SI (numero = 1) ENTONCESRetornar (1);
SINOFactorial <- 1;
FINSIPARA indice <- 2 HASTA numero CON PASO 1 HACER
factorial <- factorial * indice;FINPARA
FINSIFINSUBPROCESO
Algoritmo que lea n enteros almacenados en un vector sus factoriales. (no anda)
PROCESO factorial DIMENSION vector_entero[cota_inferior, cota_superior];DIMENSION vector_factorial[cota_inferior, cota_superior];DEFINIR cota_inferior COMO ENTERO;DEFINIR cota_superior COMO ENTERO;Borrar pantalla;Leer_valores;PARA indice <- cota_inf HASTA cota_sup CON PASO 1 HACER
vector_factorial[indice] <- factorial_de_un_numero(vector_entero[indice]);ESCRIBIR (vector_factorial[indice]);
FINPARAFINSUBPROCESO
SUBPROCESO leer_valoresDEFINIR cota_inferior, cota_superior COMO ENTEROS;ESCRIBIR "introduce cotas";LEER cota_inferior;LEER cota_superior;ESCRIBIR ("Rellena el vector");PARA indice <- cota_inferior HASTA cota_superior CON PASO 1 HACER
LEER vector_entero[indice];
26
FINPARAFINSUBPROCESO
SUBPROCESO factorial <- factorial_de_un_numero (numero)DEFINIR factorial COMO ENTERO;DEFINIR indice COMO ENTERO;SI (numero < 0) ENTONCES
Retornar (-1);SINO
SI (numero = 1) ENTONCESRetornar (1);
SINOFactorial <- 1;
FINSIPARA indice <- 2 HASTA numero CON PASO 1 HACER
factorial <- factorial + indice;FINPARA
FINSIFINSUBPROCESO
Leer una secuencia y determinar la longitud de la palabra (no anda)
SUBPROCESO contador_palabra <- palabra_mas_larga (parrafo)DEFINIR indice COMO ENTERO;DEFINIR contador_palabra COMO ENTERO;DEFINIR mayor_palabra COMO ENTERO;indice <- 0;contador_palabra <- 0;mayor_palabra <- 0;MIENTRAS (parrafo[indice] <> "\o") HACER
SI (parrafo[indice] <> "\o") ENTONCESContador_palabra <- contador_palabra + 1;
FINSISI (parrafo[indice] <> "\o") & (parrafo[indice + 1] = " " | (parrafo[indice + 1] = "\
o") ENTONCESSI(contador_palabra > mayor_palabra) ENTONCES
Mayor_palabra <- contador_palabra;FINSIContador_palabra <- 0;
FINSIIndice <- indice + 1;
FINMIENTRASFINSUBPROCESO Leer una secuencia y determinar la longitud de la misma. (no anda)
SUBPROCESO indice <- longitud_cadenaDEFINIR indice COMO ENTERO;indice <- \o;MIENTRAS (texto[indice] <> "\o") HACER
indice <- indice -1;FINMIENTRAS
FINSUBPROCESO
27
Realizar una función que recibiendo una secuencia devuelva dicha secuencia en mayúsculas. (no anda)
SUBPROCESO parrafo <- touppercase_java (parrafo)DEFINIR indice COMO ENTERO;DEFINIR resultado COMO SECUENCIA;indice <- 0;MIENTRAS (parrafo[indice] <> "\o") HACER
SI (parrafo[indice] >= "a") & (parrafo[indice] <= "z") ENTONCESParrafo[indice] <- convertiratexto(convertiranumero[indice] -32);
FINSIFINMIENTRAS
FINSUBPROCESO
Definir una función recibiendo una secuencia cuyo fin será el carácter "\o" que devuelva el entero que representa. (no anda) (ningún compilador de pseudocódigo al momento puede hacer esto)
SUBPROCESO simula_autoi (texto)DEFINIR V_a[1.longitud(texto) + 1] COMO CARACTER;DEFINIR indice COMO ENTERO;DEFINIR acumulador COMO ENTERO;DEFINIR indice2 COMO ENTERO;indice <- 0;MIENTRAS (texto[indice] <> "\o") & (texto[indice] >= "\o") & (texto[indice] <= "9")
V_a[indice + 1] <- texto[indice];indice <- indice + 1;
FINMIENTRASV_a[indice] <- "\o";acumulador <- 0;PARA indice2 <- 0 HASTA indice-1 CON PASO 1 HACER
Acumulador <- acumulador + (convertiranumero(v_a[indice2]) – 45) * (10^(indice – indice2));
FINPARARetornar (acumulador);
FINSUBPROCESO
Dada una secuencia mostrar por pantalla el numero de apariciones del codigo ascii. (no anda) (probar en código fuente)
SUBPROCESO apariciones (texto)DEFINIR ascii[255] COMO ENTERO;DEFINIR indice COMO ENTERO;PARA indice <- 0 HASTA 254 CON PASO 1 HACER
ascii[indice] <- 0;FINPARAPARA indice = 0 HASTA longitud(texto) CON PASO 1 HACER
ascii (convertiranumero(texto[indice])) <- (ascii[convertiranumero(texto[indice])) +1FINPARAPARA indice <- 0 HASTA 255 CON PASO 1 HACER
ESCRIBIR ("El codigo ascii"), indice, (", ascii[indice]);FINPARA
FINSUBPROCESO
28
Ejercicios de Pseudocódigo Parte 2
27. Leer una secuencia de números y mostrar la suma de los pares y el producto de los que son múltiplo de 5.
28. Leer una secuencia de números y determinar el mayor de los pares leídos. anda29. Leer una secuencia de números y mostrar el mayor de los múltiplos de 5 leídos y
el menor de los múltiplos de 3 leídos.30. Leer una secuencia de letras y mostrar la suma de sus códigos ASCII.
Suponemos que tenemos la función convertiranumero(caracter)=entero. PSeInt no puede hacer eso (no anda)
31. Dado un vector de 5 enteros actualizar cada posición de dicho vector con un número leído y mostrarla en pantalla.
32. Leer una secuencia de 20 números almacenarlos en un vector y mostrar la posición donde se encuentra el mayor valor leído.
33. Dado dos vectores A y B de 15 elementos cada uno, obtener un vector C donde la posición i se almacene la suma de A[i]+B[i].
34. Dado dos vectores A y B de 15 elementos cada uno, obtener un vector C donde la posición i se almacene la suma de A[i]+B[i] y mostrar el mayor de los C[i].
35. Dado una secuencia de número leídos y almacenados en un vector A mostrar dichos números en orden.
36. Dado una secuencia de número leídos y almacenados en un vector A y un número leído determinar si dicho número se encuentra o no en el vector.
37. Leer una secuencia de 20 números y almacenar en un vector sus factoriales y mostrarlos en pantalla.
38. Leer 20 números y almacenarlos de manera ordenada en un vector y mostrar dicho vector en pantalla.
39. Dado dos matrices A y B obtener la suma y mostrarla en pantalla. 40. Dado una matriz determinar la posición (i,j) del mayor y mostrarla en pantalla. 41. Dado una matriz determinar la posición (i,j) del mayor y menor y mostrarla en
pantalla. 42. Leer un número y una letra si la letra es B mostrar el valor en binario, si es O en
octal y si es H en hexadecimal. Resultado muchas veces incorrecto, problema de código (ir al código)
43. Leer una secuencia de 20 números almacenarlos en un vector A[20] y mostrar la suma de los elementos que ocupan posiciones pares y el mayor de los que ocupan posiciones impares.
44. Dada una matriz A[4,5] realiza la ordenación de la misma (y mostrarla ordenada por pantalla).
45. Dada una matriz A[4,5] realiza el proceso de ordenar solo por filas. 46. Dado un vector de números determina aquellos que sea primos.
Ir a Ejercicios de Pseudocódigo Parte 1Para programación modular siga este enlace
29
PROCESO ejercicio_27 DEFINIR numero COMO ENTERO;DEFINIR producto COMO ENTERO;DEFINIR sumapares COMO ENTERO;numero <- 0;producto <- 1;sumapares <- 0;MIENTRAS numero <> -1 HACERLEER numero;
SI (numero % 2 = 0) ENTONCES //preguntar si es parsumapares <- sumapares + numero; // sumar numero a numero de pares SINO SI (numero % 5 = 0) ENTONCES
producto<-producto*numero;LEER numero;
FINSIFINSI
FINMIENTRAS
ESCRIBIR (sumapares);ESCRIBIR (producto);
FINPROCESO
PROCESO ejercicio_28 DEFINIR MAX COMO ENTERO;MAX<-5;
DEFINIR indice COMO ENTERO;DEFINIR numero COMO ENTERO;DEFINIR mayor COMO ENTERO;
indice<-0;numero<-0;mayor<-0;
MIENTRAS (indice <MAX) HACERindice<-indice+1;ESCRIBIR ("Introduzca NUMERO");LEER numero;SI ((indice%2)=0) ENTONCES
SI (numero>mayor) ENTONCESmayor<-numero;
FINSIFINSI
FINMIENTRASESCRIBIR (mayor);
FINPROCESO
//Adaptado a PSeInt desde código que se encuentra en http://dis.um.es/~lopezquesada/documentos/FP0405/Proyecto/web4/webalgo/page22b.htm
PROCESO ejercicio_29 DEFINIR MAX COMO ENTERO;DEFINIR indice COMO ENTERO;
30
DEFINIR numero COMO ENTERO;DEFINIR mayor COMO ENTERO;DEFINIR menor COMO ENTERO;MAX<-10;indice<-0; //inicializar índice en 0numero<-0;mayor<-0;menor<-0;MIENTRAS (indice <MAX) HACER
indice<-indice+1;ESCRIBIR ("Introduzca NUMERO");LEER numero;SI (indice%5=0) ENTONCES //Si numero del índice es múltiplo de 5
SI (numero>mayor) ENTONCES //si nuevo mayor que ingresa es todavía mayor al mayor actual
mayor<-numero; //numero ingresado es nuevo mayorFINSI
FINSI
SI (indice%3=0) ENTONCES //Si numero del índice es múltiplo de 3SI (numero<menor) ENTONCES //si nuevo menor que ingresa es
todavía menor al menor actualmenor<-numero; //numero ingresado es nuevo menor
FINSI //cerrar siFINSI //cerrar si
FINMIENTRASESCRIBIR (mayor);ESCRIBIR (menor);
FINPROCESO//Corregido y adaptado a PSeInt desde código que se encuentra en http://dis.um.es/~lopezquesada/documentos/FP0405/Proyecto/web4/webalgo/page32.htm
PROCESO ejercicio_30
PSeInt no puede hacer eso.
PROCESO ejercicio_31 DIMENSION n[5];DEFINIR n COMO ENTERO;DEFINIR indice COMO ENTERO;PARA indice <- 0 HASTA 4 CON PASO 1 HACER
ESCRIBIR ("Introduce un número");LEER indice;
FINPARAESCRIBIR indice;
FINPROCESO
PROCESO ejercicio_32 DEFINIR n COMO ENTERO;DIMENSION n[20];
31
DEFINIR mayor_indice COMO ENTERO;DEFINIR indice COMO ENTERO;DEFINIR mayor COMO ENTERO;PARA indice <-0 HASTA 19 CON PASO 1 HACER
ESCRIBIR ("Introduce un número");LEER indice;
FINPARAMayor <- n[1];
PARA indice <-0 HASTA 19 CON PASO 1 HACERSI (n[indice] > mayor) ENTONCES
mayor_indice <-indice;FINSI
FINPARAESCRIBIR (mayor_indice);
FINPROCESO
PROCESO ejercicio_33 DIMENSION A[16] ;DIMENSION B[16];DEFINIR indice COMO ENTERO;DEFINIR suma COMO ENTERO;DIMENSION C[16];DEFINIR A, B, C COMO ENTEROS;
PARA indice <- 1 HASTA 15 CON PASO 1 HACERESCRIBIR ("Introduce un número para el vector A");LEER A[indice];ESCRIBIR ("Introduce un número para el vector B");LEER B[indice];
FINPARAPARA indice <- 1 HASTA 15 CON PASO 1 HACER
Suma <- A[indice] + B[indice];C[indice] <- suma;
FINPARAPARA indice <- 1 HASTA 15 CON PASO 1 HACER
ESCRIBIR C[indice];FINPARA
FINPROCESO
PROCESO ejercicio_34 DIMENSION A[16];DIMENSION B[16];DIMENSION C[16];DEFINIR indice COMO ENTERO;DEFINIR suma COMO ENTERO;DEFINIR mayor COMO ENTERO;DEFINIR mayor_indice COMO ENTERO;DEFINIR A, B, C COMO ENTEROS;
PARA indice <- 1 HASTA 15 CON PASO 1 HACERESCRIBIR ("Introduce un número para el vector A");LEER A[indice];
FINPARAPARA indice <-1 HASTA 15 CON PASO 1 HACER
32
ESCRIBIR ("Introduce un número para el vector B");LEER B[indice];
FINPARAPARA indice <-1 HASTA 15 CON PASO 1 HACER
suma <- A[indice] + B[indice];C[indice] <- suma;
FINPARAmayor <- C[1];mayor_indice <- 1;
PARA indice <-1 HASTA 15 CON PASO 1 HACERSI (C[indice] > mayor) ENTONCES
mayor_indice <- indice;mayor <- C[indice];
FINSIFINPARAESCRIBIR (mayor);ESCRIBIR (mayor_indice);
FINPROCESO
PROCESO ejercicio_35 DEFINIR intercambio COMO ENTERO;DIMENSION n[15];DEFINIR intermedio COMO ENTERO;DEFINIR indice COMO ENTERO;DEFINIR n COMO ENTERO;PARA indice <-0 HASTA 14 CON PASO 1 HACER
ESCRIBIR ("Introduce un número");LEER n[indice];
FINPARAREPETIR
intercambio <- 0;PARA indice <-0 HASTA 14 CON PASO 1 HACER
SI (n[indice] > n[indice + 1]) ENTONCESintermedio <- n[indice];n[indice] <- n[indice + 1];n[indice + 1] <- intermedio;intercambio <- 1;
FINSIFINPARA
HASTA QUE (intercambio = 0)FINPROCESO
PROCESO ejercicio_36 DIMENSION A[10];DEFINIR numero COMO ENTERO;DEFINIR indice COMO ENTERO;DEFINIR A COMO ENTERO;
PARA indice <-0 HASTA 9 CON PASO 1 HACERESCRIBIR ("Introduce un número");LEER A[indice];
FINPARAindice <-1;
MIENTRAS (indice < 11) & (numero <> A[indice]) HACER
33
indice <-indice + 1;FINMIENTRAS
SI (indice <-11) ENTONCESESCRIBIR ("No está");
SINOESCRIBIR ("Existe");
FINSIFINPROCESO
PROCESO ejercicio_37 DIMENSION n[10];DEFINIR indice COMO ENTERO;DEFINIR factorial COMO ENTERO;DEFINIR indice1 COMO ENTERO;DEFINIR n COMO ENTERO;PARA indice <- 0 HASTA 9 CON PASO 1 HACER
ESCRIBIR ("Introduce un número");LEER n[indice];
FINPARAPARA indice <- 0 HASTA 9 CON PASO 1 HACER
factorial <- 1;PARA indice1 <- 3 HASTA n[indice] CON PASO 1 HACER
factorial <- factorial * indice1;FINPARAN[indice] <- factorial;
FINPARAPARA indice <-0 HASTA 9 CON PASO 1 HACER
ESCRIBIR n[indice];FINPARA
FINPROCESO
PROCESO ejercicio_38 DIMENSION vector[20];DIMENSION ordenado[20];DEFINIR vector COMO ENTERO;DEFINIR ordenado COMO ENTERO;DEFINIR aux COMO ENTERO;DEFINIR i COMO ENTERO;DEFINIR j COMO ENTERO;PARA i <-0 HASTA 19 CON PASO 1 HACER
LEER vector[i];FINPARA
PARA i <- 0 HASTA 19 CON PASO 1 HACERPARA i <- 0 HASTA 19 CON PASO 1 HACER
SI vector[i]>vector[j] ENTONCESaux<-vector[i];vector[i]<-vector[j];vector[j]<-aux;
FINSIFINPARA
FINPARA
PARA i <-0 HASTA 19 CON PASO 1 HACER
34
ordenado[i]<-vector[i];ESCRIBIR ordenado[i];
FINPARAFINPROCESO
//http://programadoraplicaciones.bichotoblog.com/programacion/continuando-con-pseudocodigo.html
PROCESO ejercicio_39 // Habilitar permitir usar variables paras dimensionar arreglos en opciones de lenguaje//Nota: Las dimensiones variables tienen que ir después de la lectura de la cantidad de sus elementos
DIMENSION A[5,10];DIMENSION B[5,10];DEFINIR A, B COMO ENTEROS;DEFINIR suma COMO ENTERO;DEFINIR fila COMO ENTERO;DEFINIR columna COMO ENTERO;
PARA fila <- 0 HASTA 4 CON PASO 1 HACERPARA columna <- 0 HASTA 9 CON PASO 1 HACER
LEER A[fila,columna];FINPARA
FINPARAPARA fila <- 0 HASTA 4 CON PASO 1 HACER
PARA columna <- 0 HASTA 9 CON PASO 1 HACERLEER B[fila,columna];
FINPARAFINPARADIMENSION suma[fila,columna];
PARA fila <- 0 HASTA 4 CON PASO 1 HACERPARA columna <- 0 HASTA 9 CON PASO 1 HACER
suma[fila,columna] <- A[fila,columna] + B[fila,columna];FINPARA
FINPARAESCRIBIR (suma[fila,columna]);
FINPROCESO
//http://programador-apli.blogspot.com/2012/04/sumar-las-filas-y-columnas-de-una.html
35
PROCESO ejercicio_40 DIMENSION A[5,4];DEFINIR A COMO ENTERO;DEFINIR fila COMO ENTERO;DEFINIR columna COMO ENTERO;DEFINIR mayor COMO ENTERO;DEFINIR posicion_fila COMO ENTERO;DEFINIR posicion_columna COMO ENTERO;
PARA fila <- 0 HASTA 4 CON PASO 1 HACERPARA columna <- 0 HASTA 3 CON PASO 1 HACER
ESCRIBIR ("Introduce un número");LEER A[fila,columna];
FINPARAFINPARAMayor <- A[1,1];posicion_fila <- 1;posicion_columna <- 1;PARA fila <- 0 HASTA 4 CON PASO 1 HACER
PARA columna <- 0 HASTA 3 CON PASO 1 HACERSI (A[fila,columna] > mayor) ENTONCES
Mayor <- A[fila,columna];posicion_fila <- [fila];posicion_columna <- [columna];
FINSIFINPARA
ESCRIBIR ("El mayor es: "), mayor;ESCRIBIR ("La posición es: "), posicion_fila, posicion_columna;
FINPARAFINPROCESO
36
PROCESO ejercicio_41 DIMENSION A[4,3];DEFINIR A COMO ENTERO;DEFINIR fila COMO ENTERO;DEFINIR columna COMO ENTERO;DEFINIR mayor COMO ENTERO;DEFINIR menor COMO ENTERO;DEFINIR posicion_fila COMO ENTERO;DEFINIR posicion_columna COMO ENTERO;DEFINIR posicion_fila1 COMO ENTERO;DEFINIR posicion_columna1 COMO ENTERO;
PARA fila <- 0 HASTA 3 CON PASO 1 HACERPARA columna <- 0 HASTA 2 CON PASO 1 HACER
ESCRIBIR ("Introduce un numero");LEER A[fila,columna];
FINPARAFINPARAMayor <- A[1,1];Posicion_fila <- 1;Posicion_columna <- 1;PARA fila <- 0 HASTA 3 CON PASO 1 HACER
PARA columna <- 0 HASTA 2 CON PASO 1 HACERSI (A[fila,columna] > mayor) ENTONCES
Mayor <- A[fila,columna];Posicion_fila <- [fila];Posicion_columna <- [columna];
FINSIFINPARAESCRIBIR ("El mayor es: "), mayor;ESCRIBIR ("La posición es: "), posicion_fila, posicion_columna;
FINPARAMenor <- 1;Posicion_fila1 <- 1;Posicion_columna1 <- 1;PARA fila <- 0 HASTA 3 CON PASO 1 HACER
PARA columna <- 0 HASTA 2 CON PASO 1 HACERSI (A[fila,columna] < menor) ENTONCES
Menor <- A[fila,columna];Posicion_fila1 <- [fila];Posicion_columna1 <- [columna];
FINSIFINPARA
FINPARAESCRIBIR ("El menor es: "), menor;ESCRIBIR ("La posición es: "), posicion_fila1, posicion_columna1;
FINPROCESO
37
PROCESO ejercicio_42 //resultado muchas veces incorrecto, problema de código (ir al índice)
DEFINIR indice COMO ENTERO;DEFINIR pul COMO ENTERO;DEFINIR tipo COMO CARACTER;DEFINIR numero COMO ENTERO;DEFINIR cociente COMO ENTERO;DEFINIR divisor COMO ENTERO;DEFINIR resto COMO ENTERO;DIMENSION resultado[20];DEFINIR resultado COMO CADENA;ESCRIBIR ("Ingrese un número");LEER numero;ESCRIBIR ("Ingrese el tipo de base");LEER tipo; // O,H,Bcociente <- numero;SEGÚN tipo HACER
'B': divisor <- 2;'O': divisor <- 8;'H': divisor <- 16;
FINSEGÚNpul <- 0;
REPETIRpul <- pul + 1;resto <- cociente % divisor;SEGÚN resto HACER
10: resultado[pul] <- 'A';11: resultado[pul] <- 'B';12: resultado[pul] <- 'C';13: resultado[pul] <- 'D';14: resultado[pul] <- 'E';15: resultado[pul] <- 'F';De Otro Modo: resultado[pul] <- convertiratexto(resto);
FINSEGÚNcociente <- trunc(cociente/divisor);
HASTA QUE (cociente = 0)PARA indice <-pul HASTA 1 CON PASO -1 HACER
ESCRIBIR (resultado[pul]);FINPARA
FINPROCESO
Código fuente (con errores):
#include <stdio.h>#include <stdlib.h>#include <conio.h>
int main(){int indice;int pul;char tipo;int numero;int cociente;int divisor;
38
int resto;char resultado[20];
printf ("Ingrese un n£mero ");scanf ("%d", &numero);fflush(stdin);printf ("Ingrese el tipo de base ");fflush(stdin);scanf ("%c", &tipo); // O,H,Bcociente = numero;switch (tipo){case 'B':
divisor = 2;break;
case 'O':divisor = 8;break;
case 'H':divisor = 16;break;
}pul = 0;
do{pul = pul + 1;resto = cociente % divisor;switch(resto){case 10:
resultado[pul] = 'A';break;
case 11:resultado[pul] = 'B';break;
case 12:resultado[pul] = 'C';break;
case 13:resultado[pul] = 'D';break;
case 14:resultado[pul] = 'E';break;
case 15: resultado[pul] = 'F';break;
default: resultado[pul] = resto;
}cociente = (int)cociente/divisor;}while (cociente != 0);
for(indice = pul; indice >= 1; indice--){printf("%d", resultado[pul]);
}getch();return 0;
39
PROCESO ejercicio_43 DIMENSION A[20]; //de 20 elementosDEFINIR indice COMO ENTERO;DEFINIR suma COMO ENTERO;DEFINIR mayor COMO ENTERO;DEFINIR A COMO ENTERO;PARA indice <- 0 HASTA 19 CON PASO 1 HACER
ESCRIBIR ("Introduce un número");LEER A[indice];
FINPARAsuma <- 0;PARA indice <- 2 HASTA 19 CON PASO 2 HACER
suma <- suma + A[indice];FINPARAmayor <- A[1];PARA indice <- 0 HASTA 19 CON PASO 2 HACER
SI (A[indice] > mayor) ENTONCESmayor <- A[indice];
FINSIFINPARAESCRIBIR ("La suma es: "), suma;ESCRIBIR ("El mayor es: "), mayor;
FINPROCESO
41
PROCESO ejercicio_44 DIMENSION A[4,5];DEFINIR A COMO ENTERO;DEFINIR fila COMO ENTERO;DEFINIR columna COMO ENTERO;DIMENSION V[20];DEFINIR V COMO ENTERO;DEFINIR indice COMO ENTERO;DEFINIR intercambio COMO ENTERO;DEFINIR intermedio COMO ENTERO;DEFINIR saltador COMO ENTERO;
PARA fila <- 0 HASTA 3 CON PASO 1 HACERPARA columna <- 0 HASTA 4 CON PASO 1 HACER
ESCRIBIR ("Introduce un número");LEER A[fila,columna];
FINPARAFINPARA
saltador<-0;
PARA fila <- 0 HASTA 3 CON PASO 1 HACERPARA columna <- 0 HASTA 4 CON PASO 1 HACER
//V[((fila - 1) + 5) + columna] <- A[fila,columna];V[columna+saltador] <- A[fila,columna];SI columna % 5 = 0 entonces
saltador<-saltador+5;FINSi
FINPARAFINPARA
REPETIRIntercambio <- 0;PARA indice <- 0 HASTA 18 CON PASO 1 HACER
SI (V[indice] > V[indice + 1]) ENTONCESIntermedio <- V[indice];V[indice] <- V[indice +1];V[indice +1] <- intermedio;Intercambio <- 1;
FINSIFINPARA
HASTA QUE (intercambio = 0)
PARA fila <- 0 HASTA 3 CON PASO 1 HACERPARA columna <- 0 HASTA 2 CON PASO 1 HACER
A[fila,columna] <- V[((fila - 1) * 5) + columna];FINPARA
FINPARA
Para fila <- 0 HASTA 19 CON PASO 1 HACERESCRIBIR V[fila];
FINPARAFINPROCESO
42
PROCESO ejercicio_45 DIMENSION A[4,5];DEFINIR intermedio COMO ENTERO;DEFINIR intercambio COMO ENTERO;DEFINIR fila COMO ENTERO;DEFINIR columna COMO ENTERO;DEFINIR A COMO ENTERO;PARA fila <- 0 HASTA 3 CON PASO 1 HACER
PARA columna <- 0 HASTA 4 CON PASO 1 HACERESCRIBIR ("Introduce un número");LEER A[fila,columna];
FINPARAFINPARAREPETIR
intercambio <- 0;PARA fila <- 0 HASTA 3 CON PASO 1 HACER
PARA columna <- 0 HASTA 2 CON PASO 1 HACERSI (A[fila,columna] > A[fila,columna + 1]) ENTONCES
intermedio <- A[fila,columna];A[fila,columna] <- A[fila,columna + 1];A[fila,columna + 1] <- intermedio;intercambio <- 1;
FINSIFINPARA
FINPARAHASTA QUE (intercambio = 0)PARA fila <- 0 HASTA 3 CON PASO 1 HACER
ESCRIBIR A[fila,columna];FINPARA
FINPROCESO
43
PROCESO ejercicio_46 DIMENSION A[20];DEFINIR A COMO ENTERO;DEFINIR indice COMO ENTERO;DEFINIR indice1 COMO ENTERO;
PARA indice <- 0 HASTA 19 CON PASO 1 HACERESCRIBIR ("Introduce un número");LEER A[indice];
FINPARAPARA indice <- 0 HASTA 19 CON PASO 1 HACER
indice1 <- 2;MIENTRAS (indice1 < A[indice]) & (A[indice] % indice1 <> 0) HACER
indice1 <- indice1 + 1;FINMIENTRASSI (indice1 = A[indice]) ENTONCES
ESCRIBIR A[indice], (" es primo");FINSI
FINPARAFINPROCESO
Otro ejercicio
http://programadoraplicaciones.bichotoblog.com/continu&o-con-pseudocodigo/
44