Proporcione el código fuente PASCAL gratuito para este problema.
El siguiente es el código fuente:
Definir variables
m, t, I, j: longint;
f: array [0 ..1000000]
Acerca de
Deseo;
a, b: matriz [0..600]
Acerca de
Deseo;
Inicio
readln(t, m);
es
i:=1
Para
m
Hacer
readln(a[i], b[I]);
fillchar( f,sizeof(f),0);
es
i:=1
a
m
Hacer
para
j:=t
Tang Tuo
a[i]
Hacer
Si
f[j] lt;f[j-a[i]] b[i]
Entonces
f [j ]:= f[j-a[I]] b[I];
writeln(f[t]);
Fin.
Si desea utilizar el formato de archivo, es:
Definir variables
m, t, I, j: longint
<; p>f: matriz[0..1000000]Acerca de
deseo;
a, b: matriz[0..600]
Acerca de
Desire;
Inicio
Asignar(input, 'filename.in');
Restablecer(input) ;
Asignar(out, 'filename.out');
Reescribir(out);
readln(t, m);
para
i:=1
a
m
hacer
readln(a[i ], b[I]);
fillchar(f, tamañode(f), 0
es
i:=1
;a
m
hacer
para
j:=t
Tang Tuo p> p>
a[i]
Hacer
si
f[j] lt; f[j-a[i]] b[i] ]
Entonces
f[j]:= f[j-a[I]] b[I];
writeln(f[t]);
Cerrar(entrada);
Cerrar(salida);
Fin.
Gracias. Buena suerte.