1樓：巨龍之淚
自己總結的
賦值專場：
1.longint;filldword(a,sizeof(a)>>2,maxlongint(or $7fffffff);a[i]=maxlongint;
2.dword∈[0,maxlongint*2+1]佔位元組與longint一樣都是4個；
filldword(a,sizeof(a)>>2),$ffffffff);a[i]=maxlongint*2+1;
3.longint;filldword(a,sizeof(a)>>2,$200000000),a[i]=maxlongint div 4;
4.longint;filldword(a,sizeof(a)>>2,$400000000),a[i]=maxlongint div 2;
2樓：
fillchar(a,sizeof(a),0):
注意，最好是一維陣列，否則不要賦0以外的值（pascal可能出錯）
3樓：匿名使用者
fillchar(a,sizeof(a),0):表示對a陣列賦0
fillchar，整體賦值
4樓：匿名使用者
即將某一個陣列的每一位複製成一個值。fillchar(a,sizof(a),0);
pascal選擇排序的優化
program x1 vara array 1.10 of integer i,j,k,t integer begin for i 1 to 10 do read a i for i 1 to 9 do begin k i for j i 1 to 10 do if a k t a i a i a ...
pascal語言中while語句的問題
不一定要有。例如 while n 20 do inc n 因為while之後只有一個語句 inc n 所以不用begin end 如果有多個語句，例如 while n 20 do begin inc n dec n end 這樣就要有begin end 了。記住這個，如果while後只有一個語句，那...
用pascal求a到b之間的最大質數
你可以在 if f true then begin write i 4 inc t end end 這個迴圈中增加一個integer變數x來負責記錄 目前為止最大的質數 即加入 x i vari,j,t,a,b,max integer f boolean begin readln a,b if a ...