PRÁCTICA NUMERO DOS

3. Escriba “Digite la cantidad de numeros a Ingresar:”
Lea num



contador = 1



Mientras contador <= num Haga

ENQUEUE (Q1, x)

Lea x



Q1 tail [Q1] <- x

Si tail [Q1] = length [Q1]

Entonces tail [Q1] <- 1

Si no tail [Q1] <- tail [Q1] + 1



Contador = contador +1



Fin Mientras

PRÁCTICA NUMERO DOS

2. Smatricula Pila (30) matriculas



Inicio

Smatricula Array [1,30]



matri=0

contador=1



Escriba “Digite el Numero de Matriculas a Ingresar:”
Lea num



Mientras contador <= num Haga

Leer matri

PUSH (Smatricula, matri)

contador = contador+1

Fin mientras

Fin



PUSH (Smatricula,matri)

Top [Smatricula] <- top [Smatricula] + 1

Smatricula [top[Smatricula]] <- x

PRÁCTICA NUMERO DOS

PRÁCTICA NÚMERO DOS

(Pilas y Colas)

1. Sletras Pila (28) letras

Sdigitos Pila (10) digitos

Scaracteres Pila(25) caracteres

Inicio

Sletras Array [a,z]

Sdigitos Array [0,9]

Scaracteres Array [ª, º, !, “, @, |, ·, #, $, ~, %, €, &, ¬, /, =, ¿, ‘, ¡, ¿, /, *, -, +, Ç]

Escriba “Digite la cantidad de caracteres, números o digitos a ingresar:”

Lea num

contador = 1

Mientras contador <= num Haga

Escriba “Presione una tecla:”
Lea x

Si x = Sletras

STACK_FULL (Sletras) es falso

PUSH (Sletras,x)

Si no

STACK_FULL (Scaracteres) es falso

PUSH (Scaracteres, x)

Si x = Sdigitos

STACK_FULL (Sdigitos) es falso

PUSH (Sdigitos,x)

contador = contador + 1

Fin si

Fin

STAK_FULL (Sletras)

Si Sletras [top[Sletras]] = Maximum (Sletras)

Entonces Retorne Verdadero

SI no Retorne Falso

STAK_FULL (Scaracteres)

Si Scaracteres [top[Scaracteres]] = Maximum (Scaracteres)

Entonces Retorne Verdadero

SI no Retorne Falso

STAK_FULL (Sdigitos)

Si Sdigitos [top[Sdigitos]] = Maximum (Sdigitos)

Entonces Retorne Verdadero

SI no Retorne Falso

PUSH (Sletras,x)

Top [Sletras] <- top [Sletras] + 1

Sletras [top[Sletras]] <- x

PUSH (Scaracteres,x)

Top [Scaracteres] <- top [Scaracteres] + 1

Scaracteres [top[Scaracteres]] <- x

PUSH (Sdigitos,x)

Top [Sdigitos] <- top [Sdigitos] + 1

Sdigitos [top[Sdigitos]] <- x

PRÁCTICA EN LPP

Registro TProductos
Entero referencia
Entero precio
Entero costo
Entero color
Cadena [60] descripcion
Cadena [20] ubicacion

Fin Registro

Tipo TArch es archivo de TProductos

TArch arch
Entero opcion

Procedimiento Ingresar
TProductos productos

inicio
Llamar Limpiar_Pantalla ()
Llamar Color_Fondo(003322)
Llamar Posicionar_Cursor(12,4)
Escriba "LINA MARIA JARAMILLO JARAMILLO--ELIAN MARCELA GOMEZ MUNOZ"
Llamar Posicionar_Cursor(30,7)
Escriba "INGRESO DE PRODUCTOS"
Llamar Posicionar_Cursor(15,11)
Escriba "Ingrese Referencia del Producto:"
Lea productos.referencia
Llamar Posicionar_Cursor(15,14)
Escriba "Ingrese la Descripcion del Producto:"
Lea productos.descripcion
Llamar Posicionar_Cursor(15,17)
Escriba "Ingrese la Ubicacion del Producto:"
Lea productos.ubicacion
Llamar Posicionar_Cursor(15,20)
Escriba "Ingrese el costo del Producto:"
Lea productos.costo
Llamar Posicionar_Cursor(15,23)
Escriba "Ingrese el precio del Producto:"
Lea productos.precio
Llamar ir_a_Fin(arch)
Escribir arch,productos
Fin

Procedimiento Listar
TProductos productos
Entero Linea
Caracter ch

Inicio

Llamar Limpiar_Pantalla()
Llamar Color_Fondo(003322)
Llamar ir_a_inicio(arch)
Llamar Posicionar_Cursor(12,4)
Escriba "LINA MARIA JARAMILLO JARAMILLO--ELIAN MARCELA GOMEZ MUNOZ"
Llamar Posicionar_Cursor(5,7)
Escriba "REFERENCIA"
Llamar Posicionar_Cursor(20,7)
Escriba "DESCRIPCION"
Llamar Posicionar_Cursor(40,7)
Escriba "UBICACION"
Llamar Posicionar_Cursor(55,7)
Escriba "COSTO"
Llamar Posicionar_Cursor(70,7)
Escriba "PRECIO"
Llamar Posicionar_Cursor(5,8)
Escriba "_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
Linea<-10

Mientras No FDA(arch) Haga
Leer arch,productos
Llamar Posicionar_Cursor(5,Linea)
Escriba productos.referencia
Llamar Posicionar_Cursor(20,Linea)
Escriba productos.descripcion
Llamar Posicionar_Cursor (40,Linea)
Escriba productos.ubicacion
Llamar Posicionar_Cursor(55,Linea)
Escriba productos.costo
Llamar Posicionar_Cursor(70,Linea)
Escriba productos.precio

Linea<-Linea+1

Fin Mientras
ch<-Obtener_Caracter()

Fin

Inicio

Abrir "productos.txt" Como arch para Lectura, Escritura
Repita
Llamar Limpiar_Pantalla()
Llamar Color_Fondo(003322)
Llamar Posicionar_Cursor(12,4)
Escriba "LINA MARIA JARAMILLO JARAMILLO--ELIAN MARCELA GOMEZ MUNOZ"
Llamar posicionar_Cursor(30,7)
Escriba "REGISTRO DE PRODUCTOS"
Llamar Posicionar_Cursor(15,10)
Escriba "1.Presione para realizar el Registro de los productos"
Llamar posicionar_cursor(15,14)
Escriba "2.Presione para Visualizar los productos ingresados"
Llamar Posicionar_Cursor(15,18)
Escriba "3.Presione para salir de la aplicacion"
Llamar Posicionar_Cursor(30,22)
Escriba "Elija una opcion:"
Lea opcion
Caso opcion
1:
Llamar Ingresar()
2:
Llamar Listar()

Fin caso
Hasta opcion=3
Cerrar arch
Fin

El nombre de algoritmo nace gracias a...

El matemático y astrónomo Al-Khowarismi(780-850) miembro de la "Casa de la sabiduría" fundada en Bagdad, la ciudad de las Mil y una noches, por el califa Al-Mamun (809-833). Allí trabajaron sabios judíos y cristianos procedentes de Siria, Irán y Mesopotamia.Al-Khowarizmi escribió varios libros de astronomía, uno de álgebra y otro sobre aritmética (traducidos al latín en el s. IX por Adelardo de Bath y Roberto de Chester), en el que hace una exposición exhaustiva del sistema de numeración hindú. Este sistema se empezó a conocer como «el de Al-Khowarizmi» y, por las deformaciones que tuvo, bien por transmisión o por traducción, llegó a la palabra «algorismi», «algorismo» o «algoritmo».

(José Luis Ruiz Fernández Profesor de Matemáticas del IES
Padre J.Miravent de Isla Cristina (Huelva) )

ALGORITMOS

Se define como grupo limitado de pasos expresados claramente y sin ambigüedad de acuerdo a un grupo de condiciones iniciales, al ejecutarse produce unos resultados en un tiempo limitado.

Conjunto de pasos e instrucciones que se realizan de manera ordenada y coherente y se utiliza para lograr un objetivo.

PALABRAS RESERVADAS

-INICIO: Begin
-FIN: End
-LEER: Read
-ESCRIBIR: Print
-MIENTRAS: While
-REPITA: Repeat
-HASTA: To
-PARA: For
-INCREMENTAR: Add
-DECREMENTAR: Substract
-HACER: Do
-FUNCIÓN: Function
-ENTERO: Integer
-REAL: Real
-CARACTER: Char
-RETORNAR: Return
-CADENA: Chain
-LÓGICO: Logical
-SI: If

PASOS PARA LLEVAR A CABO UN ALGORITMO

1. DEFINICIÓN DEL PROBLEMA: Entender el problema (temática a tratar)
2. ANÁLISIS DEL PROBLEMA: Estudiarlo, investigarlo, explorarlo (actividades a realizar)
3. DISEÑO DE LA SOLUCIÓN: Escribir el algoritmo (presentación formal)

CARACTERISTICAS DE UN ALGORITMO

-Preciso
-Definido
-Finito
-Presentación formal
-Eficiente