Tyui

Curso: EC110 Computación

Práctica de Laboratorio 4

Objetivo:

Reforzar los conocimientos teóricos y poner práctica en el laboratorio de computo mediante el uso del Turbo Pascal, lo relacionado a tipo de datos estructurados llamados arreglos (Arrays) unidimensionales y multidimensionales.

A) Enunciado de los ejercicios:

1. Escribir un programa en Pascal que rellene unarray (arreglo) con los números enteros entre 4 y 14.

2. Escribir un programa en Pascal que rellene un array de 10 elementos con los números entre 23 y 32 y copie en otro array esos números multiplicados por 0.35.

3. Escribir un programa en Pascal que solicite cinco números, los almacene en un array y luego calcule la media aritmética de esos números.

4. Escribir unprograma en Pascal que tras asignar los números, 23, 45, 68, 99, 10, 15 y 4 a un array, determine la posición del array en la que se encuentra el máximo valor.

6. Escribir un programa en Pascal que tras asignar los números, -2, 5, 8, -9, 10, 15 y .4 a un array calcule, independientemente, la suma de los elementos positivos y negativos.

7. Escribir un programa en Pascal que determine la posiciónde la siguiente matriz en la que se encuentra el valor máximo.

23 45 68
34 99 12
25 78 89

8. Escribir un programa en Pascal que sume, independientemente, los elementos positivos y negativos de la siguiente matriz:

-12 23 32
45 -56 -10
25 78 89

9. Escribir un programa en Pascal que multiplique por dos los elementos de la siguiente
matriz:

47 8
6 9 1
5 0 3

10. Escribir un programa en Pascal que almacene en la segunda fila de la siguiente matriz los cuadrados de los datos de la primera fila:

3 6 7 8 9
0 0 0 0 0

11. Escribir un programa en Pascal que sume los datos de cada una de las filas de la
siguiente matriz; el resultado se almacenará en la última posición de cada fila:

3 6 7 8 90
1 4 3 2 7 0

12. Escribir un programa en Pascal que sume los datos de cada una de las columnas de la siguiente matriz; el resultado se almacenará en la última posición de cada columna:

3 2
4 6
5 9
6 0
7 0

13. Escribir un programa en Pascal que divida todos los elementos de una matriz M (3,4) por el elemento situado en la posición 2,2.

14 .Escribir unprograma en Pascal que genera la matriz transpuesta de una matriz de 3 filas y 4 columnas. La matriz transpuesta de una matriz M(m,n) se obtiene intercambiando filas por columnas y viceversa; el resultado se tiene que almacenar en una nueva matriz M_TRANS(n,m).

15. Escribir un programa en Pascal que sume dos matrices bidimensionales. Las matrices para que puedan sumarse deben tener lasmismas dimensiones.


Curso: EC110 Computación

Práctica de Laboratorio 4

B) Solucionario:

Objetivo:

Reforzar los conocimientos teóricos y poner práctica mediante programas sobre el uso de tipos de datos arreglos (Arrays).

1. Escribir un programa en Pascal que rellene un array con los números enteros entre 4 y 14.


PROGRAM EJER81;
USES CRT;
VARarr_num:ARRAY [4..14] of INTEGER;
VAR i:INTEGER;
BEGIN
ClrScr;
FOR i:=4 TO 14 DO
arr_num[i]:=i;
FOR i:=4 TO 14 DO
BEGIN
WRITELN('Numero: ',arr_num[i]);
END;
END.

PROGRAM EJER81;
USES CRT;
VAR arr_num:ARRAY[1..11] of INTEGER;
VAR i,num:INTEGER;
BEGIN
ClrScr;
num:=4;
FOR i:=1 TO 11 DO
BEGIN
arr_num[i]:=num;
num:=num+1;
END;
FOR i:=1 TO 11 DO
BEGIN
WRITE('Posición ',i:2, ': ');WRITELN(arr_num[i]:5);
END;
END.




2. Escribir un programa en Pascal que rellene un array de 10 elementos con los números entre 23 y 32 y copie en otro array esos números multiplicados por 0.35.


PROGRAM EJER85;
USES CRT;
VAR arr_num1, arr_num2:ARRAY [23..32] of REAL;
VAR i:INTEGER;
BEGIN
ClrScr;
FOR i:=23 TO 32 DO
BEGIN
arr_num1[i]:=i;
arr_num2[i]:=(arr_num1[i] *...