Отлично!
В программе самое важное это скорость ее работы, т.к. потом нужно будет посчитать очень много значений вероятностей, как одна рука стоит против другой (т.е. к примеру AhKc vs QdJs), а потом 3-х мерную таблицу для 3-х игроков сразу (т.е. к примеру AhKc vs QdJs vs 9h7c). В первом случае AhKc 64.3% выиграет при вскрытии карт (соответственно в 35.7% QdJs выигрывает). А во втором случае AhKc имеет только 45.45% на победу, QdJs 31.14%, а 9h7c 23.42%. Эти значения можно посмотреть в простенькой бесплатной программе
PokerStove, с ней я в конце и сверяюсь.
Нет, это не курсовая. Проект будет очень интересным я думаю, можно будет много чего научится считать вспомогательного, чтобы игра была эффективнее.
На данном этапе я хочу написать программу которая будет "измерять удачу" грубо говоря.
Ну а потом дальше буду думать, но это самое основное.
Да, кстати, там в файле не написано что такое MyArray1. Вот что я объявлял у себя выше:
type
MyArray1 = array[1..13] of byte;
MyArray2 = array[1..52] of boolean;
THand = record
Card1 : char;
Card2 : char;
Color1 : char;
Color2 : char;
end;