Pascal/Turbo Pascal - 4.1 tema 8

{ 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.