fork(1) download
  1. const
  2.  
  3. MaxMembers = 50;
  4.  
  5. type
  6.  
  7. RoleType = ( guest,
  8. member,
  9. moderator,
  10. admin,
  11. owner );
  12.  
  13. Coder = record
  14. nick : string;
  15. jid : string;
  16. githubUrl : string;
  17. role : RoleType;
  18. end;
  19.  
  20. CoderPtr = ^ Coder;
  21.  
  22. Coders = array[ 1..MaxMembers ] of CoderPtr;
  23.  
  24. procedure Output( Values : Coders );
  25. var
  26. i : integer;
  27. begin
  28. for i := 1 to MaxMembers do begin
  29. Writeln( Values[ i ]^.nick );
  30. Writeln( Values[ i ]^.jid );
  31. Writeln( Values[ i ]^.githubUrl );
  32. Writeln( Values[ i ]^.role );
  33. Writeln( '---------------------------------' );
  34. end;
  35. end;
  36.  
  37. function GenerateNick() : string;
  38. var
  39. i : integer;
  40. c : integer;
  41. s : array[0..5] of char = ( 'F', 'O', 'R', 'N', 'E', 'V' );
  42. r : string;
  43. begin
  44.  
  45.  
  46. r := '';
  47.  
  48. for i := 1 to 8 do
  49. r := r + s[ random( 6 ) ];
  50.  
  51. GenerateNick := r;
  52. end;
  53.  
  54. function RandomRole: RoleType;
  55. begin
  56. RandomRole := RoleType(Random(Succ(Ord(High(RoleType)))));
  57. end;
  58.  
  59. function Fill(): Coders;
  60. var
  61. i : integer;
  62. Forevers : set of 'A'..'Z';
  63. res : Coders;
  64. begin
  65. randomize;
  66.  
  67. for i := 1 to MaxMembers do begin
  68. New( res[ i ] );
  69. res[ i ]^.nick := GenerateNick();
  70. res[ i ]^.jid := 'жид хуид';
  71. res[ i ]^.githubUrl := 'https://b...content-available-to-author-only...t.com/Username';
  72. res[ i ]^.role := RandomRole();
  73. end;
  74.  
  75. Fill := res;
  76. end;
  77.  
  78.  
  79. var
  80. CodingTeam : Coders;
  81. begin
  82.  
  83. randomize;;
  84.  
  85. CodingTeam := Fill();
  86.  
  87. Output( CodingTeam );
  88.  
  89. end.
Success #stdin #stdout 0s 532KB
stdin
Standard input is empty
stdout
ENNVEREF
жид хуид
https://b...content-available-to-author-only...t.com/Username
owner
---------------------------------
EVRRRREF
жид хуид
https://b...content-available-to-author-only...t.com/Username
admin
---------------------------------
VVFRVOOR
жид хуид
https://b...content-available-to-author-only...t.com/Username
admin
---------------------------------
NFFRERFO
жид хуид
https://b...content-available-to-author-only...t.com/Username
member
---------------------------------
OVVFFFRN
жид хуид
https://b...content-available-to-author-only...t.com/Username
admin
---------------------------------
FEOVRRNO
жид хуид
https://b...content-available-to-author-only...t.com/Username
admin
---------------------------------
ENVROVVV
жид хуид
https://b...content-available-to-author-only...t.com/Username
admin
---------------------------------
RORREROF
жид хуид
https://b...content-available-to-author-only...t.com/Username
member
---------------------------------
FOOEVVOE
жид хуид
https://b...content-available-to-author-only...t.com/Username
member
---------------------------------
FEFNOVNV
жид хуид
https://b...content-available-to-author-only...t.com/Username
member
---------------------------------
ONEEERER
жид хуид
https://b...content-available-to-author-only...t.com/Username
owner
---------------------------------
VFVORNVR
жид хуид
https://b...content-available-to-author-only...t.com/Username
member
---------------------------------
REVRFRVV
жид хуид
https://b...content-available-to-author-only...t.com/Username
guest
---------------------------------
REREVRFR
жид хуид
https://b...content-available-to-author-only...t.com/Username
owner
---------------------------------
OEVRFONN
жид хуид
https://b...content-available-to-author-only...t.com/Username
member
---------------------------------
FVRRVEOR
жид хуид
https://b...content-available-to-author-only...t.com/Username
admin
---------------------------------
VRFNRRFR
жид хуид
https://b...content-available-to-author-only...t.com/Username
guest
---------------------------------
EFVNOEFN
жид хуид
https://b...content-available-to-author-only...t.com/Username
moderator
---------------------------------
RVVRENEF
жид хуид
https://b...content-available-to-author-only...t.com/Username
admin
---------------------------------
OERNFORO
жид хуид
https://b...content-available-to-author-only...t.com/Username
member
---------------------------------
VFOFOFOR
жид хуид
https://b...content-available-to-author-only...t.com/Username
moderator
---------------------------------
VFFVNVON
жид хуид
https://b...content-available-to-author-only...t.com/Username
moderator
---------------------------------
VVVNVVVF
жид хуид
https://b...content-available-to-author-only...t.com/Username
moderator
---------------------------------
EREOENOR
жид хуид
https://b...content-available-to-author-only...t.com/Username
admin
---------------------------------
EFVVNRRV
жид хуид
https://b...content-available-to-author-only...t.com/Username
admin
---------------------------------
ERVOENRV
жид хуид
https://b...content-available-to-author-only...t.com/Username
moderator
---------------------------------
VEVNNVOO
жид хуид
https://b...content-available-to-author-only...t.com/Username
moderator
---------------------------------
NORENVFF
жид хуид
https://b...content-available-to-author-only...t.com/Username
guest
---------------------------------
FOREFNNO
жид хуид
https://b...content-available-to-author-only...t.com/Username
admin
---------------------------------
RNVROOVE
жид хуид
https://b...content-available-to-author-only...t.com/Username
guest
---------------------------------
ENNFEONR
жид хуид
https://b...content-available-to-author-only...t.com/Username
member
---------------------------------
VFVNFFRV
жид хуид
https://b...content-available-to-author-only...t.com/Username
admin
---------------------------------
NOOVEREV
жид хуид
https://b...content-available-to-author-only...t.com/Username
member
---------------------------------
VEOVNOEO
жид хуид
https://b...content-available-to-author-only...t.com/Username
guest
---------------------------------
FNFVVRVN
жид хуид
https://b...content-available-to-author-only...t.com/Username
moderator
---------------------------------
FFEEONEE
жид хуид
https://b...content-available-to-author-only...t.com/Username
owner
---------------------------------
OORFROVF
жид хуид
https://b...content-available-to-author-only...t.com/Username
admin
---------------------------------
VNFNOOVE
жид хуид
https://b...content-available-to-author-only...t.com/Username
moderator
---------------------------------
VRNVNEFR
жид хуид
https://b...content-available-to-author-only...t.com/Username
member
---------------------------------
VONEFEEE
жид хуид
https://b...content-available-to-author-only...t.com/Username
moderator
---------------------------------
ONOONVNF
жид хуид
https://b...content-available-to-author-only...t.com/Username
owner
---------------------------------
VEFNRFVV
жид хуид
https://b...content-available-to-author-only...t.com/Username
guest
---------------------------------
EORNFRVV
жид хуид
https://b...content-available-to-author-only...t.com/Username
moderator
---------------------------------
ONRRVVFR
жид хуид
https://b...content-available-to-author-only...t.com/Username
owner
---------------------------------
FNEEORRN
жид хуид
https://b...content-available-to-author-only...t.com/Username
owner
---------------------------------
FEOEVVVR
жид хуид
https://b...content-available-to-author-only...t.com/Username
owner
---------------------------------
VEEEVVOO
жид хуид
https://b...content-available-to-author-only...t.com/Username
moderator
---------------------------------
FNEFFOEF
жид хуид
https://b...content-available-to-author-only...t.com/Username
moderator
---------------------------------
VERFEFEO
жид хуид
https://b...content-available-to-author-only...t.com/Username
owner
---------------------------------
FNNNFRVE
жид хуид
https://b...content-available-to-author-only...t.com/Username
admin
---------------------------------