Informática del CBI – 2011 Dictado : Ing. Juan Manuel Conti

TRABAJO PRACTICO Nro 8 Programación en Pascal: Vectores. Problema 01 Dos vectores numéricos (V1 y V2) deben ser cargados con enteros aleatorios en el rango 100, 999 y mostrados por pantalla encolumnados uno a la par del otro. A medida que los vaya cargando deberá determinar cuál fue el máximo asignado a cada vector y almacenarlo en sendas variables Max1 y Max2. Ahora transfiera el contenido de un vector hacia el otro, pero de la siguiente manera: V1[1] = V2[DIM] V1[2] = V2[DIM-1] ..... V1[DIM] = V2[1] y volver a mostrar ambos vectores uno a la par del otro. Muestre también los valores obtenidos para Max1 y Max2.

Problema 02 En un trapecio regular (dos de los lados siempre paralelos y un ángulo recto):

Bmen

h

Bmay

Las magnitudes: Bmay, Bmen y h están almacenadas en sendos vectores de enteros: Bmay[ ], Bmen[ ] y h[ ] cuyas estructuras se establecen en una línea type (tenga en cuenta que los perímetros y las superficies son magnitudes de punto flotante, en tanto que las medidas geométricas son enteros).

Trabajo Práctico Nro 8

Pág. 1/2

Informática del CBI – 2011 Dictado : Ing. Juan Manuel Conti Los vectores con las medidas geométricas serán llenados con valores aleatorios según las siguientes condiciones: Bmen con valores entre 5 y 10. Bmay con valores entre Bem y 2 veces Bmen. h con valores entre 5 y 10. A medida que se vayan llenando se Irán mostrando por pantalla. Luego se determinará: PerimMax --> BmayPerimMax BmenPerimMax hPerimMax SupMax --> BmaySupMax BmenSupMax hSupMax Mostrar por pantalla PerimMax y SupMax y explicitar un poco mas abajo si para ambos casos las geométricas son las mismas.

Trabajo Práctico Nro 8

Pág. 2/2