Examen Parcial - 75.40. Algoritmos y Programación I

Cátedra: García, Elena
Fecha: 1er Parcial - 1º Cuatrimestre 2004

Diseñar un programa en Pascal que realice lo siguiente:

1. Permita que un usuario cargue una matriz de n x n (el valor n lo ingresa el usuario por teclado) de enteros.
2. Realizar un procedimiento que cargue en un vector los máximos de cada columna mediante una función maxcol.
3. Realizar una función que verifique si la matriz es simétrica o no sin realizar ciclos innecesarios.

Escribir la salida por pantalla cuando se ejecute el sig. programa:

Program seguimiento;
 
var a,b: byte;
 
procedure p(var a: byte; b: byte);
begin
 a:= a + 3;
 if a > 9 then
  begin
   a:= a - 2;
   b:= b + 2;
  end;
 if a < 9 then
   a:= a * 2;
 writeln(a,b);
end;
 
begin
 a:= 5;
 b:= 7;
 p(b,a);
 writeln(a,b);
 readln
end.

Indicar cómo queda el siguiente vector luego de terminar un ciclo interno completo del método de ordenamiento burbujeo.