TAREA DE SUBPROCESOS, PROCESOS Y FUNCIONES

 A Continuación:

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

Ejercicio 6: Crea una función Es Par que devuelva el valor lógico "verdadero" o "falso" según si el número que se indique como parámetro es par o no lo es.

Funcion pary <- nombre (acum)

definir n como entero;

Escribir 'Escribir un numero';

Leer n;

Si n mod 2 == 0 Entonces

Escribir 'VERDADERO';

SiNo

Escribir 'FALSO';

FinSi

FinFuncion

Proceso PARY2

acum <- nombre(acum);

Escribir pary;

FinProceso

Ejercicio 7: Crea una función Cubo, que reciba un número y lo devuelva elevado al cubo.

SubProceso resultado <- potencia (base)

resultado <- base^3;

FinSubProceso

Proceso ejercicio_funciones_1

escribir 'Introduce la Base';

resultado <- potencia (base);

Escribir "";

Escribir 'VALOR AL CUBO ES = ' ,resultado;

FinProceso

Ejercicio 8: Crea una función Iniciales, que devuelva una cadena formada por las iniciales de la frase que se indique como parámetro (primera letra y la letra que haya tras cada espacio; por ejemplo, para "Nacho Cabanes" devolvería "NC").

funcion inicio <- ini(cio)

Leer cadena1,cadena2;

cadena3 <- subcadena(cadena1,1,1);

cadena4 <- Subcadena(cadena2,1,1);

Escribir 'Iniciales = ',cadena3,cadena4;

FinFuncion

Proceso iniciales

Definir cadena1,cadena2,cadena3,cadena4 como caracter;

Escribir 'Ingrese Cadena';

cade <- ini(cio);

FinProceso

Ejercicio 9: Crea una función Contiene, que reciba una cadena y una (posible) subcadena, y devuelva "verdadero" o "falso", según si la primera contiene a la segunda (como "Nacho" contiene "ac") o no la contiene, (como "Aurora" no contiene "sol").

Funcion Cont <- tiene(cunt)

suma=0;

leer pala1;

leer pala2;

tamaño1=Longitud(pala1);

tamaño2=Longitud(pala2);

Dimension alm1[tamaño1];

Dimension alm2[tamaño2];

para x=1 Hasta tamaño1 Hacer

alm1[x]=Subcadena(pala1,x,x);

Escribir Sin Saltar alm1[x]," ";

FinPara

Escribir "";

para x=1 Hasta tamaño2 Hacer

alm2[x]=Subcadena(pala2,x,x);

Escribir Sin Saltar alm2[x]," ";

FinPara

Escribir "";

para s=1 hasta tamaño2 Hacer

Para c=1 hasta tamaño1 Hacer

si alm1[c]==alm2[s] Entonces

suma=suma+1;

c=100;

FinSi

FinPara

FinPara

si tamaño2=suma Entonces

Escribir pala1," contiene a ",pala2;

SiNo

Escribir pala1," no contiene a ",pala2;

FinSi

FinFuncion

Proceso Contiene 

Escribir 'DAME DOS POSIBLES CONTENIDOS';

hola <- tiene(cunt);

FinProceso