Diseño de algoritmos

Inicio[pic 1]

Datos:

NUM entero DATOS entero TPAR entero TIMPAR entero

Código: TPAR = 0

TIMPAR = 0

DATOS = 0

Do

Imprimir "LEER NUMEROS" LEER NUM[pic 2]

If  (NUM % 2 = 0 ) Entonces

TPAR = TPAR +NUM Else

TIMPAR = TIMPAR + NUM End If

DATOS = DATOS+1

While (DATOS >=20)

Imprimir "TOTAL PARES: ", TPAR Imprimir "TOTAL IMPARES: ", TIMPAR

Fin

Inicio[pic 3]

Datos:

NDATOS entero TEMPORAL entero TEXTO String NOMBRE       String

Código: NDATOS = 1

TEMPORAL = 0

Do

Imprimir "DIGITAR EL TEXTO ", NDATOS

leer TEXTO;

[pic 4]MAYOR= LONGITUD(TEXTO)

If (TEMPORAL= MAYOR) Entonces

NOMBRE= TEXTO Else

If (MAYOR > TEMPORAL) Entonces

TEMPORAL = MAYOR NOMBRE = TEXTO

End If

End If

NDATOS = NDATOS +1

While (NDATOS > 10)

Imprimir "MAYOR: ", TEMPORAL Imprimir "EL TEXTO ES: ", NOMBRE

Fin

Inicio[pic 5]

Datos:

MENOR      entero TNUM        entero DATOS       entero NUMERO entero MEDIA     real

Código:

MENOR = 9999999

TNUM = 0

DATOS = 1

[pic 6]While ( DATOS <=20)  Hacer

IMPRIMIR "LEER NUMERO " DATOS LEER NUMERO;

TNUM = TNUM + NUMERO

If (NUMERO < MENOR) Entonces

MENOR = NUMERO End If

DATOS = DATOS +1

End While

MEDIA = TNUM/20;

IMPRIMIR "NUMERO MENOR ", MENOR IMPRIMIR "TOTAL MEDIA " , MEDIA

Fin

Inicio[pic 7]

Datos:

NUM entero DATOS entero CONT   entero

I              entero

TOTAL_NUM_PRIMO entero

Código: CONT <-0

I =1

TOTAL_NUM_PRIMO = 0

TNO=0

DATOS = 0

While ( DATOS < 5) Hacer IMPRIMIR "LEER NUMERO" LEER NUM

[pic 8]IF ( NUM < 0) Entonces

IMPRIMIR "DIGITE OTRO VALOR" End If

While ( I <= NUM ) Hacer

If ( NUM % I = 0) Entonces

CONT<- CONT +1

End If

I =  I+1

End While

If ( CONT =2) Entonces

TOTAL_NUM_PRIMO =TOTAL_NUM_PRIMO + 1

...