Question

Создать структуру данных типа список из сотрудников компании (Фамилия, телефон). Количество сотрудников неизвестно, перед последним вводится ноль и затем в той же строке фамилия и телефон. Перенести список в файл (паскаль)​

Answer 1

// PascalABC.NET

begin

 var СправочникКомпании := new List<string>;

 while True do

 begin  

   var НаборСлов := ReadlnString.ToWords;

   var ЧислоСлов := НаборСлов.Length;

   case ЧислоСлов of

     2: СправочникКомпании.Add(НаборСлов[0] + ' ' +

         НаборСлов[1]);

     3: begin

           СправочникКомпании.Add(НаборСлов[1] + ' ' +

               НаборСлов[2]);

           break

        end;  

     else

       Writeln('Нарушен формат данных, строка не принята')  

   end

 end;  

 WriteAllLines('ТелефонныйСправочник.txt',

     СправочникКомпании.ToArray)

end.

Answer 2

Вам нужно создать структуру данных для списка сотрудников, принимать данные от пользователя до тех пор, пока не будет введен 0 в качестве индикатора завершения ввода, а затем сохранить этот список в файл в формате, подходящем для использования в языке программирования Паскаль.

Вот пример кода на Python, который демонстрирует, как это можно сделать:

pythonCopy code
# Создаем список для хранения данных о сотрудниках
employees = []

# Вводим данные о сотрудниках
while True:
    data = input("Введите фамилию и телефон сотрудника (или 0 для завершения): ")
    if data == "0":
        break
    else:
        surname, phone = data.split()
        employees.append((surname, phone))

# Записываем данные в файл паскаль
with open("employees.pas", "w") as f:
    f.write("program Employees;\n")
    f.write("type\n")
    f.write("  Employee = record\n")
    f.write("    Surname: string;\n")
    f.write("    Phone: string;\n")
    f.write("  end;\n")
    f.write("var\n")
    f.write("  EmployeeList: array of Employee;\n")
    f.write("begin\n")
    f.write("  SetLength(EmployeeList, %d);\n" % len(employees))
    for i, (surname, phone) in enumerate(employees):
        f.write("  EmployeeList[%d].Surname := '%s';\n" % (i, surname))
        f.write("  EmployeeList[%d].Phone := '%s';\n" % (i, phone))
    f.write("end.\n")

После выполнения этого кода будет создан файл "employees.pas" с Паскаль-кодом, который содержит введенные данные о сотрудниках в виде структуры записей (records).

Обратите внимание, что это демонстрационный пример и в реальности вам может потребоваться дополнительно обрабатывать ошибки ввода и взаимодействия с файлами, чтобы обеспечить корректную работу программы.