Форум: "Основная";
Текущий архив: 2003.06.02;
Скачать: [xml.tar.bz2];
Внизвыбор массива Найти похожие ветки
← →
lameridze (2003-05-22 17:42) [0]Люди-Боги, ето опять Я!!!!!
Вообсчем, есть:
var
o: array [1..10] of word;
Х,h: integer;
const
arr1: array [1..10] of word = (1,2,3,4,5,6,7,8,9,10);
arr1: array [1..10] of word = (11,22,331,44,451,61,71,81,91,110);
..
for h:=1 to 10 do
begin
O[h]:=arrX[h]; {При определенном условии подсчитывается число Х если Х=1, то: О[h]:=arr1[h];
если Х=2, то: О[h]:=arr2[h];}
так вот, если известно Х, как моно сделать это присвоение (можа каким "касе оф" (case off)).
← →
VMcL (2003-05-22 17:46) [1]>lameridze (22.05.03 17:42)
arr1 - identifier redeclared :)
← →
lameridze (2003-05-22 17:50) [2]у-у-у-у-у каки суровы
var
o: array [1..10] of word;
Х,h: integer;
const
arr1: array [1..10] of word = (1,2,3,4,5,6,7,8,9,10);
arr2: array [1..10] of word = (11,22,331,44,451,61,71,81,91,110);
..
for h:=1 to 10 do
begin
O[h]:=arrX[h]; {При определенном условии подсчитывается число Х если Х=1, то: О[h]:=arr1[h];
если Х=2, то: О[h]:=arr2[h];}
← →
Serginio (2003-05-22 18:03) [3]Сase x Of
1: О[h]:=arr1[h];
2: О[h]:=arr2[h];
end;
← →
VMcL (2003-05-22 18:07) [4]
const
arr: array [1..2, 1..10] of Word = (
(1,2,3,4,5,6,7,8,9,10),
(11,22,331,44,451,61,71,81,91,110)
);
// ...
O[h] := arr[X, h];
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c