Sin ttulo de diapositiva

1
Programación de Computadores Lenguaje Pascal
6/5/2002 Sesión 14 Ejercicios1 ProfEridan
Otto
2
Programación de Computadores Lenguaje Pascal
Sesión 14 Ejercicios

• TEMARIO
• Ejercicios
• Control

3
Programación de Computadores Lenguaje Pascal
Sesión 14 Ejercicios
Ejercicio1 Rutee el siguiente programa PASCAL.
Haga una tabla con todas las variables para
mostrar paso a paso el valor que van tomando.
PROGRAM rutear VAR a,b,cINTEGERdREAL FUNCTI
ON fsec(u,vINTEGERVAR wINTEGER)INTEGER VAR
l,cINTEGER BEGIN b 4 u u 3
v v u w w (u 4) DIV v c
w b l c DIV 2 fsec l END BEGIN
a 7 b 4 c 6 d 1.0
ddfprinc(a,b,c) WRITELN(a,a, b,b,
c,c, a,d) END.
FUNCTION fprinc(VAR xINTEGER y,z
INTEGER)INTEGER VAR aINTEGER BEGIN a
2 x b 5 y x (ab) DIV 2
c fsec(x,y,a) b b 1 c c MOD b
z z DIV c fprinc c END
4
Programación de Computadores Lenguaje Pascal
Sesión 14 Ejercicios
Ejercicio2 Rutee el siguiente programa PASCAL.
Considere como datos de entrada, los valores
1,2,3,4,5,6,7,8,9. Haga una tabla con todos laso
valores para mostrar paso a paso el valor que
éstas van tomando. Indique claramente los valores
finales almacenados en los arreglos a y b.
PROGRAM ruteo2 CONST m3 n 3 VAR
i,jINTEGER a,bARRAY 1..m,1..n OF
INTEGER BEGIN FOR i1 TO m DO FOR j1
TO n DO READ(ai,,j) FOR i1 TO m DO
FOR j1 TO n DO bi,j
aj,m-i1) END.
5
Programación de Computadores Lenguaje Pascal
Sesión 14 Ejercicios

• Ejercicio3
• En un observatorio astronómico, se reciben las
  señales de la intensidad luminosa de una foto
  tomada por un telescopio. La información de cada
  una de las señales luminosas es almacenada en una
  matriz, que permite el análisis automático de la
  foto. Donde cada elemento de la matriz representa
  la cantidad de luz procedente de la imagen
  correspondiente. El rango de intensidad de luz
  varía entre 0 y 1. Se puede suponer que existe
  una estrella, en el área correspondiente a un
  elemento de la matriz, cuando la suma de la
  intensidad de la luz correspondiente al elemento,
  más el promedio de los elementos adyacentes a él,
  es mayor o igual a 0.6.
• La matriz es de 1000x1000 puntos
• Desarrolle un programa PASCAL
• Llenar el arreglo
• Determinar la posición de las posibles estrellas
  encontradas.
• Nota no considere el borde de la fotografía.

6
Programación de Computadores Lenguaje Pascal
Sesión 14 Ejercicios

• CONTROL
• El gerente de las salas de cine cinemax, desea
  conocer algunas estadísticas de las películas más
  vistas. Las mismas 15 películas son exhibidas en
  cada una de las 7 salas de cine. Para cada sala,
  se requiere almacenar el total de personas que
  han asistido a ver cada película en el último
  mes. Desarrolle un programa PASCAL que permita
  realizar las siguientes operaciones
• Llenar el arreglo con las personas que asistieron
  a cada sala a ver cada película en un mes, en un
  arreglo de 7x15.
• Determinar la mejor combinación sala-película,
  es decir, a que sala y a qué película asistió la
  mayor cantidad de público.
• Determinar la película mas vista en el mes y la
  cantidad de publico que la vio.

7
Fin Clase 14