Pascal/Turbo Pascal - Ayuda con una duda!

   
Vista:

Ayuda con una duda!

Publicado por Christian Guzmán (1 intervención) el 29/04/2015 19:54:06
Hola a todos...
Estudiando en un libro me encontré con unos ejemplos en pascal, y entiendo unas cosas del lenguaje, pero no he podido entender que significa MAX(CARDINAL) en el siguiente código:
Lo que no entiendo es cuales son los valores que compara para encontrar el MAX, porque hay varias cosas declaradas CARDINAL...
Agradezco su ayuda, un saludo!

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
CONST n = ...; (* num. tipos de monedas distintos del sistema *)
L = ...; (* cantidad a conseguir *)
TYPE TIPOMONEDA = ARRAY[1..n] OF CARDINAL;
VECTOR = ARRAY[0..L] OF CARDINAL;
 
 
PROCEDURE Cambio(VAR C:VECTOR;L,n:CARDINAL;VAR T:TIPOMONEDA):CARDINAL;
 
VAR i,j:CARDINAL;
 
BEGIN
     C[0]:=0;
         FOR i:=1 TO n DO
 
             FOR j:=1 TO L DO
 
                 IF (i=1) AND (j<T[i]) THEN
 
                     C[j]:=MAX(CARDINAL)
 
                ELSIF i=1 THEN
 
                     C[j]:=1+C[j-T[1]]
 
               ELSIF j>=T[i] THEN
 
                     C[j]:=Min2(C[j],1+C[j-T[i]])
 
               (* ELSE C[j] no se modifica *)
 
               END
         END;
      END;
 
               RETURN C[L]
 
END Cambio;
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

Ayuda con una duda!

Publicado por ramon (2072 intervenciones) el 29/04/2015 21:43:21
Entiendo se trata de una función que devuelve el mayor numero que se admite .


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses
     crt;
 const
    numeromax = 40;
 var
    nt : integer;
 function max(n : integer) : integer;
 begin
     if n > numeromax then
     max := numeromax
   else
     max := n;
  end;
 
  begin
     clrscr;
     nt := 80;
     writeln;
     writeln('  Mayor  ',max(nt));
     nt := 30;
     writeln;
     writeln('   Menor ',max(nt));
     readln;
  end.
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