sexyser

Experiencia

FUNCIÓN es.epocalíptico (VALOR num = entero) = booleano
Cont 0
a 1
MIENTRAS cont < num HACER
a a * 2
Cont Cont + 1
FINMIENTRAS
Cantseis 0
Res 0
MIENTRAS (a > 1) o (Cantseis < 3) HACER
Res a resto 10
a a div 10
SI(res = 6) entonces
Cantseis cantseis + 1
SINO
Cantseis 0
FINSI
FINMIENTRAS
SI ( cantseis = 3 ) entonces
Es verdadero
SINO
Es falso
FINSI
DEVOLVER (Es)
FINFUNCION
Variables Locales: Cont, Res, Cantseis, a = entero ; Es = Boleano
Pre condiciones: ---
Pos condiciones: "Es" toma el valor de verdadero si cantseis llega al valor 3, sino "Es" toma es valor de falso
PROCEDIMIENTO llenar.arreglo (REF a=tarrent ; i=entero ; VALOR num, par=entero)
DIMENSIÓN a[par]
a num
FINPROCEDIMIENTO
Variables Locales = ---
Precondiciones = par >= 0
Pos Condiciones = Se dimensiona el arreglo a con la cantidad de apocalípticos pares, y después se introduce "num" en el arreglo.
PROCEDIMIENTO ordenar.arreglo.des ( REF a=tarrent ; i = entero ; par=entero)
aux 0
PARA ( i = 1 hasta i < par ) HACER
PARA (x = 1 hasta x < par) HACER
SI ( a[i+1] > a
) ENTONCES
aux a
a a
a
aux
FINSI
FINPARA
FINPARA
FINPROCEDIMIENTO
Variables Locales = X, aux : entero
Precondiciones = par>=0
Pos Condiciones = Se compara a con a
, si a es menor a a
, se cambian de lugar, sino, se pasa al siguiente elemento y se vuelven a comparar.
PROCEDIMIENTO Promedio ( REF = suma, promedio : entero ; VALOR = CE: entero)
suma suma + num
promedio suma /CE
FINPROCEDIMIENTO
Variables Locales = ---
Precondiciones = ---
Pos Condiciones = La variable "suma" va tomando el valor de la suma de los "num" impares ingresados, y al final se obtiene el promedio dividiendo a "suma" por la cantidad de elementos impares, y se le asigna el valor a la variable "promedio"
Gracias