Aprendizaje Significativo

Solo disponible en BuenasTareas
  • Páginas : 4 (762 palabras )
  • Descarga(s) : 0
  • Publicado : 17 de febrero de 2013
Leer documento completo
Vista previa del texto
2°parcial 26/6/2012
Una distribuidora de artículos de fotografía (memorias, pilas, carrier, USB, etc.) necesita actualizar la información que dispone acerca de la mercadería que se tiene en stock,a partir de las compras y ventas realizadas en el transcurso de una semana. Para esto dispone de los archivos StockArtículo y Novedades.
Archivo StockArtículo contiene los datos de los artículos enstock. Este archivo está ordenado en forma ascendente por el campo código.
Estructura de registro:
Código | 4 digitos |
Descripción | 40 caracteres |
Cantidad en stock | entero |

ArchivoNovedades contiene todos los movimientos de la semana (que modificarán del stock por compra o venta de mercadería), Este archivo está ordenado en forma ascendente por el campo código.
Estructura delregistro:
Código | 4 digitos |
Tipo de operación | 1 carácter(C-compra, V-venta) |
Cantidad | entero |
A partir de la información de estos dos archivos se requiere generar un nuevo archivo StockActualizado con la misma estructura del StockArtículo.
Además se requiere ir generando a medida que se realiza la actualización un listado que realiza la actualización, un listado que informe por cadaartículo en stock: código, descripción, cantidad en stock y el valor en pesos de la mercadería almacenada. Para calcular el valor de la mercadería se cuenta con el archivo PrecioArtículo.
ArchivoPrecioArtículo tiene a lo sumo 3000 artículos.Este archivo no está ordenado.
Código | 4 dígitos |
Precio | Real |

type
treg1=record
Código: string [4];
Descripción: string [40];Cantidad:integer;
End;
Treg2=record
Código:string[4];
Tipo:char;
Cantidad:integer;
End;
Treg4=record
Código:string;
Precio:real;
End;
Telemento=record
Código:string[4];
Pos:longint;Tarch1=file or Treg1;
Tarch2=file of Treg2;
Tarch4=file of Treg4;
TV=array [1..3000]of Telemento;

Procedure LEER1(var StockArtículo:Tarch1,var R1:Treg1,var FIN1:boolean)
Begin
FIN1:=false;
If...