[ Foro de Pascal ]

Como inicializar un campo de un registro

Necesito ayuda con el siguiente ejercicio me pide lo siguiente: añadir un procedimiento (inicializa_cesta) que reciba como parámetro una variable del tipo Cesta y la inicialice poniendo el campo en_cesta a FALSE en todas las posiciones de la misma. Esto indicará que todas las posiciones están libres.

Hasta el momento hice lo siguiente

Const
    tammaxcesta=3;

Type
    producto=record
       nombre:string;
       num_unidades:integer;
       precio_unidad:real;
       en_cesta:boolean;
    end;
    Tcesta = array [0..tammaxcesta] of producto;
Var
    detalle:producto;
    cesta:Tcesta;

Ya tienes la variable cesta creada, esta variable es un array. Lo que tienes que hacer es recorrer el array desde 0 hasta tammaxcesta (yo te sugeriría que cambies la definición del Tcesta para que vaya de 1 a tammaxcesta y, no desde 0).
Ahora, con cada elemento del arreglo, lo que debes hacer es asignarle al campo en_cesta el valor false. Eso es todo.
Para hacértelo más sencillo, sería algo como esto:

Desde i<-1 hasta tammaxcesta Hacer
   cesta[i].en_cesta <- false;
Fin_Desde

Eso es todo. Muy sencillo, ¿no?
Saludos.