Taller.txt

Autor: LUZ DIVINA BARRIOS ROJAS // PROTOTIPO Entero hallar_menor (entero v(), entero N) proc promedio ( entero M()(), entero Nu , entero *pro) // VARIABLES GLOBALES Entero Nu, entero N Entero M(Nu)(Nu) Entero v(N) //PROGRAMA PRINCIPAL programa Main // VARIABLES LOCALES Entero op, sw, s, y, *p sw<-0 , op<-1, s<-0 Mientras que op!=5 Haga 1. ESC" Digite datos del vector" 2. ESC" Digite datos de la matriz" 3. ESC" Hallar el numero menor del vector" 4. ESC" Hallar promedio de la matriz" 5. ESC" Salir" Leer OP Dependiendo de 1.

ESC " Digite tama�o de su vector" Lea N Para I=1, I<=N, I++ ESC"Digite numero de elementos del vector" Lea V(I) fin para sw<-1

2.

ESC " Digite el tama�o de su matriz" lea Nu Para I=1, I<=Nu, I++ Para J=1, j<= Nu, j++ ESC" Digite elementos de su matriz" lea M(I)(J) Fin Para Fin Para s<-1 3. si sw==0 haga ESC"No ha ingresado valor" SINO y<- hallar_menor (v()) ESC"el menor del vector fue", y Fin si 4. si s==0 haga ESC"No ha ingresado valor" SINO

promedio (m()(),*p) ESC" El promedio fue",p FIN SI 5. ESC" ADIOS" En otro caso ESC "Opcion invalida, digite nuevamente " lea OP FIN DEPENDIENDO DE FIN MQ Fin MAIN Entero hallar_menor(entero v(), entero N) //variables locales entero I, Entero J, Men, aux aux<-0 Para I=1 , N-1 Para J=I+1, N Si v(J)< v(I) aux<-v(J) v(J)<-v(I) v(I)<-aux Fin si Fin para Fin Para I<-1 Para I=1, I<=N men<-V(I) Si v(I)>Men Men<-v(I) Fin si Fin Para Retornar (Men) fin hallar_menor proc promedio ( entero M()(), entero Nu, entero *pro) // entero F, entero C Entero sumadora, entero co c<-0, s<-0 Para F=2,F<=Nu Para C=1, C<=Nu-1,C++ co=co+1 sumadora<- sumadora+M(F)(C) Fin para Fin Para *pro<- sumadora/co Fin Promedio Fin