Ejercicios De Algoritmo

PROBLEMAS RESUELTOS DE FUNCIONES Y PROCEDIMIENTOS
  
1.      Hacer las siguientes  funciones:
a.     Función que calcule la suma de los elementos de un vector.
Solución:
Real FUNCION  SumaV (Entero m, Var Real V[ ] )
INICIO
i   Entero
Total    0
PARA  i  =  1  HASTA  m  HACER
         Total     Total  + V [ i ]
FIN PARA
SumaV    Total
Retornar SumaV
FIN
 
b.     Función quecalcule el promedio de los elementos de un vector
Solución:
Real  FUNCION  PromV (Entero  m, Var Real V[] )
INICIO
i   Entero
Total    0
PARA  i  =  1  HASTA  m  HACER
         Total     Total  + V [ i ]
FIN PARA
PromV    Total / m
Retornar  PromV
FIN
 
c.     Función que calcule el mayor de los elementos de un vector.
Solución:
Real FUNCION  MayorE (Entero m, Var Real V[])INICIO
i   Entero
Mayor    V [ 1 ]
PARA  i  =  2  HASTA  m  HACER
         SI   V [ i ]  >  Mayor    Then
                  Mayor   V [ i ]
         FIN SI
FIN PARA
MayorE    Mayor
Retornar MayorE
FIN
 
d.     Función que calcule el menor de los elementos de un vector.
Solución:
Real  FUNCION  MenorE (Elem m, Real Var V[] )
INICIO
i   Entero
Menor    V [ 1 ]PARA  i  =  2  HASTA  m  HACER
         SI   V [ i ]  <  Menor    Then
                  Menor   V [ i ]
         FIN SI
FIN PARA
MenorE    Menor
Retornar MenorE
FIN
e.     Función ConvRad que convierte de grados sexagesimales a radianes.
Solución:
Real FUNCION  ConvRad (Real S )
INICIO
ConvRad    S  *  ( 3.14159 / 180 )
Retornar ConvRad
FIN
 
 
2.      Convierta en procedimientos las funciones delejercicio anterior.
a.      Procedimiento que calcule la suma de los elementos de un vector.
Solución:
PROCEDIMIENTO  Suma (Entero m, var Real V[] , var Real SumaV)
INICIO
i   Entero
Total    0
PARA  i  =  1  HASTA  m  HACER
         Total     Total  + V [ i ]
FIN PARA
SumaV    Total
FIN
 
b.      Procedimiento que calcule el promedio de los elementos de un vector
Solución:PROCEDIMIENTO  Prom (real m, Var Real V[] , var Real PromV)
INICIO
i   Entero
Total    0
PARA  i  =  1  HASTA  m  HACER
         Total     Total  + V [ i ]
FIN PARA
PromV    Total / m
FIN
 
 
c.           Procedimiento que calcule el mayor de los elementos de un vector.
Solución:
PROCEDIMIENTO  Mayor (Entero  m, var Real V[] , var Real MayorE)
INICIO
i   Entero
Mayor    V [ 1 ]PARA  i  =  2  HASTA  m  HACER
         SI   V [ i ]  >  Mayor    Then
                  Mayor   V [ i ]
         FIN SI
FIN PARA
MayorE    Mayor
FIN
 
d.          Procedimiento que calcule el menor de los elementos de un vector.
Solución:
Procedimiento  Menor (Entero m, Var Real V[] , Var Real  MenorE)
INICIO
i   Entero
Menor    V [ 1 ]
PARA  i  =  2  HASTA  m  HACER         SI   V [ i ]  <  Menor    Then
                  Menor   V [ i ]
         FIN SI
FIN PARA
MenorE    Menor
FIN
 
 
e.          Procedimiento ConvRad que me convierta de grados sexagesimales a radianes.
Solución:
Procedimiento  Rad ( Real S, Var Real ConvRad )
INICIO
ConvRad    S  *  ( 3.14159 / 180 )
FIN
 
 
3.      Hacer los siguientes procedimientos:
a.      Que determine elmayor elemento de un vector y a que índice corresponde.
Solución:
PROCEDIMIENTO  Mayor (Entero m, Var Real V[] , Var Real MayorE, var Entero imay )
INICIO
i   Entero
MayorE    V [ 1 ]
imay    1
PARA  i  =  2  HASTA  m  HACER
         SI   V [ i ]  >  MayorE    Then
                  MayorE   V [ i ]
                  imay     i
         FIN SI
FIN PARA
FIN
 
b.      Quedetermine el menor elemento de un vector y a que índice corresponde.
Solución:
PROCEDIMIENTO  Menor (Entero m, Var Real V[] , var Real MenorE, Var Entero imen )
INICIO
i   Entero
MenorE    V [ 1 ]
imen    1
PARA  i  =  2  HASTA  m  HACER
         SI   V [ i ]  <  MenorE    Then
                  MenorE   V [ i ]
                  imen     i
         FIN SI
FIN PARA...