3.1.8. Ejemplos de programas con vectores

Un vector es una estructura de datos unidimensional (de una dimensión) cuyas características principales son las siguientes:
1. Todos los elementos del vector son del mismo tipo: entero, real, etc.
2. El vector tiene un nombre único. Cada elemento del vector se identifica por el nombre del vector seguido de la posición que ocupa encerrado entre corchetes. Ejemplo: Notas[4] indica un elemento del vector Notas que se encuentra en la posición 4. Así, para asignarle un valor a un elemento del vector lo hacemos como en el siguiente ejemplo: Notas[3] := 15. Aquí le estamos asignando al tercer elemento del vector Notas el valor 15.
3. La cantidad de elementos del vector es definido.

Para introducir por teclado los datos a un vector, se utiliza un ciclo y dentro del ciclo mandamos a leer los datos de cada elemento. El algoritmo es es siguiente:

Para x := 1 to N hacer (Aquí x es un contador y N es la cantidad de elementos del vector)
leer Notas[x] (le damos valor al elemento del vector que está en la posición x)
fin para

Ejemplo
En una clase existen X estudiantes. Cada estudiante tiene N notas. Hacer un programa en pascal que lea las notas de cada estudiante (almacenadas en un vector) e imprima la menor de las notas de cada estudiante.

Ejemplo:

—————-
Estudiante 1 12 15 18 13 En este caso son N=4 notas
—————-
Estudiante 2 08 10 12 09
—————-
Estudiante 3 19 17 18 20
…… ….. ….
Estudiante X 11 09 14 16

Program vecnotas;
uses crt;
const
N = 4; {N es el número de notas }
type
nota1 = array[1..N] of integer; {Nota1 es un arreglo de N elementos tipo entero }
Var
nota : nota1; { Asociamos la variable nota al tipo de datos nota1 }
x,i,j,menor : integer;
Begin
write(‘Escriba la cantidad de estudiantes : ‘);
readln(x);
for i := 1 to x do { Ciclo para leer los datos de cada estudiante }
Begin
writeln(‘Por favor escriba las notas del estudiante ‘,i);
menor := 0; {Hacemos el menor valor de las notas igual a cero }
for j := 1 to N do { Inicio del ciclo para leer el vector de notas }
Begin
write(‘ Por favor escriba la nota ‘,j);
readln(nota[j]);
if nota[j] < menor then
menor := nota[j];
end;
writeln(‘La menor nota del estudiante ‘,i,’ es :’,menor);
end;
end.

Deja un comentario