[ Foro de Pascal ]

Ejercicio 4.1.1.6

Hola de nuevo...!

Aquí dejo la resolución (a mi manera) del ejercicio con vectores. Se trataba de encontrar el producto escalar de dos vectores. Cosa que me sonaba a chino. Pero mirando vídeo pude orientarme. E omitido poner colorines y centrarme mas en la resolución del mismo. También he tratado de usar bien las tabulaciones en el editor como me indico el profe Nacho.


{ Ejercicio propuesto 4.1.1.6: Crea un programa que halle el producto
 escalar dos vectores, cuyos componentes indicará el usuario.}
 
program ejercicio_4_1_1_6;

var
vec1, vec2 : array [1..2] of integer;
i: byte;
prodEsc : integer;
begin

write('Escribe los dos valores del vector A');
writeln();
for i := 1 to 2 do
readln(vec1[i]);
writeln('Escribe los valores del vector B');
for i := 1 to 2 do
readln(vec2[i]);


writeln('Vector A: ',vec1[1],',',vec1[2],' Vector B: ',vec2[1],',',vec2[2]);
prodEsc := vec1[1] * vec2[1] + vec1[2] * vec2[2];
writeln('Es producto escalar es: ', prodEsc);

end.

Así es.

El producto escalar es algo que se suele estudiar en física y/o en matemáticas en educación secundaria, cerca de los 15 años de edad, si eres "de ciencias". En el curso verás más de una aplicación de ese tipo (vectores, matrices) que quizá te suene a chino si tienes menos edad o eres "de letras".