Побьёт ли одна карта другую? Delphi.

[Игорь777]

Составить программу, проверяющую, побьёт ли одна карта К1 другую карту К2 с учетом козарной масти КМ.
Каждая карта представляет собой запись (структуру) из двух полей: масти (пики, трефы, бубны, червы) и значени (6, 7, 8, 9, 10, Валет, Дама, Король, Туз).
Для проверки использовать 3 пары карт.
В выходной файл вывести информацию о проверяемых картах, козырной масти и результат проверки (бьёт, не бьёт).

Буду очень благодарен, если поможете с решением. Сам долго бился, но ни к чему путному пока не пришел(

[Serge_Bliznykov]

вот полностью готовая программа на Паскаль.
идея/алгоритм ясны. если надо, под Delphi сами замените:

TYPE
  str5 = string[6];
  MAST  = (PIKI,TREF,BUBN,CHER);
  ZNACH = (K6,K7,K8,K9,K10,KVAL,KDAM,KKOR,KTUZ);
const
  Mast_STR : array[ord(PIKI)..ord(CHER)] of str5 = ('Пик','Треф','Бубен','Червей');
  ZNACH_STR : array[ord(K6)..ord(KTUZ)] of str5 = 
     ('6','7','8','9','10','Валет','Дама','Король','ТУЗ');

TYPE
  KARTA=RECORD
     M:MAST;
     Z:ZNACH;
  END;

var
  K1, K2 : KARTA;
  KM : MAST; 
  KTemp  : KARTA;
  Koloda : array[1..36] of KARTA;
  i,j,k  : integer;

begin
  randomize;


  {заполним колоду полностью по мастями и значениям}
  for i:=ord(PIKI) to ord(CHER) do
    for j:=ord(K6) to ord(KTUZ) do
      begin
        Koloda[i*9+j+1].M := MAST(i);
        Koloda[i*9+j+1].Z := ZNACH(j);
      end;


  {перемешиваем
     (просто многократно меняем местами две карты случайным образом)
       при замене используем KTemp в качестве временного буфера
          (вместо KTemp можно было использовать K1 или K2,
            но отдельная переменная добавлена для наглядности}
  for k:=1 to 1000 do {меняем 1000 раз, думаю, этого достаточно :-)}
    begin
      i := Trunc(Random(36))+1; {получили случ.число от 1 до 36}
      j := Trunc(Random(36))+1; {получили случ.число от 1 до 36}
      if i<>j {если случайно получили один и тот же номер, то зачем
                 менять карту саму с собой?!}
        then begin
          KTemp := Koloda[i];
          Koloda[i] := Koloda[j];
          Koloda[j] := KTemp
        end;
    end;


  {просто берём первую и вторую карты и отображаем их масти и значение}  
  K1 := Koloda[1];
  K2 := Koloda[2];
  WriteLn('Первая карта: ', ZNACH_STR[ord(K1.Z)],'-',Mast_STR[ord(K1.M)]);
  WriteLn('Вторая карта: ', ZNACH_STR[ord(K2.Z)],'-',Mast_STR[ord(K2.M)]);

  {получим козырную масть случайным образом}
  KM := MAST(trunc(Random(4)));
  WriteLn('Козырная масть: ',Mast_STR[ord(KM)]);

  if ((K1.M = K2.M) and (K1.Z > K1.Z)) or ((K1.M = KM) and (K2.M <> KM)) 
    then 
      WriteLn('Карта1 бьёт карту2')
    else
      WriteLn('Карта1 НЕ бьёт карту2');

  Readln;
  
end.

[Stilet]

Я помоему предлагал тут вариант распределения карт по старшенству в массив, а потом просто сравнить позиции бьющей и побиваемой, и если позиция бьющей больше - то побьет.

[Serge_Bliznykov]

да. важное уточнение. "Побьёт" в моём примере, это по правилам игры "Дурак" (т.к. в разных играх разные правила).
например, в коде выше, туз одной масти (не козырной) не бьёт любую карту, если она другой масти...
А козырная карта, наоборот, бьёт любую некозырную карту (даже если она старше по достоинству!).

[Игорь777]

Огромное спасибо!!