Главная страница
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.018 c
1-2966
Chery
2003-05-21 11:10
2003.06.02
Как Borland Socket Server (scktsrvr) сделать службой?


11-2834
antonioxxx
2002-09-06 19:59
2003.06.02
Проблема с компиляцией.


1-2885
Vulko
2003-05-20 15:23
2003.06.02
Как сохранить текст из RichEdit в файл?


3-2761
noteens
2003-05-13 20:04
2003.06.02
строки в DBGrid


4-3202
Пубертанец
2003-04-03 14:22
2003.06.02
Помогите разобраться с OpenFileMapping