fork download
copy 
  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. 		with Values[ i ]^ do begin
  30. 			Writeln( nick );
  31. 			Writeln( jid );
  32. 			Writeln( githubUrl );
  33. 			Writeln( role );
  34. 			Writeln( '---------------------------------' );
  35. 		end;
  36. 	end;
  37. end;
  38.  
  39. function GenerateNick() : string;
  40. var
  41. 	i : integer;
  42. 	c : integer;
  43. 	s : array[0..4] of string = ( 'FOR', 'NE', 'VER', 'RE', 'XIM' );
  44. 	r : string;
  45. begin
  46. 	r := '';
  47.  
  48. 	for i := 1 to 4 do
  49. 		r := r + s[ random( 5 ) ];
  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. 		with res[ i ]^ do begin
  70. 			nick      := GenerateNick();
  71. 			jid       := 'жид хуид';
  72. 			githubUrl := 'https://b...content-available-to-author-only...t.com/' + nick;
  73. 			role      := RandomRole(); 
  74. 		end;
  75. 	end;
  76.  
  77. 	Fill := res;
  78. end;
  79.  
  80. procedure Clear( var values : Coders );
  81. var
  82. 	i : integer;
  83. begin
  84. 	for i := 1 to MaxMembers do
  85. 		dispose( values[ i ] );
  86. end;
  87.  
  88.  
  89. var
  90. 	CodingTeam : Coders;
  91. begin
  92.  
  93. 	randomize;
  94.  
  95. 	CodingTeam := Fill();
  96. 	Output( CodingTeam );
  97. 	Clear ( CodingTeam );
  98. end.
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
XIMFORREFOR
жид хуид
https://b...content-available-to-author-only...t.com/XIMFORREFOR
member
---------------------------------
REXIMFORNE
жид хуид
https://b...content-available-to-author-only...t.com/REXIMFORNE
member
---------------------------------
XIMNEXIMXIM
жид хуид
https://b...content-available-to-author-only...t.com/XIMNEXIMXIM
guest
---------------------------------
FORFORXIMRE
жид хуид
https://b...content-available-to-author-only...t.com/FORFORXIMRE
guest
---------------------------------
RENEVERXIM
жид хуид
https://b...content-available-to-author-only...t.com/RENEVERXIM
owner
---------------------------------
VERNERENE
жид хуид
https://b...content-available-to-author-only...t.com/VERNERENE
member
---------------------------------
XIMREREVER
жид хуид
https://b...content-available-to-author-only...t.com/XIMREREVER
owner
---------------------------------
REVERRENE
жид хуид
https://b...content-available-to-author-only...t.com/REVERRENE
moderator
---------------------------------
NEREXIMRE
жид хуид
https://b...content-available-to-author-only...t.com/NEREXIMRE
member
---------------------------------
REVERVERNE
жид хуид
https://b...content-available-to-author-only...t.com/REVERVERNE
admin
---------------------------------
VERRERENE
жид хуид
https://b...content-available-to-author-only...t.com/VERRERENE
owner
---------------------------------
VERNEXIMNE
жид хуид
https://b...content-available-to-author-only...t.com/VERNEXIMNE
owner
---------------------------------
FORVERFORVER
жид хуид
https://b...content-available-to-author-only...t.com/FORVERFORVER
moderator
---------------------------------
FORVERNEVER
жид хуид
https://b...content-available-to-author-only...t.com/FORVERNEVER
member
---------------------------------
NERERENE
жид хуид
https://b...content-available-to-author-only...t.com/NERERENE
member
---------------------------------
NEVERXIMVER
жид хуид
https://b...content-available-to-author-only...t.com/NEVERXIMVER
owner
---------------------------------
NEFORFORVER
жид хуид
https://b...content-available-to-author-only...t.com/NEFORFORVER
admin
---------------------------------
FORNEXIMFOR
жид хуид
https://b...content-available-to-author-only...t.com/FORNEXIMFOR
admin
---------------------------------
XIMVERRENE
жид хуид
https://b...content-available-to-author-only...t.com/XIMVERRENE
guest
---------------------------------
FORVERVERNE
жид хуид
https://b...content-available-to-author-only...t.com/FORVERVERNE
owner
---------------------------------
XIMFORNEXIM
жид хуид
https://b...content-available-to-author-only...t.com/XIMFORNEXIM
member
---------------------------------
XIMREVERXIM
жид хуид
https://b...content-available-to-author-only...t.com/XIMREVERXIM
guest
---------------------------------
FORREVERFOR
жид хуид
https://b...content-available-to-author-only...t.com/FORREVERFOR
member
---------------------------------
XIMXIMVERNE
жид хуид
https://b...content-available-to-author-only...t.com/XIMXIMVERNE
admin
---------------------------------
VERFORFORNE
жид хуид
https://b...content-available-to-author-only...t.com/VERFORFORNE
owner
---------------------------------
NEXIMREVER
жид хуид
https://b...content-available-to-author-only...t.com/NEXIMREVER
admin
---------------------------------
XIMXIMXIMNE
жид хуид
https://b...content-available-to-author-only...t.com/XIMXIMXIMNE
moderator
---------------------------------
REVERNEFOR
жид хуид
https://b...content-available-to-author-only...t.com/REVERNEFOR
member
---------------------------------
RENEVERRE
жид хуид
https://b...content-available-to-author-only...t.com/RENEVERRE
guest
---------------------------------
FORNEVERVER
жид хуид
https://b...content-available-to-author-only...t.com/FORNEVERVER
member
---------------------------------
NEREFORFOR
жид хуид
https://b...content-available-to-author-only...t.com/NEREFORFOR
moderator
---------------------------------
VERNEFORXIM
жид хуид
https://b...content-available-to-author-only...t.com/VERNEFORXIM
guest
---------------------------------
VERRERERE
жид хуид
https://b...content-available-to-author-only...t.com/VERRERERE
member
---------------------------------
VERFORXIMVER
жид хуид
https://b...content-available-to-author-only...t.com/VERFORXIMVER
member
---------------------------------
NENERERE
жид хуид
https://b...content-available-to-author-only...t.com/NENERERE
owner
---------------------------------
NENEXIMNE
жид хуид
https://b...content-available-to-author-only...t.com/NENEXIMNE
admin
---------------------------------
FORFORRENE
жид хуид
https://b...content-available-to-author-only...t.com/FORFORRENE
admin
---------------------------------
XIMFORRERE
жид хуид
https://b...content-available-to-author-only...t.com/XIMFORRERE
admin
---------------------------------
REVERVERXIM
жид хуид
https://b...content-available-to-author-only...t.com/REVERVERXIM
guest
---------------------------------
VERFORXIMRE
жид хуид
https://b...content-available-to-author-only...t.com/VERFORXIMRE
admin
---------------------------------
FORFORXIMVER
жид хуид
https://b...content-available-to-author-only...t.com/FORFORXIMVER
admin
---------------------------------
REXIMXIMRE
жид хуид
https://b...content-available-to-author-only...t.com/REXIMXIMRE
guest
---------------------------------
REFORREXIM
жид хуид
https://b...content-available-to-author-only...t.com/REFORREXIM
admin
---------------------------------
VERNEFORFOR
жид хуид
https://b...content-available-to-author-only...t.com/VERNEFORFOR
member
---------------------------------
NEFORNENE
жид хуид
https://b...content-available-to-author-only...t.com/NEFORNENE
owner
---------------------------------
NENEFORVER
жид хуид
https://b...content-available-to-author-only...t.com/NENEFORVER
admin
---------------------------------
REVERREVER
жид хуид
https://b...content-available-to-author-only...t.com/REVERREVER
member
---------------------------------
XIMNEXIMNE
жид хуид
https://b...content-available-to-author-only...t.com/XIMNEXIMNE
owner
---------------------------------
NEFORNEVER
жид хуид
https://b...content-available-to-author-only...t.com/NEFORNEVER
guest
---------------------------------
FORFORNERE
жид хуид
https://b...content-available-to-author-only...t.com/FORFORNERE
member
---------------------------------
https://ideone.com/Ty7fAR
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!