Tarea

Computación para Ingenieros
Algoritmo
Programación Estructurada
Ejemplo de aplicación de Módulos:
Ordenamiento de datos
ALGORITMO Ordenamiento de datos empleando el Método de la BurbujaDeclaraciones globales
Constantes
MAXVAL=1000
Variables
Real: Lista[MAXVAL]
Entero: N
MODULO Principal()
1. Declaraciones
Variables
2. Pedir_Datos()
3. IMPRIMIR “\n Datos noordenados: “
4. Imprime_Lista()
5. Ordenar()
6. IMPRIMIR “\n Datos ya ordenados de menor a mayor: “
7. Imprime_Lista()
8. FINMODULO

MODULO Imprime_Lista()
1. Declaraciones
Variables
Entero:Indice
2. FOR Indice = 0, (N-1), 1
2.a. IMPRIMIR “\n”, Lista[Indice]
3. NEXT
FINMODULO

MODULO Pedir_Datos()
1. Declaraciones
Variables
1. DO
1.a. IMPRIMIR “\n ¿Cuántos valores se vana ordenar?”
1.b. LEER N
2. WHILE (NMAXVAL)
3. Valores()
4. FINMODULO
MODULO Valores()
1. Declaraciones
Variables
Entero: Indice
2. FOR Indice = 0, (N-1), 1
2.a. IMPRIMIR “\nTecleavalor “, (Indice+1), “: “
2.b. LEER Lista[Indice]
3. NEXT
4. FINMODULO
Ígor Clavel Herrera
www.lamochasoft.com

MODULO Ordenar()
1. Declaraciones
Variables
Entero: Indice, IntercambiosReal: Temporal
2. DO
2.a. Intercambios = 0
2.b. FOR Indice = 0, (N-2), 1
2.b.i. IF Lista[Indice]>Lista[Indice+1] THEN
2.b.i.1. Temporal = Lista[Indice+1]
2.b.i.2. Lista[Indice+1] =Lista[Indice]
2.b.i.3. Lista[Indice] = Temporal
2.b.i.4. Intercambios = Intercambios +1
2.b.ii. ENDIF
2.c. NEXT
3. WHILE Intercambios 0
4. FINMODULO

Computación para Ingenieros

Ejemplode aplicación de Funciones:
Cálculo de división entera
Entero: FUNCION Div_Entera(Entero: Valor, Entero: Divisor)
1. Declaraciones
Variables
Entero: Modulo, Resultado
2. Modulo = Valor MODDivisor
3. Valor = Valor - Modulo
4. Resultado = Floor(Valor / Divisor)
5. RETURN Resultado
6. FINFUNCION

Ígor Clavel Herrera
www.lamochasoft.com

Computación para Ingenieros