[ Foro de Pascal ]

CODIGO EN PASCAL

Una empresa de limpieza dispone del siguiente arrays de registro con los datos: código de
rubro, código de artículo, descripción, stock mínimo, stock actual, precio unitario.
Se pide que:

1- Definan el registro necesario para guardar esta información en un array de tamaño 100.
2- Realicen una tabla con datos de ejemplo, considerando que los datos están ordenado
por código de rubro.
3- Escriban un proceso COMPRA para imprimir por rubro los artículos cuyo stock actual
sea menor al stock mínimo.
Nota: código de rubro se refiere a si es articulo de limpieza, comestible, varios, etc..



(ESTO DEBE SER ESCRITO EN CODIGO PASCAL)

Hola, en primer lugar debes buscar un tutorial sobre cómo declarar registros en Pascal, te adelanto que se requiere crear un "tipo registro" para luego declarar una "variable" que haga uso de él, esa variable puede ser un arreglo en el caso del problema que quieres resolver. Hice un código que corre en Turbo Pascal en el que se hace todo esto con una variable simple (no registro) con menos campos, se le dan valores a estos campos y luego se imprimen en pantalla. Espero que te sirva de guía y quisiera que  subas el código que hagas para revisarlo. Saludos.

program StockArticulos;

Type
  T_articulo = record
    codigo_articulo: String[4];
    descripcion: String[20];
    precio_unitario: real;
  end;

Var
  articulo: T_articulo;

BEGIN
  articulo.codigo_articulo:= '1234';
  articulo.descripcion:= 'Escoba de plastico';
  articulo.precio_unitario:= 12.50;

  writeln('El articulo introducido es: ');
  writeln('Codigo del articulo: ',articulo.codigo_articulo);
  writeln('Nombre del articulo: ',articulo.descripcion);
  writeln('Precio del articulo: ',articulo.precio_unitario:0:2);

  readln;
END.