Gracias por las respuestas, tenias razon, como no tengo tarjeta USB no podia hacerlo (tont@ de mi..), hablé para poder usar el que me recomendais pero me dijeron que BT o nada, asi que nada, hare la practica por mi cuenta
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menúprogram area3;
function primerresultado(base, altura:real):real;
begin
primerresultado := base * altura;
end;
procedure segundoresultado(var base,altura:real);
begin
writeln('>>',primerresultado(base,altura));
end;
procedure tercerresultado(base,altura:real);
begin
writeln('>>',segundoresultado(base,altura));
end;
var
b, h : real;
begin
write('Indique la base: ');
readln(b);
write('Indique la altura: ');
readln(h);
readln();
end.
program cesta_compra;
const
tammaxcesta = 5;
type
tproducto = record
nombre : string;
unidades : integer;
precio_ud : real;
en_cesta : boolean;
end;
tablacesta = array[1..tammaxcesta] of tproducto;
var
iniciarcesta : tablacesta;
cesta : tproducto;
produ: tproducto;
procedure lee_producto (VAR produ:tproducto);
begin
write('Escribe el nombre del producto: ');
readln(produ.nombre);
write('Indica el numero de unidades: ');
readln(produ.unidades);
write('Indica el precio por unidad: ');
readln(produ.precio_ud);
end;
procedure escribe_producto (produ:tproducto);
begin
writeln('Producto: ',produ.nombre);
writeln('Unidades: ',produ.unidades);
writeln('Precio unidad: ',produ.precio_ud:0:2);
end;
procedure inicializa_cesta(VAR iniciarcesta : tablacesta);
var
i:integer;
begin
for i := 1 to tammaxcesta do
writeln(iniciarcesta[i].en_cesta);
end;
procedure mostrar_producto(VAR prod:tablacesta);
var
i: integer;
begin
for i := 1 to tammaxcesta do
write (prod[i].nombre);
end;
procedure mostrar_cesta(cesta_compra:tablacesta);
var
i: integer;
begin
for i:=1 to tammaxcesta do
write (cesta_compra[i].en_cesta);
end;
begin
inicializa_cesta(iniciarcesta);
lee_producto(produ);
escribe_producto(produ);
writeln();
mostrar_producto(iniciarcesta);
mostrar_cesta(iniciarcesta);
end.