Delphi Масть карт

[zzz6]

Мастями игральных карт присвоены порядковые номера: 1-пики, 2-трефы, 3-бубны, 4-червы. Достоинству карт,старших десятки, присвоены номера: 11-валет, 12-дама, 13-король, 14-туз. Даны два целых числа: N- достоинство (6=<N=<14) и M- масть карты (1=<M=<4).Вывести название соответствующей карты вида "шестерка бубен", "дама червей", "туз треф", и т.д.

[Stilet]

Ну а в чем сложности? Забиваешь все в массив, вводищь с клавы N M и берешь строку write(Mast[m],' ',Dostoinstvo[n]);
Покажи как делаешь.

[zzz6]

procedure TForm3.Button1Click(Sender: TObject);
var m,n:integer
begin
write(Mast[m],' ',Dostoinstvo[n]);
Read(n,m);
for i:= 1 to n-1 do
begin
n:=
m:=
end;

end.

начинаю так..просто незнаю как сделать лучше..и плоховат пока в программировании

[Serge_Bliznykov]

угу. Виталий, разумеется, абсолютно прав...

а вот и пример.

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
  WriteLn;
  Write('Введите значение карты N (6<=N<=14) :');
  Readln(N);
  if (N<6) or (N>14) then begin
    WriteLn('Нет такого значения карты! Конец!');
    Readln;
    Halt
  end;
  Write('Введите масть карты M (1<=M<=4) : ');
  Readln(M);
  if (M<1) or (M>4) then begin
    WriteLn('Нет такого масти! Конец!');
    Readln;
    Halt
  end;
  
  WriteLn('Вы ввели карту: ',ZNACH_STR[N],' ',Mast_STR[M]);
  readln;

end.

p.s. описания типов MAST и ZNACH взяты из другой программы.
Поэтому, можете удалить лишний (с Вашей точки зрения) код..

[zzz6]

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

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
  WriteLn;
  Write('Введите значение карты N (6<=N<=14) :');
  Readln(N);
  if (N<6) or (N>14) then begin
    WriteLn('Нет такого значения карты! Конец!');
    Readln;
    Halt
  end;
  Write('Введите масть карты M (1<=M<=4) : ');
  Readln(M);
  if (M<1) or (M>4) then begin
    WriteLn('Нет такого масти! Конец!');
    Readln;
    Halt
  end;
  WriteLn('Вы ввели карту: ',ZNACH_STR[N],' ',Mast_STR[M]);
  readln;

end.

почему жалуется на begin
Expected IMPLEMENATION but received Begin at line 26

[JonMagon]

zzz6, помоему код предоставленный Serge_Bliznykov это для консольного приложения, а вы его суете в апликейшен

[zzz6]

я в делпфи вообще незнаю что куда

[JonMagon]

zzz6, New » Other » Console Application

[zzz6]

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

zzz6, New » Other » Console Application

неотображаются русские буквы при выполнении программы. как я понимаю надо подключить какой то модуль
если да то как7

[JonMagon]

Посмотрите в интернете...