Есть 2й массив, X на Y, как узнать сумму одного столбца?

← →
Layner © (2004-02-19 09:29) [0]

Есть ли такая ф-я, очень надо, в цикле перебирать не хочется, заранее благодарю.

← →
TUser © (2004-02-19 09:42) [1]

Если бы даже и была ткакая ф-ция, она ведь все равно через цикл бы работала.

← →
Layner © (2004-02-19 09:44) [2]

Т.е. писать самому, в Delphi такой нет? :(

← →
Defunct © (2004-02-19 09:51) [3]

Тю, ну написал один раз да и пользуешься постоянно.
Тем более что там писать 2 строчки.

← →
dr Tr0jan © (2004-02-19 10:15) [4]

Кто придумает такую функцию, чтобы она работала без цикла (или подобия цикла) заплачу $100. А вообще там с циклом одна строчка кода:
var Massiv: array [integer,integer] of integer; i, sum: integer = 0; .. for i:=0 to integer do sum:=sum+Massiv[1, i];

З.Ы. Если массив типа Pointer, то ничего не выйдет.

А goto за подобие цикла считается?

Кто придумает такую функцию, чтобы она работала без цикла (или подобия цикла) заплачу $100. А вообще там с циклом одна строчка кода:

case i of
0: sum:=Massiv[1, 0];
1: sum:=Massiv[1, 0]+Massiv[1, 1];
2: sum:=Massiv[1, 0]+Massiv[1, 1]+Massiv[1, 2];
3: sum:=Massiv[1, 0]+Massiv[1, 1]+Massiv[1, 2]+Massiv[1, 3];
// И ТАК ДАЛЕЕ
end;

Давай 100$!!!! :))

Есть 2й массив, X на Y, как узнать сумму одного столбца? Найти похожие ветки