TAREA DE SUBPROCESOS, PROCESOS Y FUNCIONES

      Nombres: Quinatoa  Calderón Rusbert Alexander                                       Fecha: 01/09/2020  

Ejercicio 1: Crear un procedimiento EscribirCentrado, que reciba como parámetro un texto y lo escriba centrado en pantalla (suponiendo una anchura de 80 columnas; pista: deberás escribir 40 - longitud/2 espacios antes del texto).

Funcion centrar(cad)

Definir i como Entero;

Para i<-0 hasta (40 - (Longitud(cad)/2)) Hacer

Escribir sin saltar " ";

FinPara

Escribir cad;

Para i<-0 hasta (40 - (Longitud(cad)/2)) Hacer

Escribir sin saltar " ";

FinPara

Para i<-0 hasta Longitud(cad) Hacer

Escribir sin saltar "=";

FinPara

Escribir "";

FinFuncion

Proceso EscribirCentrado

Definir mensaje1,mensaje2 Como Caracter;

mensaje1 <- "Un mensaje centrado";

centrar(mensaje1);

mensaje2<-"Otro mensaje";

centrar(mensaje2);

FinProceso

Ejercicio 2: Crear una función CantidadDeDivisores, que reciba un número entero y devuelva la cantidad de divisores (por ejemplo, para el número 16, sus divisores son 1, 2, 4, 8, 16, por lo que la respuesta debería ser 5).

Funcion CantidadDeDivisores <- Divisor(divi)

cont <- 0;

Leer num;

Para i<-1 Hasta num Hacer

Si num MOD i  == 0 Entonces

cont <- cont+1;

FinSi

FinPara

Escribir  num ' Es Divisible para ',cont, ' Numeros';

FinFuncion

Proceso  Dividendo

Escribir 'Dame Un Numero';

nuum <- Divisor(divi);

FinProceso

Ejercicio 3: Crear un programa que pida dos números enteros al usuario y diga si alguno de ellos es múltiplo del otro. Crea una función EsMultiplo que te ayude a que el proceso principal sea legible.

Funcion multiplo <- EsMultiplo(num1,num2)

Definir multiplo Como Logico;

Si num1 % num2 = 0 Entonces

multiplo <- Verdadero;

SiNo

multiplo <- Falso;

FinSi

FinFuncion

Proceso CalcularMultiplo

Definir numero1,numero2 Como Entero;

Escribir Sin Saltar "Número 1:";

Leer numero1;

Escribir Sin Saltar "Número 2:";

Leer numero2;

Si EsMultiplo(numero1,numero2) Entonces

Escribir numero1," es múltiplo de ",numero2;

SiNo

Escribir numero1," no es múltiplo de ",numero2;

FinSi

FinProceso

Ejercicio 4: Crear un procedimiento EscribirEspaciado, que reciba como parámetro un texto y lo escriba con un espacio adicional tras cada letra. Por ejemplo, "Hola, tú" se escribiría "H o l a , t ú ".

Funcion cad_con_espacios <- ConvertirEspaciado(cad)

Definir cad_con_espacios como Caracter;

Definir i como Entero;

cad_con_espacios<-"";

Para i<-0 Hasta Longitud(cad) Hacer

cad_con_espacios<-Concatenar(cad_con_espacios,Subcadena(cad,i,i));

cad_con_espacios<-Concatenar(cad_con_espacios," ");

FinPara

FinFuncion

Proceso CadenaConEspacios

Definir mensaje Como Caracter;

Escribir Sin Saltar "Introduce una cadena:";

Leer mensaje;

Escribir "La cadena con espacio:";

Escribir ConvertirEspaciado(mensaje);

FinProceso

Ejercicio 5: Crea una función MayorDeTres, que reciba tres números enteros y devuelva el valor del mayor de ellos. Por ejemplo, para los números 5, 7 y 5, devolvería el valor 7.

Funcion mayorque <- nombre(num)

definir a,b,c Como Entero;

Escribir "Ingrese numeros";

leer a,b,c;

si a>b Entonces

si a>c Entonces

Escribir  a;

sino 

escribir c;

FinSi

SiNo

si b>c Entonces

escribir b;

Sino 

Escribir c;

FinSi

FinSi

FinFuncion

Proceso mayordetresnumeros

num <- nombre(num);

FinProceso