Pascal/Turbo Pascal - ayuda con maximo y minimo procedimiento

   
Vista:

ayuda con maximo y minimo procedimiento

Publicado por bea32 (7 intervenciones) el 11/02/2008 22:35:21
Hola:
Necesito ayuda para hallar el máximo y el mínimo, en esta tabla:

Ahora introduzca un procedimiento de nombre limites que devolverá como parámetros por referencia el máximo y el mínimo de la colección. En el programa principal la invocación deberá ser de la forma:
1.
2. (*-- Variables Globales -- *)
3. Var
4. precios1 : Coleccion;
5. min1, max1: real;
6.
7. (*-- Programa Principal -- *)
8. Begin
9. lee_tabla(precios1, TAMCOLECCION);
10. imprime_tabla(precios1, TAMCOLECCION);
11.
12. (* Aquí iría la invocación a limites *)
13.
14. (* Presentación de resultados *)
15. Writeln('El maximo es ', max1:0:1, ' y el mínimo ' , min1:0:1);
16. End.
Y el resultado deberá ser similar a:
Símbolo de MS - DOS
Introduza los preciosCuadro 1: 400Cuadro 2: 275Cuadro 3: 225Cuadro 4: 350> Precio cuadro 1: 400.00> Precio cuadro 2: 275.00> Precio cuadro 3: 225.00> Precio cuadro 4: 350.00El maximo es 400.0 y el minimo 225.0

Esto es lo que yo he hecho, pero al compilarlo me da errores.

Procedure limites(Var precios1:Coleccion; Var minimo:real;Var maximo:real;
TAMCOLECCION: integer);

Var
i: real;(*Variable auxiliar para contadores*)

Begin
minimo:=1;
For i:=2 to TAMCOLECCION do
if(precios1[i]<precios1[minimo])then
minimo:=i;

maximo:=1;
For i:=2 to TAMCOLECCION do
if (precios1[i]<precios1[maximo]) then
maximo:=precios1[maximo];
End;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda con maximo y minimo procedimiento

Publicado por Dani (159 intervenciones) el 13/02/2008 14:23:32
Een el segundo bucle FOR sería así

maximo:=1;
FOR i:=2 TO TAMCOLECCION DO
IF (precios1[i]>precios1[maximo]) then //aquí el signo lo tienes mal
maximo:=i; //máximo es un real!!

No lo he compilado, pero ese es el error. Por cierto, maximo y minimo pueden ser integers, ya que sólo almacenan la posición de los elementos máximo y mínimo dentro del array

Un saludo y ya sabes que estamos en contacto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda con maximo y minimo procedimiento

Publicado por bea32 (7 intervenciones) el 13/02/2008 20:53:13
Gracias Dani.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar