Seguimos buscando a Arshak. Ayudanos compartiendo!
Encuesta no oficial de docentes
Resultados de la encuesta no oficial de docentes
Probaste el SIGA Helper?

Donar $100 Donar $200 Donar $500 Donar mensualmente


Enviar respuesta 
 
Calificación:
  • 0 votos - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5
Buscar en el tema
Ayuda con actividad de array - Pascal
Autor Mensaje
sbeastian Sin conexión
Empleado del buffet
Sin estado :(
*

Ing. en Sistemas
Facultad Regional Concepción del Uruguay

Mensajes: 1
Agradecimientos dados: 1
Agradecimientos: 0 en 0 posts
Registro en: Sep 2022
Mensaje: #1
Ayuda con actividad de array - Pascal Ejercicios Algoritmos y Estructuras de Datos
Crear un vector que represente las ventas para cada uno de los días de la semana y permitir:
a) Modificar el contenido de un día en particular
b) Calcular cuánto se recaudó el fin de semana
c) Mostrar qué porcentaje representa el punto b sobre el total recaudado en la semana
d) En qué día se vendió menos?


---------------------
Todo esto claramente con el cuerpo del programa main solo con la inicializacion de un menu de opciones.
Si alguno me puede decir en que falla el procedure, de carga de datos que al parecer no me esta cargando nada, porque cuando quiero modificarlo, me aparece vacío.

//Cargar valores en array
procedure CargarValores(var arreglo_vacio:semana);

var
i:integer;
value:real;

begin
clrscr;
for i:=1 to length do
begin
write('Ingrese lo recudado en el dia ',i,': ');
readln(value);
clrscr;
end;
write('Presione "Enter" para volver al menu');
readkey;
Menu(arreglo_vacio);
end;

//Modificar valores en array
procedure ModificarValores(var arreglo_modificar:semana);
var
day:integer;
amount:real;
resp:char;
begin
clrscr;
write('Desea modificar un dia de la semana? (s/n)');
readln(resp);
while resp<>'n' do
begin
clrscr;
write('Ingrese el numero del dia que quiere modificar');
readln(day);
case day of
1:
begin
writeln('Modificaion del dia Lunes, con valor actual = $',trunc(arreglo_modificar[1]) ,' ingrese el monto correcto a asignar: ');

readln(amount);
arreglo_modificar[1]:=amount;
end;
2:
begin
writeln('Modificaion del dia Martes, ingrese el monto correcto a asignar: ');
readln(amount);
arreglo_modificar[2]:=amount;
end;
3:
begin
writeln('Modificaion del dia Miercoles, ingrese el monto correcto a asignar: ');
readln(amount);
arreglo_modificar[3]:=amount;
end;
4:
begin
writeln('Modificaion del dia Jueves, ingrese el monto correcto a asignar: ');
readln(amount);
arreglo_modificar[4]:=amount;
end;
5:
begin
writeln('Modificaion del dia Viernes, ingrese el monto correcto a asignar: ');
readln(amount);
arreglo_modificar[5]:=amount;
end;
6:
begin
writeln('Modificaion del dia Sabado, ingrese el monto correcto a asignar: ');
readln(amount);
arreglo_modificar[6]:=amount;
end;
7:
begin
writeln('Modificaion del dia Domingo, ingrese el monto correcto a asignar: ');
readln(amount);
arreglo_modificar[7]:=amount;
end;
end;
writeln();
write('Desea modificar otro dia? (s/n)');
readln(resp);
end;

end;
20-09-2022 12:03
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
nicolasAM Sin conexión
Profesor del Modulo A
Aguante el Starbucks de la UADE
*****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 286
Agradecimientos dados: 105
Agradecimientos: 351 en 136 posts
Registro en: Jan 2017
Mensaje: #2
RE: Ayuda con actividad de array - Pascal
Un poco complicado de seguir, pero pareciera que en cargarValores no estás guardando los valores ingresados en ningún lado.
Faltaría algo del estilo (pseudocódigo):

for i=1 to i=7
escribir("Ingrese lo recaudado el día: ", i)
leer(dato)
vector[i] = dato
fin

Besis love
20-09-2022 22:19
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
[-] nicolasAM recibio 1 Gracias por este post
sbeastian (21-09-2022)
Buscar en el tema
Enviar respuesta 




Usuario(s) navegando en este tema: 1 invitado(s)



    This forum uses Lukasz Tkacz MyBB addons.