帮我把这个帕斯卡翻译成C或C，注意读数是scanf

呃，如果你知道p，你就不会是c，你不会是p，告诉我哪个问题，我给你写。

也许你的程序没有完成，你的程序的{}不匹配，不是一个正确完整的C语言程序。

根据您粘贴的部分，我将其翻译如下（表示注释，如果您使用的是无法识别此注释符号的早期版本的 pascal，则删除相应的行）：

program exp;

var a: array [0..100,0..100] of integer;

num:integer;

procedure search(i,j:integer);

beginif a[i][j]=1 then

begina[i][j]:=-1;

num:=num+1;

search(i,j+1);

search(i+1,j);

search(i,j-1);

search(i-1,j);

end;end;定义一个递归搜索函数，输入参数为待调查小方块的位置dvarn，m，k，i，j，x，y，max：integer;

max:=0;

readln(n,m,k);

for i:=1 to k do

beginreadln(x,y);

a[x][y]:=1;将要调查的位置设置为 1;

end;for i:=1 to n do

for j:=1 to m do

beginnum:=0;

search(i,j);

if num>=max then max:=num;

end;writeln(max);

end.

while not eoln do read(x);

这一直读到行的末尾。

while not eof do read(x);

这将一直阅读到文档的末尾。

Pascal 还具有 EOF 函数。

while not eof do

beginend;

它类似于：

while (scanf("%d")！eof） 是在文件结束之前执行操作。

program ft;

uses crt;

vardp:array[0..24][0..3500] of integer;

v,a:array[0..25] of integer;

i,j,k,n,sum:integer;

beginread(sum,n);

for i:=1 to n do read(v[i]);

for i:=1 to n do

for j:=1 to sum do begindp[i][j]:=dp[i-1][j];

if v[i]<=j then

if dp[i-1][j]>(dp[i-1][j-v[i]]+v[i]) then

dp[i][j]:=dp[i-1][j];

else then

dp[i][j]:=dp[i-1][j-v[i]]+v[i];

end;write(dp[n][sum]);

readkey();

end.其次，请单独提出一个问题。

好像是这样，帕斯卡不记得了}

const max = 20001;

var m, n, tv, v, i, j, k : longint;

a : array[ 0 ..max - 1 ] of longint;

begina[ 0 ] 1;

read( v );

read( n );

for i :=1 to n do beginread( tv );

for j :=v downto tv doif a[ j ] 0

a[ j ] a[ j - tv ];

end;m :=v;

while a[ m ] 0

dec( m );

write( v - m );

write( '

end.

第一个：int f[5001,5001];

int ans;

void work3()

第二：int f[5001];

int ans;

void work2()

翻译很简单，发现你的程序根本运行不了，里面的变量M、N、A、b都没有定义。

这是一件大事，因为 Pascal 是一门古老的语言，它非常严谨，但 C 的要求不是很高，但如果你想学习它，你会发现它很难。