Delphi Масть карт

[Serge_Bliznykov]

zzz6
угу. проглядел, что Вам в Delphi нужно.

значится так.
если Вы всё таки решили остановиться на консольном приложении,
тогда, чтобы выводить русские буквы Вам понадобится функция перекодировки русского текста из кодировки Windows (она же Windows-1251, она же ANSI) в кодировку DOS (она же 866, она же OEM)/

вот эта функция:

function StrToOem(const AnsiStr: AnsiString): AnsiString;
begin
  SetLength(Result, Length(AnsiStr));
  if Length(Result) > 0 then
    CharToOemBuff(PChar(AnsiStr), PChar(Result), Length(Result));
end;

ну и потом везде, где Вы ходите вывести русский текст пишите вызов этой функции.
например, так:

var
  N, M : integer;
begin
  WriteLn;
  Write(StrToOem('Введите значение карты N (6<=N<=14) :'));
  Readln(N);
  if (N<6) or (N>14) then begin
    WriteLn(StrToOem('Нет такого значения карты! Конец!'));
.....
и т.д.

либо возьмите обычный тип программы (форма Win32 с использованием VCL) перепишите код так, чтобы N и M брались, например, из Edit1 и Edit2
вычисление обозначения карты повесьте на кнопку (киньте на форму кнопку, например, Button1) и на обработчик OnClick этой кнопки напишите код,
который, например, будет формировать наименование карты в Edit3:

procedure TForm1.Button1Click(Sender: TObject);
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)+1..ord(CHER)+1] of str5 =
    ('пик','треф','бубен','червей');
{ с точки зрения надёжности, более правильно описать так
    ZNACH_STR : array[ord(K6)..ord(KTUZ)] of str5 =
         ('6','7','8','9','10','Валет','Дама','Король','ТУЗ');
   но тогда при отображении надо будет от числа отнимать 6 (т.к. значения начинаются от нуля)
         }
  ZNACH_STR : array[6..14] of string =
     ('шестёрка','семёрка','восьмёрка','девятка','десятка',
     'валет','дама','король','туз');
var
  N, M : integer;
begin
  N := StrToIntDef(Edit1.Text, 0);
  if (N<6) or (N>14) then begin
    Edit3.Text := ' Ошибка! Нет такого значения карты!';
    Exit
  end;
  M := StrToIntDef(Edit2.Text, 0);
  if (M<1) or (M>4) then begin
    Edit3.Text := ' Ошибка! Нет такой масти!';
    Exit
  end;
  Edit3.Text := ZNACH_STR[N]+' '+Mast_STR[M];
end;