Регистрация
swdw1
25.03.2020 12:47
Информатика
Есть ответ 👍

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

253
492
Посмотреть ответы 2

Ответы на вопрос:

Ромашка242526
Ромашка242526
4,7(8 оценок)

// 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.

oksiur4enko
oksiur4enko
4,8(55 оценок)
Latex поддерживается и тут

Популярно: Информатика