SHARE
TWEET

Untitled

a guest Sep 3rd, 2015 66 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program test;
  2.  
  3. {$MODE DELPHI}
  4.  
  5. procedure Karta(X : Integer; var Y : string);
  6. begin
  7.   case X of
  8.     0 : Y := 'dwojka';
  9.     1 : Y := 'trojka';
  10.     2 : Y := 'czworka';
  11.     3 : Y := 'piatka';
  12.     4 : Y := 'szostka';
  13.     5 : Y := 'siodemka';
  14.     6 : Y := 'osemka';
  15.     7 : Y := 'dziewiatka';
  16.     8 : Y := 'dziesiatka';
  17.     9 : Y := 'walet';
  18.     10 : Y := 'dama';
  19.     11 : Y := 'krol';
  20.     12 : Y := 'as';
  21.   end;
  22. end;
  23.  
  24. var
  25.   S : string;
  26. begin
  27.   Karta(3, S);
  28.   Writeln(S);
  29.   Readln;
  30. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top