Pascal/Turbo Pascal - 3.1 tema 8

   
Vista:

3.1 tema 8

Publicado por Erik (73 intervenciones) el 31/03/2014 17:14:32
Hola tengo que hacer lo siguiente:

Defina un tipo llamado Cesta, como una tabla de elementos del tipo Producto, definido en la cuestión 1. La longitud máxima de elementos de la tabla estará definida en la constante TAMMAXCESTA, y los índices de la misma irán entre 0 y TAMMAXCESTA, de modo que el registro de índice 0 tendrá un uso especial (que veremos posteriormente).
Reserve la posición cero de la tabla para un uso especial y use a partir de ahora, sólo las posiciones desde 1 hasta TAMMAXCESTA.

Indique, DETALLADAMENTE, cómo ha definido este tipo.

gracias de antemano.
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

3.1 tema 8

Publicado por ramon (2072 intervenciones) el 01/04/2014 13:12:41
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
{ A qui tienes todas tus preguntas te vendrá mejor poner todas en una solo suerte}
 
 
program respuestas;
 uses
    crt;
  const
     TAMMAXCESTA = 4;
 
  type
 
   Producto = record
       nombre : string[100]; {Nombre del ploducto}
       numero : integer; {Cantidad de productos}
       precio : real; {Precio por unidad del producto}
       campo  : boolean; {Existe producto true se anulo false}
     end;
 
  var
    cesta : array[0..TAMMAXCESTA] of producto;
    cont : integer;
 
 
    procedure entradacesta(var c : producto);
    begin
       clrscr;
       writeln('**** Entrada Producto A Cesta ****');
       with c do
       begin
          write('  Nombre Producto            : ');
          readln(nombre);
          write('  Cantidad De Productos      : ');
          readln(numero);
          write('  Precio Unidad Del Producto : ');
          readln(precio);
          campo := true;
       end;
    end;
 
   procedure presentacesta(c : producto);
   begin
      with c do
      begin
         writeln('  Producto      = ',nombre);
         writeln('  Cantidad      = ',numero);
         writeln('  Precio Unidad = ',Precio:0:2);
         if campo = true then
         writeln('  La Cesta Esta Activa')
       else
         writeln('  La Cesta Esta Inactiva');
      end;
        writeln;
        writeln('  Pulse Una Tecla');
        readkey;
   end;
 
   procedure inicializa_cesta(var c : producto);
   begin
       with c do
       begin
          nombre := ' ';
          numero := 0;
          precio := 0.0;
          campo := false;
       end;
   end;
 
  begin
     inicializa_cesta(cesta[1]);
     entradacesta(cesta[1]);
     clrscr;
     presentacesta(cesta[1]);
  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