fork(1) download
copy 
  1. const 
  2.  
  3. 	MaxMembers = 100;
  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[1..6] of char = ( 'F', 'O', 'R', 'N', 'E', 'V' );
  42. 	y : string;
  43. 	r : string;
  44. begin
  45. 	randomize;
  46. 	y := 'FORNEV';
  47.  
  48. 	for i := 1 to 8 do  
  49. 		r[ i ] := y[ random( 6 ) + 1 ];
  50.  
  51. 	GenerateNick := r;
  52. end;
  53.  
  54. function Fill(): Coders;
  55. var 
  56. 	i        : integer;
  57. 	Forevers : set of 'A'..'Z';
  58. 	res      : Coders;
  59. begin
  60. 	randomize;
  61.  
  62. 	for i := 1 to MaxMembers do begin
  63. 		New( res[ i ] );
  64. 		res[ i ]^.nick      := GenerateNick();
  65. 		res[ i ]^.jid       := 'жид хуид';
  66. 		res[ i ]^.githubUrl := 'https://b...content-available-to-author-only...t.com/Username';
  67. 		//res[ i ]^.role      := random( 5 ); 
  68. 	end;
  69. end;
  70.  
  71.  
  72. var
  73. 	CodingTeam : Coders;
  74. 	i          : integer;
  75. 	r          : string;
  76. begin
  77.  
  78. //	CodingTeam := Fill();
  79.  
  80. //	Output( CodingTeam );
  81.  
  82. 	writeln( GenerateNick );	
  83. end.
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 

	

		
	 
	
	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			

			                        







			
			

				

	
					
					 https://ideone.com/agCJs5
					
					
					
					
					

												

												
						
						

					

					
					
					

						
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!