Scribd
Cargar
20 vistas2 páginas

Sistema de Gestión de Farmacia

El documento describe un sistema de gestión para una farmacia que permite el registro de productos, cantidades y precios. Incluye un proceso de autenticación de usuario y opciones para ingresar datos o buscar productos existentes. Se implementan validaciones para asegurar que las cantidades y precios sean válidos antes de ser registrados.

Cargado por

josuedavidotero2
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como TXT, PDF, TXT o lee en línea desde Scribd
20 vistas2 páginas

Sistema de Gestión de Farmacia

El documento describe un sistema de gestión para una farmacia que permite el registro de productos, cantidades y precios. Incluye un proceso de autenticación de usuario y opciones para ingresar datos o buscar productos existentes. Se implementan validaciones para asegurar que las cantidades y precios sean válidos antes de ser registrados.

Cargado por

josuedavidotero2
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como TXT, PDF, TXT o lee en línea desde Scribd

REGISTRO: FARMACIA;

PRODUCTO: CADENA;
CANTIDAD: INT;
PRECIO: REAL;
FIN REGISTRO

REGISTRO: FARMACIA;
PRODUCTO: "VACIO";
CANTIDAD: "VACIO";
PRECIO: "VACIO";
FIN REGISTRO

INICIO
VAR FARMACIA: F[500]
BOOL: DATA, R = 1, VALIDO;
CADENA: USER, PASSWORD, PROD;
REAL: PRECIO;

MOSTRAR<<"BIENVENIDO AL AREA DE SALUD";


MOSTRAR<<""INGRESE UN NOMBRE DE USUARIO";
LEER>>USER;
MOSTRAR<"INGRESE UNA CONTRASEÑA";
LEER>>PASSWORD;

SI (USER == U[1010].USUARIO) AND (PASSWORD == U[1010].PASSWORD);

MOSTRAR<<"BIENVENIDO A LA FARMACIA";
MOSTRAR<<¿LA DATA ESTA VACIA O ESTA LLENA? 1 PARA SI, 0 PARA NO";
LEER<<DATA;

SI (DATA == 1);

MOSTRAR<<"INGRESE LOS PRODUCTOS, CANTIDAD Y PRECIOS


DE LA FARMACIA";

HAGA PARA (I = 1 HASTA I = 300);

MOSTRAR<<"INGRESE EL NOMBRE DEL PRODUCTO";


LEER>>F[I].PRODUCTO;
MOSTRAR<<"INGRESE LA CANTIDAD DEL PRODUCTO";
LEER>>F[I].CANTIDAD;

HAGA MIENTRAS (LEER>>F[I].CANTIDAD < 0)

MOSTRAR<<"INGRESE UNA CANTIDAD VALIDA";


LEER>>F[I].CANTIDAD;

FIN MIENTRAS;

MOSTRAR<<"INGRESE EL PRECIO DEL PRODUCTO";


LEER>>F[I].PRECIO;

HAGA MIENTRAS (F[I].PRECIO <= 0)

MOSTRAR<<"ERROR, INGRESE UN PRECIO VALIDO";


LEER>>F[I].PRECIO;

FIN MIENTRAS;
SINO
HAGA MIENTRAS (R==1);

MOSTRAR<<"INGRESA UNA OPCION 1) PARA BUSCAR UN


PRODUCTO, 2) PARA MODIFICAR LA DATA, 3) PARA DESPACHAR, 4) PARA SALIR DEL SISTEMA";
LEER>>OPCF;

HAGA MIENTRAS (OPCF < 1) AND (OPCF > 4);

MOSTRAR<<"ERROR, INGRESE UNA OPCION


VALIDA";
LEER>>OPCF;

FIN MIENTRAS;

EN CASO (OPCF > 0);

CASO (OPCF == 1);

MOSTRAR<<"INGRESA EL NOMBRE DEL


PRODUCTO";
LEER>>PROD;

HAGA PARA (I = 1 HASTA I = 500)

SI (PROD == F[I].PRODUCTO)

MOSTRAR<<F[I].PRODUCTO;
MOSTRAR<<F[I].CANTIDAD;
MOSTRAR<<F[I].PRECIO;
VALIDO = 1;
FIN SI

FIN PARA

FIN MIENTRAS;

También podría gustarte