SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mixser1990, ну так и учитесь правильно формулировать вопрос, что именно Вы хотите, что делаете и что не получается...
случайно получить масть и значение карт можно,например, так:
Код:
TYPE MAST = (PIKI,TREF,BUBN,CHER);
ZNACH = (K6,K7,K8,K9,K10,KVAL,KDAM,KKOR,KTUZ);
KARTA=RECORD
M:MAST;
Z:ZNACH;
END;
var
K1, K2 : KARTA;
KM : MAST;
begin
randomize;
K1.M := MAST(trunc(Random(4)));
K1.Z := ZNACH(trunc(Random(9)));
K2.M := MAST(trunc(Random(4)));
K2.Z := ZNACH(trunc(Random(9)));
KM := MAST(trunc(Random(4)));
...
|
Добавлено:
только я думаю, что карты нужно получать не так.
нужно организомать массив Koloda : array[1..36] of KARTA;
заполнить массив двумя вложенными циклами (по мастям и по значениям), и потом перемешать карты случайным образом. Потом получить два разных случайных числа (1..36) - и взять эти карты из колоды.
Иначе рандомайзом легко получить два козырных туза..  |
плиз очень прошу 