Pascal/Turbo Pascal - pascal ejercicio

program CEScom;

const

TAMMAXCESTA=3;

Type

tproducto=record

nombre:string;

numunidades:integer;

precio_unidad:real;

en_cesta:boolean;

end;

tabcesta=array[1..TAMMAXCESTA] of

tproducto;

Var

ini:tabcesta;

prod:tabcesta;

Procedure Lee_producto(Var

produc:tproducto); (*procedimiento de

lectura*)

Begin

Write('Nombre del producto: ');

Readln(produc.nombre);

Write('Numero de unidades: ');

Readln(produc.numunidades);

Write('Precio de cada unidad: ');

Readln(produc.precio_unidad);

End;

Procedure escribre_producto

(produc:tproducto);(*procedimiento de

lectura*)

Writeln('Nombre: ',produc.nombre);

Writeln('Numero de unidades: ');

Writeln('Precio de cada unidad;:

',produc.precio_unidad);

End;

Procedure inicializa_cesta (Var ini:Tabcesta);

Var

en_cesta:boolean;

i:integer;

begin

en_cesta:=false;

for i:= 1 to TAMMAXCESTA do

writeln (ini[i].en_cesta;

end;

Procedure mostrar_producto( Var

prod:tabcesta);

Var

i:integer;

begin

for i:=1 to TAMMAXCESTA do

write (prod[i]);

end;

Procedure mostrar_cesta

(cesta_compra:tabcesta);

Var

en_cesta:boolean;

i:integer;

begin

en_cesta:=true;

for i:=1 to TAMMAXCESTA do

write (cesta_compra[i].en_cesta;

end;

begin

write(mostra_cesta);

end.

begin

writeln (inicializa_cesta);

writeln( lee_producto);

writeln (mostra_cesta);

writeln;

end.

esto seria para el segundo ejercicio los dos

primeros puntos. Espero que te sirva

muchas gracias por tu ayuda.

Function cuenta_productos

( cuenpro:tabcesta)of integer:

Var

i:integer;

c:integer;

begin

c:=0;

for i:= 1 To TAMMAXCESTA do

if cuenpro[i].en_cesta= true then

c:=c+1;

cuenta_productos:= c;

end;

-------------------------------------------------------------------------------------------------------------------

Function busca_libre (buslib: tabcesta):

integer;

Var

i:integer;

c:integer;

begin

c:=0;

for i:= 1 to TAMMAXCESTA do

if buslib[i]en_cesta= false then

begin

c:= i;

break;

end;

if c> 0 then

end

else

begin

busca_libre:=0;

end;

end;