MOJAB 24

میزان حقوق در یک شرکت مشخص بر اساس سلسله مراتب داخلی محاسبه می شود که اطلاعات آن در یک فایل متنی با فرمت زیر قرار دارد: برنامه ای در پاسکال نوشته شده است که: 1) سلسله مراتب را به صورت یک درخت پیچیده بارگذاری کرده و با تورفتگی ها به عنوان یک درخت پوشه ها با تمام اطلاعات اولیه نشان می دهد.

program SalaryCalculator;

type Employee = record Name: string; Position: string; Salary: real; end;

Node = record Emp: Employee; Subordinates: array of Node; end;

var Root: Node;

procedure LoadHierarchy(var Node: Node); var i, NumSubordinates: integer; begin writeln('Enter employee name: '); readln(Node.Emp.Name); writeln('Enter employee position: '); readln(Node.Emp.Position); writeln('Enter employee salary: '); readln(Node.Emp.Salary);

writeln('Enter number of subordinates: '); readln(NumSubordinates);

SetLength(Node.Subordinates, NumSubordinates);

for i := 0 to NumSubordinates - 1 do begin LoadHierarchy(Node.Subordinates[i]); end; end;

procedure DisplayHierarchy(Node: Node; Level: integer); var i: integer; begin writeln('': Level * 4, Node.Emp.Name, ' - ', Node.Emp.Position, ' - ', Node.Emp.Salary);

for i := 0 to Length(Node.Subordinates) - 1 do begin DisplayHierarchy(Node.Subordinates[i], Level + 1); end; end;

begin LoadHierarchy(Root);

writeln('Hierarchy:'); DisplayHierarchy(Root, 0); end.