Pascal/Turbo Pascal - Alguna ayuda con registros en Pascal

   
Vista:

Alguna ayuda con registros en Pascal

Publicado por Federico (10 intervenciones) el 16/11/2013 01:31:25
El ejercicio es:

En un supermercado necesitan mantener información sobre los artículos para la venta. Declarar un nuevo tipo de dato que se llame “Articulo” de acuerdo a la especificación al pie. Declare dos variables, una de nombre desodorante y otra de nombre lavandina que sean de este nuevo tipo de dato y luego desarrolle un programa para que el usuario ingrese los valores de cada uno de los “campos” que tienen estas variables. Por último, muestre por pantalla los valores cargados código y descripción de ambas variables.


que arreglo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program Ejercicio;
type
      articulo = record
          codigo: word;
          descripcion: string [30];
          existencia: byte;
          tipo: byte;
          precio_vta: real;
     end;
     Tvector= array [1..100] of articulo;
var
           desodorante, lavandina: articulo;
           i, N: byte;
           v: Tvector;
Begin
           write ('Ingrese tamaño del vector (MAX 100): ');
           readln (N);
          for i:= 1 to N do
          begin
                    write ('Ingrese codigo: ');    readln (v[i].codigo);
                    write ('Ingrese descripcion: ');    readln (v[i].descripcion);
                    write ('Ingrese existencia: ');    readln (v[i].existencia);
                    write ('Ingrese tipo: ');    readln (v[i].tipo);
                    write ('Ingrese precio_vta: ');    readln (v[i].precio_vta);
          end;
          for i := 1 to N do
          begin
                   writeln ('El codigo del ',i,' articulo es: ',v[i].codigo);
                   writeln ('La descripcion del ',i,' articulo es: ',v[i].descripcion);
         end;
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