Question

Задача на pascal abc,решить задачу используя typeПомогите пожалуйста очень надо)Составить программу которая создает файл каждая строка которого выглядет так: табельный номер,фио,оклад.ввести в файл данные о 5-ти работниках и вывести в другой файл максимальный оклад

Answer 1

var i,max:integer; fio:string; x:array[1..5] of integer;
    F1,F2:text;
begin
 assign(F1, 'out.txt'); assign(F2, 'out2.txt');
 rewrite(F1); rewrite(F2);
 for i:=1 to 5 do
   begin
     writeln('daite FIO ',i,'-ogo rabotnika'); readln(fio);
     writeln('daite otklad rabotnika ',i); readln(x[i]);
     writeln(F1, i,' ',fio,' ',x[i]); fio:='';
   end;
   max:=x[1];
   for i:=1 to 5 do if x[i]>max then max:=x[i];
   writeln(F2, max);  close(F1); close(F2);
 readln;
end.

 

rabotatet! proveril v PASCALE

Answer 2

Task Solution in Pascal ABC

To solve the given task in Pascal ABC, we can create a program that reads data about 5 employees from a file, finds the employee with the maximum salary, and then writes the details of the employee with the maximum salary to another file.

Here's a step-by-step guide to solving this task:

1. Define a Record Type: - We can define a record type to represent the details of an employee, including the employee's ID, full name, and salary.

   type
       Employee = record
           ID: integer;
           FullName: string;
           Salary: real;
       end;
   

2. Create and Write Data to a File: - Next, we can create a file and write the details of 5 employees to it. Each line in the file will contain the employee's ID, full name, and salary.

   var
       EmployeesFile: text;
       i: integer;
       emp: Employee;
   begin
       assign(EmployeesFile, 'employees.txt');
       rewrite(EmployeesFile);
       for i := 1 to 5 do
       begin
           // Read employee details from user input or generate them
           // Write employee details to the file
           writeln(EmployeesFile, emp.ID, ' ', emp.FullName, ' ', emp.Salary);
       end;
       close(EmployeesFile);
   end.
   

3. Find Employee with Maximum Salary: - After writing the data to the file, we can read the file again, parse the details of each employee, and find the employee with the maximum salary.

   var
       EmployeesFile: text;
       maxSalaryEmp: Employee;
       currentEmp: Employee;
   begin
       // Open the file for reading
       // Initialize maxSalaryEmp with the details of the first employee
       // Read the details of each employee from the file
       // Compare the salary of the current employee with the maximum salary found so far
       // If the current employee's salary is greater, update maxSalaryEmp
       // After reading all employees, maxSalaryEmp will contain the employee with the maximum salary
   end.
   

4. Write Details of Employee with Maximum Salary to Another File: - Finally, we can write the details of the employee with the maximum salary to another file.

   var
       MaxSalaryFile: text;
   begin
       assign(MaxSalaryFile, 'max_salary_employee.txt');
       rewrite(MaxSalaryFile);
       // Write the details of maxSalaryEmp to the file
       writeln(MaxSalaryFile, maxSalaryEmp.ID, ' ', maxSalaryEmp.FullName, ' ', maxSalaryEmp.Salary);
       close(MaxSalaryFile);
   end.
   

By following these steps, we can create a program in Pascal ABC to solve the given task.