Matrices
Hola, necesito que me ayuden urgentemente, por favor. Necesito un programa que me calcule el numero total de artefactos vendidos cada semana, y calcular el numero total de cada tipo de artefactos vendidos en el mes, utilizando matrices, la verdad soy nuevo en esto y lo necesito de urgencia para poder pasar la materia, se lo agradezco
Lavadora Nevera Cosina
Lavadora nevera cosina
semana 1 5 4 8
semana 2 7 7 10
semana 3 5 3 7
Semana 4 8 10 15
Lavadora Nevera Cosina
Lavadora nevera cosina
semana 1 5 4 8
semana 2 7 7 10
semana 3 5 3 7
Semana 4 8 10 15
1 Respuesta
Respuesta
1
Te echaré un cable co los tipos, para que luego me muestres lo que llevas hecho y ayudarte más concretamente (pero no hacer tu trabajo ;) )
Yo pondría:
TArtefacto=(lavadora,nevera,cocina);
TYPE TTablaVentas=ARRAY[1..maxsemanas,lavadora..cocina] OF WORD;
VAR tablaventas:TTablaVentas;
//Una matriz que contiene números positivos (un WORD va desde 0.. 65535) que se han vendido.
Para acceder a la posición que quieras consiltar, pones: tablaventas[3,cocina], y estarás consultando (o asignando si quieres) la semana 3ª y la venta de cocinas.
Si pones
tablaventas[2,lavadora]:=7;
Estarás guardando 7 lavadoras vendidas en la semana 2
Y si pones
WRITELN('Las neveras vendidas en la 1ª semana son: ',tablaventas[1,lavadora]);
Estarás mostrando en pantalla el nmº de lavadoras vendidads en la 1ª semana
Con esto, creo que tienes lo más importante resuelto
Ánimo, e inténtalo.
Ya me contarás qué tal, y si sigues necesitando más ayuda, dímelo ^^
Yo pondría:
TArtefacto=(lavadora,nevera,cocina);
TYPE TTablaVentas=ARRAY[1..maxsemanas,lavadora..cocina] OF WORD;
VAR tablaventas:TTablaVentas;
//Una matriz que contiene números positivos (un WORD va desde 0.. 65535) que se han vendido.
Para acceder a la posición que quieras consiltar, pones: tablaventas[3,cocina], y estarás consultando (o asignando si quieres) la semana 3ª y la venta de cocinas.
Si pones
tablaventas[2,lavadora]:=7;
Estarás guardando 7 lavadoras vendidas en la semana 2
Y si pones
WRITELN('Las neveras vendidas en la 1ª semana son: ',tablaventas[1,lavadora]);
Estarás mostrando en pantalla el nmº de lavadoras vendidads en la 1ª semana
Con esto, creo que tienes lo más importante resuelto
Ánimo, e inténtalo.
Ya me contarás qué tal, y si sigues necesitando más ayuda, dímelo ^^
Ok de verdad muchas gracias pero como veras soy totalmente principiante en esta materia de turbo pascal y pues aparte me toco una profesora que no se explica bien y como entenderás no le entiendo absolutamente nada que posibilidades hay de que me ayudes completamente en este programa
Pues es que solo son sumas:
Ventas por semana de cada electrodoméstico ("artefacto"):
PROCEDURE Mostrar_Ventas_Mes(tablaventas:TTablaVentas);
VAR aux:WORD;
i:BYTE;
BEGIN
WRITELN('VENTAS POR MES');
aux:=0;
FOR i:=1 TO 4 DO aux:=aux+tablaventas[i,lavadora];
//vas sumando las ventas de las 4 semanas
WRITELN('Lavadoras: ',aux,' unidades.');
//y las muestras
aux:=0;
FOR i:=1 TO 4 DO aux:=aux+tablaventas[i,nevera];
WRITELN('Neveras: ',aux,' unidades.');
aux:=0;
FOR i:=1 TO 4 DO aux:=aux+tablaventas[i,cocina];
WRITELN('Cocinas: ',aux,' unidades.');
END;
El de por semana es el ejemplo que te puse antes ;)
Ventas por semana de cada electrodoméstico ("artefacto"):
PROCEDURE Mostrar_Ventas_Mes(tablaventas:TTablaVentas);
VAR aux:WORD;
i:BYTE;
BEGIN
WRITELN('VENTAS POR MES');
aux:=0;
FOR i:=1 TO 4 DO aux:=aux+tablaventas[i,lavadora];
//vas sumando las ventas de las 4 semanas
WRITELN('Lavadoras: ',aux,' unidades.');
//y las muestras
aux:=0;
FOR i:=1 TO 4 DO aux:=aux+tablaventas[i,nevera];
WRITELN('Neveras: ',aux,' unidades.');
aux:=0;
FOR i:=1 TO 4 DO aux:=aux+tablaventas[i,cocina];
WRITELN('Cocinas: ',aux,' unidades.');
END;
El de por semana es el ejemplo que te puse antes ;)