Pascal/Turbo Pascal - ayuda con pascal

   
Vista:

ayuda con pascal

Publicado por heisei (1 intervención) el 04/02/2009 10:49:31
necesito ayuda por favor
> Realizar en Pascal un Software administrativo que le permita a la
> empresa XXX contar con herramientas para procesar, almacenar y
> recuperar datos e información, en forma ágil, y así soportar las
> operaciones y la toma de decisiones del negocio.
>
> El programa está dividido en los siguientes módulos:
> 1.Inventario: el cual se encarga de cargar al sistema los datos de los
> productos y/o servicios ofrecidos por la empresa.
> 2.Facturación: este módulo gestiona las compras de productos y/o
> servicios realizadas por los clientes. Cabe destacar que para poder
> comprar un producto es necesario que se encuentre sus datos cargados y
> se encuentren en existencia.
> 3.Reportes: permite visualizar listado de clientes, inventario, de los
> productos comprados en una Factura determinada.
>
> Posibles Datos del cliente:
> Cédula, Nombre, Apellido y Dirección.
>
> Posibles Datos del producto y/0 servicio:
> IdProducto, Nombre o Descripción, Marca, Modelo, precio, Existencia.
>
> Posibles Datos de Facturación:
> IdFactura, Cédula, IdProductos, Cantidad, total.
>
> Observaciones:
> 1. Hacer uso de la programación modular realizando funciones y/o
> procedimientos invocados por un programa principal.
> 2. Utilizar arreglos de estructuras de datos para almacenar la
> información del inventario, cliente y factura.
> 3. Debe cargar por código un mínimo de 5 productos y/0 servicio y 2
> clientes y 2 facturas.
> 4. Comentar por lo menos las variables más importantes y los
> subprogramas.
>
>
> Entregables para el día 2 y 3 de Febrero:
> 1.Trabajo escrito: Portada, planteamiento del problema, Diagrama Top–
> Down, Descripción de los subprogramas, Código fuente comentado,
> Conclusiones y Recomendaciones.
> 2. Programa .pas



PROGRAM JUGUETERIA_VICTORIA;
uses
crt;

const
limiteCliente=100;
limiteProducto=100;

type clientes= record
nombreCliente: string[15];
apellidoCliente: string[15];
direccionCliente:string[15];
cedulaCliente:string[15];

end;
productos=record
idProducto:integer;
nombreProducto: string[15];
marcaProducto: string[15];
modeloProducto:string[15];
precioProducto:integer;
cantidad:integer;
end;
facturas=record
idFactura:string[15];
cedulaCliente: string[15];
idProducto: array[1..50]of integer;
cantidad:array[1..50]of integer;
total:integer;
end;

var
producto:integer;
productoVendido:integer;
cliente:integer;
factura:integer;

listaCliente:array[1..limiteCliente] of clientes;
listaProducto:array[1..limiteProducto] of productos;
listaFactura:array[1..25]of facturas;

procedure inicial;
begin
cliente:=0;
cliente:=cliente+1;
listaCliente[cliente].nombreCliente:='heisi';
listaCliente[cliente].apellidoCliente:='salazar';
listaCliente[cliente].cedulaCliente:='19417512';
listaCliente[cliente].direccionCliente:='el Tigre';

producto:=0;
producto:=producto+1;
listaProducto[producto].idProducto:=001;
listaProducto[producto].nombreProducto:='teresa';
listaProducto[producto].marcaProducto:= 'barbie';
listaProducto[producto].modeloProducto:='mu¤eca';
listaProducto[producto].precioProducto:=3000;

end;

procedure principal;
begin
clrscr;
textcolor(6); write( 'JUGUETERIA ');
gotoxy(26,1); write('') ;
gotoxy(26,2); write('') ;
gotoxy(26,3); write('');
gotoxy(26,4); write('');
gotoxy(26,5); write('');
gotoxy(26,6); write('');
writeln('');
textcolor(6);
end;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ayuda porfavor!! rapida

Publicado por alex (1 intervención) el 19/09/2009 00:09:27
necesito un programa realizado en pascal que sea el inventario de una empresa pero que no sea muy complejo, un inventario rapido de realizar no muy corto pero tampoco muy largo que yo lo pueda comprender usando los tipos de datos mas basicos en turbo pascal porfavor!! si me lo pueden enviar a mi correo lo mas rapido que puedan porfa gracias
buen dia
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar