fork(3) 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. 		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/' + res[ i ]^.nick;
  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 488KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
NFONRNNO
жид хуид
https://b...content-available-to-author-only...t.com/NFONRNNO
moderator
---------------------------------
NRVORFFE
жид хуид
https://b...content-available-to-author-only...t.com/NRVORFFE
member
---------------------------------
FFRNNVVN
жид хуид
https://b...content-available-to-author-only...t.com/FFRNNVVN
admin
---------------------------------
ROVVEFEO
жид хуид
https://b...content-available-to-author-only...t.com/ROVVEFEO
member
---------------------------------
EFFFRVEF
жид хуид
https://b...content-available-to-author-only...t.com/EFFFRVEF
member
---------------------------------
EONFFORV
жид хуид
https://b...content-available-to-author-only...t.com/EONFFORV
member
---------------------------------
EVONRNNE
жид хуид
https://b...content-available-to-author-only...t.com/EVONRNNE
owner
---------------------------------
FNNFNEON
жид хуид
https://b...content-available-to-author-only...t.com/FNNFNEON
member
---------------------------------
EENOFFFO
жид хуид
https://b...content-available-to-author-only...t.com/EENOFFFO
member
---------------------------------
VNNOVOOO
жид хуид
https://b...content-available-to-author-only...t.com/VNNOVOOO
member
---------------------------------
RVVVNNVV
жид хуид
https://b...content-available-to-author-only...t.com/RVVVNNVV
owner
---------------------------------
RVEEFFEE
жид хуид
https://b...content-available-to-author-only...t.com/RVEEFFEE
owner
---------------------------------
ONOOVFOR
жид хуид
https://b...content-available-to-author-only...t.com/ONOOVFOR
moderator
---------------------------------
OEFFOOEO
жид хуид
https://b...content-available-to-author-only...t.com/OEFFOOEO
guest
---------------------------------
EOOFFVVE
жид хуид
https://b...content-available-to-author-only...t.com/EOOFFVVE
admin
---------------------------------
RROVENVF
жид хуид
https://b...content-available-to-author-only...t.com/RROVENVF
owner
---------------------------------
FROEFRVV
жид хуид
https://b...content-available-to-author-only...t.com/FROEFRVV
owner
---------------------------------
VVVOFOOE
жид хуид
https://b...content-available-to-author-only...t.com/VVVOFOOE
member
---------------------------------
ORNNENEV
жид хуид
https://b...content-available-to-author-only...t.com/ORNNENEV
member
---------------------------------
NRVREOVE
жид хуид
https://b...content-available-to-author-only...t.com/NRVREOVE
owner
---------------------------------
ONVOFREF
жид хуид
https://b...content-available-to-author-only...t.com/ONVOFREF
moderator
---------------------------------
ONEREVRR
жид хуид
https://b...content-available-to-author-only...t.com/ONEREVRR
member
---------------------------------
FVEERVRO
жид хуид
https://b...content-available-to-author-only...t.com/FVEERVRO
member
---------------------------------
FFFFVEFF
жид хуид
https://b...content-available-to-author-only...t.com/FFFFVEFF
moderator
---------------------------------
VRFOEVVF
жид хуид
https://b...content-available-to-author-only...t.com/VRFOEVVF
moderator
---------------------------------
NVEEEONN
жид хуид
https://b...content-available-to-author-only...t.com/NVEEEONN
moderator
---------------------------------
NROVERRN
жид хуид
https://b...content-available-to-author-only...t.com/NROVERRN
admin
---------------------------------
VEEEEONE
жид хуид
https://b...content-available-to-author-only...t.com/VEEEEONE
owner
---------------------------------
NVROONOV
жид хуид
https://b...content-available-to-author-only...t.com/NVROONOV
moderator
---------------------------------
OFEOFRRO
жид хуид
https://b...content-available-to-author-only...t.com/OFEOFRRO
moderator
---------------------------------
RERVOVRF
жид хуид
https://b...content-available-to-author-only...t.com/RERVOVRF
admin
---------------------------------
EFOVFORF
жид хуид
https://b...content-available-to-author-only...t.com/EFOVFORF
owner
---------------------------------
RVOOFENV
жид хуид
https://b...content-available-to-author-only...t.com/RVOOFENV
moderator
---------------------------------
VNNRFVNO
жид хуид
https://b...content-available-to-author-only...t.com/VNNRFVNO
admin
---------------------------------
FFFVNONE
жид хуид
https://b...content-available-to-author-only...t.com/FFFVNONE
owner
---------------------------------
VEVRVFRE
жид хуид
https://b...content-available-to-author-only...t.com/VEVRVFRE
guest
---------------------------------
VORFFFVO
жид хуид
https://b...content-available-to-author-only...t.com/VORFFFVO
admin
---------------------------------
RRRNOFEN
жид хуид
https://b...content-available-to-author-only...t.com/RRRNOFEN
admin
---------------------------------
VRRFFNRF
жид хуид
https://b...content-available-to-author-only...t.com/VRRFFNRF
guest
---------------------------------
VRRFVENE
жид хуид
https://b...content-available-to-author-only...t.com/VRRFVENE
admin
---------------------------------
NVNOROVN
жид хуид
https://b...content-available-to-author-only...t.com/NVNOROVN
admin
---------------------------------
NVOENRRR
жид хуид
https://b...content-available-to-author-only...t.com/NVOENRRR
member
---------------------------------
NOOVNVFR
жид хуид
https://b...content-available-to-author-only...t.com/NOOVNVFR
member
---------------------------------
OFOVNRFR
жид хуид
https://b...content-available-to-author-only...t.com/OFOVNRFR
moderator
---------------------------------
OFVVVNFO
жид хуид
https://b...content-available-to-author-only...t.com/OFVVVNFO
owner
---------------------------------
EFOFOREN
жид хуид
https://b...content-available-to-author-only...t.com/EFOFOREN
member
---------------------------------
NFNVEONE
жид хуид
https://b...content-available-to-author-only...t.com/NFNVEONE
guest
---------------------------------
OEVFRVVV
жид хуид
https://b...content-available-to-author-only...t.com/OEVFRVVV
admin
---------------------------------
FNVFVOON
жид хуид
https://b...content-available-to-author-only...t.com/FNVFVOON
admin
---------------------------------
VFNVOVFR
жид хуид
https://b...content-available-to-author-only...t.com/VFNVOVFR
member
---------------------------------
https://ideone.com/pllXOp
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!