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
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
0