fork(1) 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..5] of char = ( 'F', 'O', 'R', 'N', 'E', 'V' );
  44. 	r : string;
  45. begin
  46.  
  47.  
  48. 	r := '';
  49.  
  50. 	for i := 1 to 8 do
  51. 		r := r + s[ random( 6 ) ];
  52.  
  53. 	GenerateNick := r;
  54. end;
  55.  
  56. function RandomRole: RoleType;
  57. begin
  58.   RandomRole := RoleType(Random(Succ(Ord(High(RoleType)))));
  59. end;
  60.  
  61. function Fill(): Coders;
  62. var 
  63. 	i        : integer;
  64. 	Forevers : set of 'A'..'Z';
  65. 	res      : Coders;
  66. begin
  67. 	randomize;
  68.  
  69. 	for i := 1 to MaxMembers do begin
  70. 		New( res[ i ] );
  71. 		with res[ i ]^ do begin
  72. 			nick      := GenerateNick();
  73. 			jid       := 'жид хуид';
  74. 			githubUrl := 'https://b...content-available-to-author-only...t.com/' + res[ i ]^.nick;
  75. 			role      := RandomRole(); 
  76. 		end;
  77. 	end;
  78.  
  79. 	Fill := res;
  80. end;
  81.  
  82. procedure Clear( var values : Coders );
  83. var
  84. 	i : integer;
  85. begin
  86. 	for i := 1 to MaxMembers do
  87. 		dispose( values[ i ] );
  88. end;
  89.  
  90.  
  91. var
  92. 	CodingTeam : Coders;
  93. begin
  94.  
  95. 	randomize;;
  96.  
  97. 	CodingTeam := Fill();
  98. 	Output( CodingTeam );
  99. 	Clear ( CodingTeam );
  100. end.
Success #stdin #stdout 0s 276KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
ONONFFNV
жид хуид
https://b...content-available-to-author-only...t.com/ONONFFNV
admin
---------------------------------
EVVVVVRR
жид хуид
https://b...content-available-to-author-only...t.com/EVVVVVRR
member
---------------------------------
VEEERRVV
жид хуид
https://b...content-available-to-author-only...t.com/VEEERRVV
moderator
---------------------------------
ROERONRO
жид хуид
https://b...content-available-to-author-only...t.com/ROERONRO
guest
---------------------------------
ENFROVFE
жид хуид
https://b...content-available-to-author-only...t.com/ENFROVFE
member
---------------------------------
NVONOFRE
жид хуид
https://b...content-available-to-author-only...t.com/NVONOFRE
moderator
---------------------------------
VONREFNV
жид хуид
https://b...content-available-to-author-only...t.com/VONREFNV
member
---------------------------------
FNVRNNVO
жид хуид
https://b...content-available-to-author-only...t.com/FNVRNNVO
member
---------------------------------
VVOFROVR
жид хуид
https://b...content-available-to-author-only...t.com/VVOFROVR
admin
---------------------------------
OREEREVR
жид хуид
https://b...content-available-to-author-only...t.com/OREEREVR
guest
---------------------------------
OORRENFV
жид хуид
https://b...content-available-to-author-only...t.com/OORRENFV
member
---------------------------------
ENNEVFVF
жид хуид
https://b...content-available-to-author-only...t.com/ENNEVFVF
member
---------------------------------
EFNVEEFO
жид хуид
https://b...content-available-to-author-only...t.com/EFNVEEFO
moderator
---------------------------------
FEFOFNFF
жид хуид
https://b...content-available-to-author-only...t.com/FEFOFNFF
member
---------------------------------
RROFOERO
жид хуид
https://b...content-available-to-author-only...t.com/RROFOERO
guest
---------------------------------
ONFERFEO
жид хуид
https://b...content-available-to-author-only...t.com/ONFERFEO
member
---------------------------------
VVRVRNOR
жид хуид
https://b...content-available-to-author-only...t.com/VVRVRNOR
member
---------------------------------
VNNERVEO
жид хуид
https://b...content-available-to-author-only...t.com/VNNERVEO
moderator
---------------------------------
VRFNOVNE
жид хуид
https://b...content-available-to-author-only...t.com/VRFNOVNE
owner
---------------------------------
EORFNFNO
жид хуид
https://b...content-available-to-author-only...t.com/EORFNFNO
guest
---------------------------------
REREVEFE
жид хуид
https://b...content-available-to-author-only...t.com/REREVEFE
owner
---------------------------------
NNNFOOVN
жид хуид
https://b...content-available-to-author-only...t.com/NNNFOOVN
moderator
---------------------------------
EFFFOVNV
жид хуид
https://b...content-available-to-author-only...t.com/EFFFOVNV
moderator
---------------------------------
FFRVEEEN
жид хуид
https://b...content-available-to-author-only...t.com/FFRVEEEN
guest
---------------------------------
VVFONFVF
жид хуид
https://b...content-available-to-author-only...t.com/VVFONFVF
admin
---------------------------------
FFVFVFNR
жид хуид
https://b...content-available-to-author-only...t.com/FFVFVFNR
member
---------------------------------
NNRVVFEF
жид хуид
https://b...content-available-to-author-only...t.com/NNRVVFEF
guest
---------------------------------
FNRVVVON
жид хуид
https://b...content-available-to-author-only...t.com/FNRVVVON
admin
---------------------------------
OFNNOOVE
жид хуид
https://b...content-available-to-author-only...t.com/OFNNOOVE
admin
---------------------------------
VVENNENV
жид хуид
https://b...content-available-to-author-only...t.com/VVENNENV
admin
---------------------------------
EOFRORVF
жид хуид
https://b...content-available-to-author-only...t.com/EOFRORVF
guest
---------------------------------
RNFNERVR
жид хуид
https://b...content-available-to-author-only...t.com/RNFNERVR
member
---------------------------------
FNNERRVF
жид хуид
https://b...content-available-to-author-only...t.com/FNNERRVF
owner
---------------------------------
NVNNREVV
жид хуид
https://b...content-available-to-author-only...t.com/NVNNREVV
admin
---------------------------------
NRNOVOVO
жид хуид
https://b...content-available-to-author-only...t.com/NRNOVOVO
guest
---------------------------------
FEEEERNR
жид хуид
https://b...content-available-to-author-only...t.com/FEEEERNR
admin
---------------------------------
OOEFFEFN
жид хуид
https://b...content-available-to-author-only...t.com/OOEFFEFN
moderator
---------------------------------
ROFNFORN
жид хуид
https://b...content-available-to-author-only...t.com/ROFNFORN
admin
---------------------------------
VRRRNVVO
жид хуид
https://b...content-available-to-author-only...t.com/VRRRNVVO
admin
---------------------------------
ONRVFFOE
жид хуид
https://b...content-available-to-author-only...t.com/ONRVFFOE
moderator
---------------------------------
VNEFRNRE
жид хуид
https://b...content-available-to-author-only...t.com/VNEFRNRE
guest
---------------------------------
NRFVNNEO
жид хуид
https://b...content-available-to-author-only...t.com/NRFVNNEO
member
---------------------------------
ORRFONEO
жид хуид
https://b...content-available-to-author-only...t.com/ORRFONEO
member
---------------------------------
NNOVNFVF
жид хуид
https://b...content-available-to-author-only...t.com/NNOVNFVF
admin
---------------------------------
ONRVRNFF
жид хуид
https://b...content-available-to-author-only...t.com/ONRVRNFF
member
---------------------------------
NNRROFVR
жид хуид
https://b...content-available-to-author-only...t.com/NNRROFVR
admin
---------------------------------
OOORREEE
жид хуид
https://b...content-available-to-author-only...t.com/OOORREEE
owner
---------------------------------
FOROEEFR
жид хуид
https://b...content-available-to-author-only...t.com/FOROEEFR
guest
---------------------------------
ONEVEFVF
жид хуид
https://b...content-available-to-author-only...t.com/ONEVEFVF
owner
---------------------------------
NNRFVEER
жид хуид
https://b...content-available-to-author-only...t.com/NNRFVEER
owner
---------------------------------
https://ideone.com/zuZxq9
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!