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