--------------------------------------------------------------------------------------------
ES CON SUBPROCESOS
--------------------------------------------------------------------------------------------
Hola, tengo un problema con este ejercicio de peseint, es una matriz unidimensional de 12 posiciones rellena con datos aleatorios entre 25 i 255. (simulando accidentes mensuales)
- Tengo que hacer la media de accidentes en todo el año.
- Que devuelva el numero de meses que ha habido mas accidentes que la media.
- Que devuelva el numero de meses que ha habido menos accidentes que la media.
- Numero que se ha producido menos de 50 accidentes.
- Numero que se ha producido menos de 125 accidentes.
Me dan estos errores:
Lin 16 (inst 1): ERROR 303: Subindice () fuera de rango (1...12)
Lin 80 (inst 1): ...dentro del subproceso SUP_MITJA, invocado desde aquí.
Subproceso mitja(accidentes)
contador_mitja=1
mitjana=0
Repetir
mitjana=mitjana+accidentes[contador_mitja]
contador_mitja=contador_mitja+1
Hasta Que contador_mitja = 13
escribir mitjana/12
FinSubProceso
SubProceso sup_mitja(accidentes)
contador_sup_mitja=1
sup_mitjana=0
Repetir
si accidentes[contador_mitja]>mitjana
Escribir "El mes número "+convertirATexto(accidentes[contador_mitja])+" ha tenido una cantidad de accidentes superior a la media."
FinSi
contador_sup_mitja= contador_sup_mitja+1
Hasta Que contador_sup_mitja = 13
FinSubProceso
subproceso sub_mitja(accidentes)
contador_sub_mitja=1
sub_mitjana=0
Repetir
si accidentes[contador_mitja]<mitjana
Escribir "El mes número "+convertirATexto(accidentes[contador_mitja])+" ha tenido una cantidad de accidentes inferior a la media."
FinSi
contador_sub_mitja= contador_sub_mitja+1
Hasta Que contador_sub_mitja = 13
FinSubProceso
SubProceso funcion_sub_50(accidentes)
contador_sub_50=1
sub_50 = 0
Repetir
si accidentes[contador_mitja]<50
Escribir "El mes número "+convertirATexto(accidentes[contador_mitja])+" ha tenido una cantidad de accidentes inferior a 50."
FinSi
contador_sub_50= contador_sub_50+1
Hasta Que contador_sub_50 = 13
FinSubProceso
SubProceso funcion_sup_125(accidentes)
contador_sup_125=1
sup_125=0
Repetir
si accidentes[contador_mitja]>125
Escribir "El mes número "+convertirATexto(accidentes[contador_mitja])+" ha tenido una cantidad de accidentes superior a 125."
FinSi
contador_sup_125= contador_sup_125+1
Hasta Que contador_sup_125 = 13
FinSubProceso
Proceso ejercicio_2
contador=1
Dimension accidentes[12]
//V2 - Introduccion de los accidentes de manera automática
Repetir
accidentes[contador]<-azar(130)+25
contador=contador+1
Hasta Que contador=13
mitja(accidentes)
sup_mitja(accidentes)
sub_mitja(accidentes)
funcion_sub_50(accidentes)
funcion_sup_125(accidentes)
FinProceso