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

	

		
	 
	
	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			

			                        







			
			

				

	
					
					 https://ideone.com/FEYxuS
					
					
					
					
					

												

												
						
						

					

					
					
					

						
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!