DUzun's Web
Programare, proiecte personale, divertisment

Program Carti;

Uses CRT, Graph, Carts;

​

var gd, gm: integer;

    c: TCarte;

    i: integer;

​

BEGIN

  gd := DETECT;

  InitGraph(gd, gm, '');

  if GRaphResult <> grOk then begin

     writeln('Eroare initializare mod grafic!');

     readkey;

     Exit;

  end;

​

  SetBkColor(8);

  SetColor(YELLOW);

​

  randomize;

​

  c_width     := 100;                {latimea cartii}

  c_height    := c_width * 3 div 2;  {inaltimea cartii}

  c_style     := 9;                  {fundalul cartii (1..11)}

  c_text_size := 2;                  {dimensiunea textului cartii (1..4)}

​

​

  { I mod de desenare, folosind DrowCarte(c: TCarte; x, y: integer); }

  c_style := 9; {6}

  c.nume  := 'T';     {numele cartii c}

​

  c.maste := c_inima; {masta cartii c}

  DrowCarte(c, 10, 10);

​

  c.maste := c_frunza;

  DrowCarte(c, 10+1*(c_width+10), 10);

​

  c.maste := c_romb;

  DrowCarte(c, 10+2*(c_width+10), 10);

​

  c.maste := c_canabis;

  DrowCarte(c, 10+3*(c_width+10), 10);

​

  { Al II-lea mod de desenare, folosind DrowCart(n: TNumeCarte; m: TMaste; x, y: integer) }

  for i := 1 to 9 do begin

    c_style := i;

    DrowCart(chr(i+ord('0')), i mod 4, i*30, 10+12*i+c_height);

  end;

​

  inc(i);

  inc(c_style);

  DrowCart('10', i mod 4, i*30, 10+12*i+c_height);

​

  inc(i);

  c_style_verso := 10;

  DrowCart('1', 4, i*30, 10+12*i+c_height);

  {Pauza}

  readkey;

​

  CloseGraph;

END.

​

​