Saltar al contenido
EjemplosEnglishEspacio →

Ventas de la semana

Una tabla de ventas por sucursal y día, con sus totales.

Nivel
Avanzado
Tema:
Arreglos
Conceptos:
Matrices
Arreglos
Para
Azar
Abrir en Codoritmo

Ejecuta, modifica y depura este ejemplo en el navegador.

Lo que aprenderás

Dimension ventas[3, 5] crea una matriz de filas y columnas. Recorrerla con los Para en un orden da los totales por sucursal y, en el otro, los totales por día.

Código

sales-matrix.psc · 29 líneas
Algoritmo VentasSemana    Definir ventas, totalSucursal, totalDia Como Real    Definir s, d Como Entero    // 3 sucursales (filas) x 5 días (columnas)    Dimension ventas[3, 5]    Para s <- 1 Hasta 3 Hacer        Para d <- 1 Hasta 5 Hacer            ventas[s, d] <- Aleatorio(100, 500)        FinPara    FinPara    Escribir "Ventas por sucursal, de lunes a viernes:"    Para s <- 1 Hasta 3 Hacer        totalSucursal <- 0        Escribir Sin Saltar "Sucursal ", s, ": "        Para d <- 1 Hasta 5 Hacer            Escribir Sin Saltar ventas[s, d], "  "            totalSucursal <- totalSucursal + ventas[s, d]        FinPara        Escribir "| total ", totalSucursal    FinPara    Escribir "Total por día:"    Para d <- 1 Hasta 5 Hacer        totalDia <- 0        Para s <- 1 Hasta 3 Hacer            totalDia <- totalDia + ventas[s, d]        FinPara        Escribir "Día ", d, ": ", totalDia    FinParaFinAlgoritmo

Diagrama de flujo

Cada bloque del diagrama corresponde a una instrucción del código.

Algoritmo VentasSemanaAlgoritmo VentasSemanaAlgoritmo VentasSemanaDefinir ventas, totalSucursal, totalDia Como RealDefinir ventas, totalSucursal,totalDia Como RealDefinir s, d Como EnteroDefinir s, d Como EnteroDimension ventas[3, 5]Dimension ventas[3, 5]Para s <- 1 Hasta 3 HacerPara s <- 1 Hasta 3Para d <- 1 Hasta 5 HacerPara d <- 1 Hasta 5ventas[s, d] <- Aleatorio(100, 500)ventas[s, d] <- Aleatorio(100,500)Escribir "Ventas por sucursal, de lunes a viernes:"Escribir "Ventas por sucursal,de lunes a viernes:"Para s <- 1 Hasta 3 HacerPara s <- 1 Hasta 3totalSucursal <- 0totalSucursal <- 0Escribir Sin Saltar "Sucursal ", s, ": "Escribir Sin Saltar "Sucursal", s, ": "Para d <- 1 Hasta 5 HacerPara d <- 1 Hasta 5Escribir Sin Saltar ventas[s, d], " "Escribir Sin Saltar ventas[s,d], " "totalSucursal <- totalSucursal + ventas[s, d]totalSucursal <- totalSucursal+ ventas[s, d]Escribir "| total ", totalSucursalEscribir "| total ",totalSucursalEscribir "Total por día:"Escribir "Total por día:"Para d <- 1 Hasta 5 HacerPara d <- 1 Hasta 5totalDia <- 0totalDia <- 0Para s <- 1 Hasta 3 HacerPara s <- 1 Hasta 3totalDia <- totalDia + ventas[s, d]totalDia <- totalDia +ventas[s, d]Escribir "Día ", d, ": ", totalDiaEscribir "Día ", d, ": ",totalDiaFinAlgoritmoFinAlgoritmo

Ejemplo de ejecución

Este programa no pide datos: esto es lo que muestra al ejecutarlo.

Ventas por sucursal, de lunes a viernes:Sucursal 1: 247  124  223  296  189  | total 1079Sucursal 2: 336  227  136  358  219  | total 1276Sucursal 3: 237  213  457  335  454  | total 1696Total por día:Día 1: 820Día 2: 564Día 3: 816Día 4: 989Día 5: 862

Desafío

Muestra qué sucursal vendió más en la semana.

Ver pista

Al calcular totalSucursal, compáralo con el mayor visto hasta ahora y guarda su número.

Abrir en Codoritmo

Ejemplos relacionados