1樓：網友
我電腦沒裝delphi,很久沒用delphi了，語法有一點混了，用偽**寫一下，語法你自己改了吧。
c :=a; /就姿棚是先讓陣列c跟陣列a完全相同。
for i :=0 to 16 do
beginfor j :=0 to 16 dobeginif (b[i] =b[j]) and (i <>j) then
beginc[i] =c[i] +a[j];
c[j] =c[i];
end;end;
end;類似這樣寫螞冊橘就可以了。主要我現在沒有辦法除錯悶團。
2樓：網友
我用控制檯程式迅攔餘做了畝滾一下。
**如衡仔下：
program project2;
usessysutils;
vara:array[0..16] of integer=(0,2,2,1,3,2,3,4,6,5,5,4,3,3,2,2,2);
b:array[0..16] of integer=(0,3,3,3,9,9,16,16,25,25,33,40,40,45,45,49,49);
c:array[0..16] of integer;
i ,j :integer;
beginfor i :=0 to 16 dobeginc[i] :0;
for j :=0 to 16 do
beginif b[i] =b[j] thenc[i] :c[i] +a[j];
end;end;
for i :=0 to 16 do
beginwrite(c[i]);
write(#
end;readln;
end.
delphi陣列操作
3樓：紫衣俠隱
很簡單。
使用 var：
procedure test(var a:array of string);
begina[1]:='hello';end;
varb:array[1..10] of string;
begintest(b);
這樣，b[1]就等於'hello'了。
delphi 陣列問題 ？
4樓：網友
你所說的找出a值，是找出陣列中是否存在a值，還是找出a值在陣列中的位置呢？
5樓：網友
如果陣列是有序的，可以使用二分法查詢，如果是無序的，只能使用迴圈乙個乙個比對。
6樓：網友
/首先定義乙個陣列型別 type tarr = array of integer; /然後定義返回這個數磨粗稿凳知組類瞎孝型的函式 function strsplit(strsplit,str:string):tarr ; var str:
delphi中靜態陣列
7樓：網友
wwarray:array[1..300] of integer;你定義陣列時下標是從1到300，而你使用的時候。
for x:=0 to platex dowwarray[x]:=0;
是從下標0開始訪問，下標0不存在，當然出錯了。
8樓：快樂水手
靜態陣列下標從你定義時的首下標開始。看你的情況。
for x:=0 to platex dowwarray[x]:=0; //程式出錯。
update follow :
for x:=1 to platex dowwarray[x]:=0;
java求兩個陣列相加，所得值返回另陣列
參考public class sumoftwoarrayselseint c new int nc int sum 0 int carry 0 int i na 1 int j nb 1 int k nc 1 while i 0 j 0 while i 0 while j 0 c k carry r...
在a和b兩個數之間插入n個數，使它們與a b組成等差數列，則
設a1 a，則an 2 b，再設其公差為d，則an 2 a1 n 2 1 d 即b a n 1 d，所以，d b a n 1 故選b 在a和b兩數之間插入n個數，使他們與a,b組成等差數列，則該數列的公差為？這題啥意思，有人說 在a和b兩數之間插入n個數，使他們與a,b組成等差數列，易知 算上a和b...
組合公式，C上下兩個數怎麼求，A上下兩個數怎麼求
這個在高中數學課本上就有相關公式啊，組合數就是相應的排列數除以其序數。比如，c 上2下5 a 上2下5 除以a 上2下2 其中a上2下5 5乘4，a上2下2 2乘1 類似的演算法你自己按部就班依葫蘆畫瓢就可以。從n個不同元素中，任取m m n 個元素按照一定的順序排成一列，叫做從n個不同元素中取出m...