Tema 3: Actividades

Actividad número 1

Pregunta

¿Determinar que realiza el siguiente fragmento de código?

type vector = array [1 .. 3] of integer;

var arreglo: vector;

for i := 1 to 3 do

Begin

readln(arreglo[i]);

end;

for i := 1 to 3 do

Begin

write(arreglo[i]);

end;

Respuestas

Carga el arreglo de enteros por teclado y muestra por pantalla los elementos del arreglo uno debajo del otro.

Carga el arreglo de enteros por teclado y lo muestra por pantalla uno al lado del otro

Carga el arreglo de enteros por teclado.

Retroalimentación

Actividad número 2

Pregunta

¿Determinar que realiza el siguiente fragmento de código?

type matriz = array [1..31..3] of integer;

var arreglo: matriz;

n:=1;

for i := 1 to 3 do

begin

for k := 1 to 3 do

n:=n*arreglo[i,k]);

end;

write(n);

Respuestas

A la variable n le asigna la multiplicación de todos los elementos del arreglo y luego muestra por pantalla el contenido de la variable n.

Muestra por pantalla el contenido de la variable n.

El usuario carga por completo el arreglo desde teclado.

Retroalimentación

Actividad número 3

Pregunta

¿Determinar que realiza el siguiente fragmento de código?

type matriz = array [1..31..3] of integer;

var arreglo: matriz;

for i := 1 to 3 do

begin

for k := 1 to 3 do

arreglo[i,k]:=10;

end;

for i := 1 to 3 do

begin

for k := 1 to 3 do

write(arreglo[i,k);

writeln;

end;

Respuestas

Le asigna a todos los elementos del arreglo el valor 10 y luego los muestra por pantalla uno al lado del otro.

Carga el arreglo por teclado y luego los muestra por pantalla en formato matriz.

Le asigna a todos los elementos del arreglo el valor 10 y luego los muestra por pantalla en formato matriz.

Retroalimentación

Obra publicada con Licencia Creative Commons Reconocimiento Compartir igual 4.0