
3.2 tema 7 (2)
Publicado por Erik (73 intervenciones) el 09/04/2014 15:27:20
hola tengo que corregir lo siguiente, aqui dejo lo que tengo que corregir:
Como en el anterior, el vector debes pasarlo por valor no po referencia, porque no se modifica.
Fíjate como nos indica el modo de proceder:
RECORDATORIO:
A la hora de buscar el mínimo (o el máximo) dentro de una tabla se procede:
Se le da como valor inicial al mínimo, el primer valor de la tabla. Te falta hacer esto.
max := -20;
min := 99999;
será:
max := arreglo[1];
min := arreglo[1];
Se recorre el resto de la tabla y en cada iteración:
a) Se comprueba si el valor de la tabla es menor que mínimo. a.1) Si lo es al mínimo se le da el valor de dicho elemento.
a.2) Si es mayor no se hace nada y se pasa al siguiente elemento.
ahora dejo el codigo en cuestion que hay que corregir
gracias de antemano.
Como en el anterior, el vector debes pasarlo por valor no po referencia, porque no se modifica.
1
2
3
4
5
procedure limites( var arreglo : coleccion;
var min: real;
var max : real;
var posMax: integer;
var posMin : integer);
Fíjate como nos indica el modo de proceder:
RECORDATORIO:
A la hora de buscar el mínimo (o el máximo) dentro de una tabla se procede:
Se le da como valor inicial al mínimo, el primer valor de la tabla. Te falta hacer esto.
max := -20;
min := 99999;
será:
max := arreglo[1];
min := arreglo[1];
Se recorre el resto de la tabla y en cada iteración:
a) Se comprueba si el valor de la tabla es menor que mínimo. a.1) Si lo es al mínimo se le da el valor de dicho elemento.
a.2) Si es mayor no se hace nada y se pasa al siguiente elemento.
ahora dejo el codigo en cuestion que hay que corregir
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure limites( var arreglo : coleccion; var min: real; var max : real); {Podrían venir inicializados desde el progama principal}
var
indice : integer;
begin
max := -20;
min := 99999;
for indice := 1 to TAMCOLECCION do
begin
if (arreglo[indice] > max) then
max := arreglo[indice];
if (arreglo[indice] < min) then
min := arreglo[indice];
end;
end;
gracias de antemano.
Valora esta pregunta


0