Pascal/Turbo Pascal - Alguna ayuda para un registro con dos variables en Pascal

   
Vista:

Alguna ayuda para un registro con dos variables en Pascal

Publicado por Federico (10 intervenciones) el 19/11/2013 03:11:08
no se como hacer esto:

Ejercicio: 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.


articulo = record
codigo: word;
descripcion: string[30];
existencia: byte;
tipo: byte;
precio_vta: real;
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

Alguna ayuda para un registro con dos variables en Pascal

Publicado por ramon (2072 intervenciones) el 20/11/2013 11:49:13
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
{A ver si esto te ayuda}
 
 program regisvari;
 uses
    crt;
  type
 
    articulo = record
       codigo : word;
  descripcion : string[30];
   existencia : byte;
         tipo : byte;
   precio_vta : real;
       end;
 
 
   var
     lavandina, desodorante : articulo;
     dato1, dato2 : boolean;
 
   procedure entradadatos(var d : articulo; cual : string);
   begin
      clrscr;
      writeln('**** Entra Dadatos ',cual,' ****');
      writeln;
      write('  Entre Codigo       : ');
      readln(d.codigo);
      write('  Entre Descripcio   : ');
      readln(d.descripcion);
      write('  Entre Existencias  : ');
      readln(d.existencia);
      write('  Entre Tipo         : ');
      readln(d.tipo);
      write('  Entre Precio Venta : ');
      readln(d.precio_vta);
   end;
 
  procedure presentadatos;
  begin
     clrscr;
     if (dato1 = true) and (dato2 = true) then
     begin
     writeln('***** Datos Guardados En Variables *****');
     writeln;
     writeln('<<<<<<< Contenido Variable Desodorante >>>>>>>>>');
     writeln(desodorante.codigo,'  ',desodorante.descripcion,'  ',
     desodorante.existencia,'  ',desodorante.tipo,'  ',desodorante.precio_vta:0:2);
     writeln;
     writeln('<<<<<<< Contenido Variable Lavandina >>>>>>>>>');
     writeln(lavandina.codigo,'  ',lavandina.descripcion,'  ',
     lavandina.existencia,'  ',lavandina.tipo,'  ',lavandina.precio_vta:0:2);
     writeln;
     writeln('******* Pulse Una Tecla *********');
     readkey;
    end
  else
     begin
        writeln('**** Variables Vacias Pulse Una Tecla ****');
        readkey;
     end;
  end;
 
  procedure menu;
  var
     sal : boolean;
     tec : char;
   begin
      dato1 := false;
      dato2 := false;
      sal := false;
    repeat
       clrscr;
       writeln('******* Menu Jeneral *******');
       writeln;
       writeln('   1 = Entrada Datos A Variables');
       writeln('   2 = Visializar Contenido Variables');
       writeln('   3 = Salir');
       writeln;
       writeln('>>>>>> Elija Opcion <<<<<<');
       repeat
           tec := readkey;
       until tec in['1','2','3'];
       clrscr;
   case tec of
 '1' : begin
          entradadatos(desodorante,'Desodorante');
          dato1 := true;
          entradadatos(lavandina,'Lavandina');
          dato2 := true;
       end;
 '2' : presentadatos;
 '3' : sal := true;
   end;
    until sal = true;
   end;
 
  begin
     menu;
  end.
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