1樓：開款款稅稅收
資料範圍小的指碰話。
直接模擬就型數可以了。
資料範圍大卜逗首的話。
就需要數學方法了。
最好來個樣例說明。
pascal 語言求編蛇型方正
2樓：網友
pascal是一種計算機通用的高階程式設計語言。pascal的取名是為了紀念十七世紀法國爛讓唯著名哲學家和數學家blaise pascal。它由瑞士niklaus wirth教授於六十年代末設計並創立。
飢培pascal語言語法嚴謹，層次分明，程式易寫，具有很強的可讀性，是第乙個結構化的編滑冊程語言。
pascal長蛇陣問題： 急急急急急急急急急急急！
3樓：網友
額。。我用了最笨的方法，類似窮舉很好懂，只測試了樣例，所有資料型別定義的是整型。
不能保證資料大了全過，沒時間寫了。
program changshe;
var map:array[1..10000,1..10000] of boolean;
sum:array[1..10000] of integer;
js,i,j,k,m,n,a,x,y,max:integer;
beginread(n,m);
for i:=1 to n do
beginfor j:=1 to m dobeginread(a);
if a=0 then map[i,j]:=false else map[i,j]:=true;
end;readln;
end;for i:=1 to n do
for j:=1 to m do
if map[i,j]=true thenbegininc(js);
k:=i;while(map[k,j]=true) dobeginsum[js]:=sum[js]+1;
inc(k);
end;inc(js);
k:=j;while (map[i,k]=true) dobegininc(sum[js]);
inc(k);
end;inc(js);
x:=i;y:=j;
while (map[x,y]=true) dobegininc(sum[js]);
inc(x);inc(y);
end;end;
max:=0;
for i:=1 to js do
if sum[i]>max then
max:=sum[i];
write(max);
end.
pascal 雜湊表的問題！！急！！！
4樓：葛盈澤淫賊無敵
2%13=2 放在第2格。
2 * 8%13=8 放在第8格。
2 * 8 * 31%13=5 放在第5格。
2 * 31 * 8 * 20%13=7 放在第7格。
2 * 31 * 20 8 * 19%13=6 放在第6格。
2 * 31 19 20 8 * 18%13=6 放在第5格 而第5格已放了31 發生衝突 線性探查第6格已放了數。
第7格已放了數。
第8格已放了數。
第9格沒放數。
2 * 31 19 20 8 18 * 後面不用了 已經講得很清楚了。
5樓：
乙個個一次對13取模，2 8 31 20 19
18 mod 13=5
5678都放過了，所以放9，選b
pascal 問題 求助
6樓：網友
vara:array[1..9] of integer;
procedure sub(x:integer);
vari:integer;
beginif x>n then
beginif (a[1]*1000+a[2]*100+a[3]*10+a[4])*a[5]=a[6]*10000+a[7]*1000+a[8]*100+a[9]*10+a[10] then
writeln(a[1],a[2],a[3],a[4],'*',a[5],'=',a[6],a[7],a[8],a[9],a[10]');
endelse
for i:=0 to 9 do
if i in [0,1,2,3,5,7] thenbegin
a[x]:=i;
sub(x+1);
end;begin
sub(1);
end.最簡單的方法，試了就知道。作業100%過關。
pascal問題
7樓：我是小葉子
時間已經過了，打個醬油。
pascal問題 楊輝三角，pascal 輸出楊輝三角的詳細解釋。
program sb vara array 1.30,1.30 of integer i,j,m integer begin read m for i 1 to m do for j 1 to m do begin a i,1 1 if i j then a i,j 1else a i,j a i ...
pascal題 給出二叉樹，輸出它的最大寬度和高度
var a array 1.1000 of boolean b array 1.1000 of longint n,i,j,p,q,max,l,r longint begin readln n fillchar a,sizeof a false a 1 true b 1 1 for i 1 to n...
Pascal 程式設計，pascal程式
要想提高，得自己寫程式，讓大家看看你錯在 看別人的程式上進比較慢的。下面的程式除錯通過，完全滿足你的要求，迴圈裡面的writeln是輸出每一項數值的，你可以註釋掉。program ygb var i,j,n,x integer begini 0 j 0 x 1 write n readln n wh...