карточная игра 21

[Speeker]

Хотя на мой взгляд со множествами будет быстрее

  var
    s:tstrings;
 
    i,z:integer;
    a: array[1..36] of integer;
    procedure TForm1.Button1Click(Sender: TObject);
begin
s:=tstringlist.Create;
    for i:=0 to 35 do
    begin
    s.Add(inttostr(i));
    end;
    randomize;
    for i:=0 to 35 do
    begin
    z:=random(s.Count);
    a[i+1]:=strtoint(s.Strings[z]);
    s.Delete(z);
    end;
    memo1.Lines.Clear;
    for i:=1 to 36 do
    memo1.Lines.Add(inttostr(a[i]));
end;

[IIaJIauT]

Ребята,у вас тут все на Дельфи видимо,а я его совсем незнаю,мне нужна тоже самая программа,только на Паскале,можете помочь с переводом этих не самых понятных кодов на Паскаль,очень надо.Заранее спасибо!

[Alex Cones]

Мне кажется, что надо сделать массив с номерами карт. Потом методом случайных чисел выбирать одну карту из массива (удалять элемент массива, смещая всё после “влево”), потом уменьшаем счётчик карт в колоде для Random, чтоб он не брал не существующие карты. С помощью этого можно избежать повтора карт.

Люди, зачем такое извращение? Я когда делал свое "21" сделал так:
За пределами формы в ряд выставил все карты (можно не в ряд, главное, чтобы To был одинаковый).
Когда карта нам нужна - перекидываем её в видимую область формы, соответственно меняя её координаты (и Top) тоже.
Что происходит, если карта уже была выкинута:

While Card[N].Top=344 do N:=Random(52)+1;
Card[N].Top:=122;

[anyx]

Сообщение от IIaJIauT

Ребята,у вас тут все на Дельфи видимо,а я его совсем незнаю,мне нужна тоже самая программа,только на Паскале,можете помочь с переводом этих не самых понятных кодов на Паскаль,очень надо.Заранее спасибо!

как тебе может быть непонятен код на Делфи, если ты знаешь Паскаль?!
Дельфи - прямой потомок Паскаля! код на них очень похож (там где дело не касается графических возможностей Делфи и названий идентификаторов)
-----
хотя, зависит от того, какой паскаль ты юзаешь. есть только один норм Паскаль - Турбо Паскаль 7.0 (и ещё пара современных вроде Free Pascal), но он уже устарел, так что переходи на Делфи!!!!!!!!