Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.02;
Скачать: CL | DM;

Вниз

выбор массива   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
9-2729
Marser
2002-12-19 00:54
2003.06.02
DelphiX и множество спрайтов


14-3102
romychk
2003-05-12 23:35
2003.06.02
Защита глаз :)


1-2952
Tornado
2003-05-21 09:08
2003.06.02
Преобразование Pchar в String


3-2777
Caesar
2003-05-13 15:53
2003.06.02
Tera XL


14-3110
yaJohn
2003-05-14 12:57
2003.06.02
Контроль версий - быстро, дешево и сердито.