UC知道帮忙将c翻译成pascal
来源：百度知道 编辑：UC知道 时间：2024/07/04 05:27:43
#include <stdio.h>
#include <string.h>
#define MAX 20001
int main(void)
{
int m,n,tv,v,i,j,k ;
int a[MAX] ={0} ;
a[0] = 1;
scanf("%d",&v) ;
scanf("%d",&n) ;
for(i=1 ; i<= n ; i++)
{
scanf("%d",&tv);
for(j=v ; j>=tv ; j--)
if(!a[j])
a[j] = a[j-tv] ;
}
m = v ;
while ( a[m] == 0)
m -- ;
printf("%d ",v-m) ;
return 0 ;
}
#include <string.h>
#define MAX 20001
int main(void)
{
int m,n,tv,v,i,j,k ;
int a[MAX] ={0} ;
a[0] = 1;
scanf("%d",&v) ;
scanf("%d",&n) ;
for(i=1 ; i<= n ; i++)
{
scanf("%d",&tv);
for(j=v ; j>=tv ; j--)
if(!a[j])
a[j] = a[j-tv] ;
}
m = v ;
while ( a[m] == 0)
m -- ;
printf("%d ",v-m) ;
return 0 ;
}
{貌似是这样，pascal记不清了}
CONST MAX = 20001;
VAR m, n, tv, v, i, j, k : longint;
a : ARRAY[ 0 .. MAX - 1 ] OF longint;
BEGIN
a[ 0 ] := 1;
read( v );
read( n );
FOR i := 1 TO n DO BEGIN
read( tv );
FOR j := v DOWNTO tv DO
IF a[ j ] = 0
a[ j ] := a[ j - tv ];
END;
m := v;
WHILE a[ m ] = 0
dec( m );
WRITE( v - m );
WRITE( ' ' )
END.