home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / EMPLOYEE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  1.4 KB  |  66 lines
  1.                                    (* Chapter 16 - Program 6 *)
  2. program Employee;
  3.  
  4. {$R+}
  5.  
  6. uses Person, Supervsr;
  7.  
  8. var staff : array[1..10] of ^Person_ID;
  9.     Sup   : ^Supervisor;
  10.     Prog  : ^Programmer;
  11.     Sec   : ^Secretary;
  12.     Index : integer;
  13.  
  14. begin
  15.  
  16.    for Index := 1 to 10 do
  17.       staff[Index]^.Init;
  18.  
  19.    WriteLn('XYZ Staff assignments.');
  20.    WriteLn;
  21.  
  22.    new(Sup);
  23.    staff[1] := Sup;
  24.    Sup^.Init('Big John', 5100, 'President');
  25.  
  26.    new(Prog);
  27.    staff[2] := Prog;
  28.    Prog^.Init('Joe Hacker', 3500, 'Pascal');
  29.  
  30.    new(Prog);
  31.    staff[3] := Prog;
  32.    Prog^.Init('OOP Wizard', 7700, 'OOP Pascal');
  33.  
  34.    new(Sec);
  35.    staff[4] := Sec;
  36.    Sec^.Init('Tillie Typer', 2200, True, 85);
  37.  
  38.    new(Sup);
  39.    staff[5] := Sup;
  40.    Sup^.Init('Tom Talker', 5430,'Sales Manager');
  41.  
  42.    new(Prog);
  43.    staff[6] := Prog;
  44.    Prog^.Init('Dave Debug', 5725, 'Assembly Language');
  45.  
  46.    for Index := 1 to 6 do
  47.       staff[Index]^.Display;
  48.  
  49. end.
  50.  
  51.  
  52.  
  53.  
  54. (* Result of execution
  55.  
  56. XYZ Staff assignments.
  57.  
  58. Big John is the president and makes $5100 per month.
  59. Joe Hacker specializes in Pascal and makes $3500 per month.
  60. OOP Wizard specializes in OOP Pascal and makes $7700 per month.
  61. Tillie TYper can type 85 words per minute.
  62. Tom Talker is the Sales Manager and makes $5430 per month.
  63. Dave Debug specializes in Assembly Language and makes $5725 per month.
  64.  
  65. *)
  66.