10,000 EMPLOYEES

[chriscarlile911]

HI,
i'm trying to figure out the best way to create 9999 random employees each with an employee number (0001-9999) attached to them. i think that for the purpose of what i need, it would be easier to create them with all the same name followed by their number. ie. JOHN SMITH0001,JOHN SMITH0002 etc...
any ideas for a new pascal user.
cheers

 

[Bertv100]

Use the function random:
random(x) generates a random number in the interval [0,1,...x[ (i.e. x not included).

Use the function str to convert a number to a string:
str(125,s); => s = '125'

Use + to concatenate strings:
s:='john'+'125'; => s = 'john125'

Regards,
Bert Vingerhoets
vingerhoetsbert@hotmail.com

http://student.vub.ac.be/~bvingerh/

Don't worry what people think about you. They're too busy wondering what you think about them.

 

[chriscarlile911]

THANX Bertv100,
when i said i was a new pascal user, i meant really new. so i dont really understand any of what you just said except for your signature (cool by the way) i'll look in some books to try and figure out what you're telling me.
regards
chriscarlile911
p.s. if, "once you pop, you can't stop", why do pringle come in a resealable tub!?!?!?

 

[Bertv100]

Some example code:

FUNCTION generate_name(name : string; number : word) : string;
VAR number_string : string;
begin
  { convert the given number to a string: }
  str(number,number_string);
  { push zeroes in front of it, so all "numbers" have the same length }
  while length(number_string)<4 do
   number_string:='0'+number_string;
  { return as result the concatenation of the given name and the number }
  generate_name:=name+number_string;
end;

Executing

generate_name('JOHN SMITH',1);

will result in the value

'JOHN SMITH0001'

.
The following example will print this result on screen:

VAR s : string;
BEGIN
  s:=generate_name('JOHN SMITH',1);
  writeln(s);
END.

If you don't understand all this code, you should really read some book on Pascal. People in this forum can only help if you already know Pascal's syntax and are at least remotely familiar with its iteration and selection techniques.

Regards,
Bert Vingerhoets
vingerhoetsbert@hotmail.com

http://student.vub.ac.be/~bvingerh/

Don't worry what people think about you. They're too busy wondering what you think about them.

 

[lionelhill]

Bertv100, can't you get str to produce the right format automatically by specifying it with ':' things, like you can in writeln?? I can't remember....

 

[Bertv100]

Yes you can, but I took Chris' requirement which was: zeroes in front of number. The ':' formatting uses spaces.

Also, since he's a beginning programmer, an example of a while loop can be more helpful in learning to work in Pascal than a cryptic ':' construct.

Regards,
Bert Vingerhoets
vingerhoetsbert@hotmail.com

http://student.vub.ac.be/~bvingerh/

Don't worry what people think about you. They're too busy wondering what you think about them.

 

[lionelhill]

true, true!
The ':' thing isn't very well documented in help-files, either.

 

[PROFESSORSPARKIE]

I have taught and designed random files with random record processing, if that is really what you want, for about 40 years and designing & programming a good random file processing system with a good packing factor, synonyms spreading, overflows, dynamic key reuse and appox., 1.2 reads per request, chains, skip techniques & prime divide is not something for the faint of heart. I have taught a one week design & coding overview class to experienced people and sometimes they have trouble understanding the issues.