幫我把這個帕斯卡翻譯成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 的要求不是很高，但如果你想學習它，你會發現它很難。