comparacion de romeo y julieta y la celestina

VECTORES Y MATRICES

VECTORES
Un vector (o arreglo unidimensional) es una estructura de datos en la cual se almacena un conjunto de datos de un mismo tipo. Es decir que un arreglo es una lista de n elementos que posee las siguientes características:
se identifica por un único nombre de variable
sus elementos se almacenan en posiciones contiguas de memoria
se accede a cada uno de suselementos en forma aleatoria
Para acceder a cada elemento se utiliza el nombre del vector y un índice que indica la posición que ocupa el elemento en el vector.
Los elementos están almacenados en posiciones contiguas de memoria.

-32
9
65
45
7
8
9
100
1
0
1
2
3
4
5
6
7
8
ELEMENTOS
POSICIONES


NOMBRE DE LA VARIABLE: POSICION: 0CONTENIDO: MI VECTOR [0]= -32 Y 9=1….

EJEMPLO 1.
Resolvamos este primer ejemplo:
Cargar 10 elementos en un vector, sumarlos y mostrar el resultado por pantalla.
Pasos para resolver este problema:
Leer un vector de 10 elementos
Sumar los elementos
Mostrar el resultado de la suma por pantalla

Programa ejemplo 1; {versión 1}
TipoDeclaración del tipo de arreglo
Sumados = formación [1…10] de entero
Var
Suma, i: entero; Declaración de la variable
Vec_sumados: sumandos;
Comenzar
Suma:=0;
Para i:= 1 a 10 hacer
Leer (Vec_sumandos[i]) Lectura de los elementos de arreglo
Para i: = 1 a 10 hacerSuma=suma + Vec_sumandos[i];
Fin
Escribir (“la suma de los números es”, suma); Suma de los Elementos
Fin.
DECLARACIÓN
Como ya dijimos anteriormente, los arreglos son estructuras de datos, por lo tanto las mismas deben ser declaradas. Esta operación se realiza en la sección “Tipo” de un programa en Pascal. (Como puede verse en el ejemplo1)
Formato
Tiponombre_del_tipo = formación [tipo subíndice * ] de tipo;

* debe ser de tipo ordinal: booleano, caracteres, enumerado o subrango
Luego de la declaración del tipo, se declara la variable.
Formato
Var
Nombre variable: nombre_del_tipo;

Ejemplos de declaraciones:
Ejemplo1:
Tipo
Valores = formación [-10...10] de real;
Var
Precios: valores;
Ejemplo2:
Const
Max= 500;
Tipo
T_Texto =formación[ 1...Max ] de carácter;
Var
Texto: T_Texto;

MANEJO DE INDICES
Asignación de valores
Texto[3] := ´a´;
Precios[0] := 23.50;
Como ya dijimos, los índices de un arreglo pueden ser: entero, lógico, carácter, enumerado o subrango.

Ejemplo de Manejo de Índices
Ejemplo 1
Const
Longitud = 40;
Altura = 30;
Tipo
Horizontal = 1...Longitud;
T_Línea = formación [horizontal] de carácter;Var
Línea: T_ Línea

Ejemplo 2:
Tipo
DiasSemana = (Lunes, Martes, Miércoles, Jueves, Viernes, Sábado, Domingo);
T_Dias = formación [DiasSemana] de entero;
Var
Días: T_Dias;

OPERACIONES
Con la siguiente declaración:
Tipo
T_Notas = formación [1...30] de entero
Var
Notas: T_Notas;
Lectura de un vector
Para i:= 1 a 30 hacer
Leer (Notas[i])
Escritura de un vector
Para i: = 1 a 30hacer
Escribir (Notas[i])
Ejemplo 1
Dados 50 números enteros, obtener el promedio de ellos. Mostrar por pantalla dicho promedio y los números ingresados que sean mayores que el mismo
Const
Max = 50;
Tipo
T_numeros = formación [1... Max] de entero;
Var
Suma, i: entero;
Promedio: real;
Números: T_numeros;
Comenzar
Suma:= 0;
Para i: = 1 to Max do
Comenzar
Leer (números[i] )
Suma:=suma +números[i];
Fin;
Promedio:= suma/Max;
Escribir (´El promedio es ´, Promedio´);
Para i: = 1 to 50 Hacer
Si números [i] > promedio
Entonces
Escribir (´El número´, números[i], ´es mayor al promedio´);
Fin.

Ejemplo2
Dados n números, obtener e imprimir la suma de todos ellos. A continuación mostrar por pantalla todos los sumandos.
Const
Max = 100;
Tipo
T_numeros = formación...