25 ! ! нужно составить программу на языке с++! : реализовать программу «телефонный справочник» с использованием структур (struct). требования к программе: ● максимальное количество записей в справочнике - 20. ● каждый запись должна содержать следующую информацию: им 'я (до 10 символов включительно), фамилия (до 20 символов), номер телефона (до 12 цифр). все поля обязательно 'обязательными (не могут быть пустыми). ● ключевое поле - номер телефона (в справочнике может существовать только один запись с указанным номером). ● структура хранения записей в справочнике - массив. ● после запуска программа выводит на экран меню: 1.додаты запись 2.видалиты запись 3.знайты запись 4.показаты все записи 5.вийты по программе и просит пользователя сделать выбор. ● после выбора пользователя программа при необходимости может пригласить дополнительную информацию (например, номер телефона для удаления записи). ● после выполнения операции, вызвал пользователь, программа сообщает о результате (успешное завершение или ошибка), просит пользователя нажать любую клавишу для продолжения. затем снова выводит на экран меню. ● для удаления записи необходимо указать номер телефона. ● для поиска записи необходимо указать фамилию. ● программа должна контролировать ввода данных пользователем и сохранять работо при введении сознательно неверных данных (например, слишком длинной строки в качестве имени или неразрешенных символов в номере телефона).

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

type

 TRAIN = record

   ПунктНазначения: string;

   НомерПоезда: string;

   ВремяОтправления: DateTime

 end;

procedure ВводДанных(Список: List<TRAIN>);

begin

 var Поезд: TRAIN;

 var ЧЧММ: string;

 for var i := 1 to 6 do // 6 поездов

 begin

   Println('Ввод данных о поезде', i);

   Поезд.ПунктНазначения := ReadlnString('Пункт назначения:');

   Поезд.НомерПоезда := ReadlnString('Номер поезда:');

   repeat

     ЧЧММ := ReadlnString('Время отправления (ЧЧ:ММ):');

   until DateTime.TryParse(ЧЧММ, Поезд.ВремяОтправления);

   Список.Add(Поезд)

 end

end;

procedure ПоискПоездов(Список: List<TRAIN>; ПунктНазначения: string);

begin

 var Отобрано:=

     Список.Where(Поезд->Поезд.ПунктНазначения=ПунктНазначения);

 if Отобрано.Count>0 then

   foreach var Поезд in Отобрано do

     Writeln($'{Поезд.НомерПоезда} {Поезд.ВремяОтправления:HH-mm}')

 else

   Println('Нет поездов на это направление')

end;

begin

 var Поезда := new List<TRAIN>;

 ВводДанных(Поезда);

 ПоискПоездов(Поезда,ReadlnString('Куда едем?'))

end.

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

type

 TRAIN = record

   ПунктНазначения: string;

   НомерПоезда: string;

   ВремяОтправления: DateTime

 end;

procedure ВводДанных(Список: List<TRAIN>);

begin

 var Поезд: TRAIN;

 var ЧЧММ: string;

 for var i := 1 to 6 do // 6 поездов

 begin

   Println('Ввод данных о поезде', i);

   Поезд.ПунктНазначения := ReadlnString('Пункт назначения:');

   Поезд.НомерПоезда := ReadlnString('Номер поезда:');

   repeat

     ЧЧММ := ReadlnString('Время отправления (ЧЧ:ММ):');

   until DateTime.TryParse(ЧЧММ, Поезд.ВремяОтправления);

   Список.Add(Поезд)

 end

end;

procedure ПоискПоездов(Список: List<TRAIN>; ПунктНазначения: string);

begin

 var Отобрано:=

     Список.Where(Поезд->Поезд.ПунктНазначения=ПунктНазначения);

 if Отобрано.Count>0 then

   foreach var Поезд in Отобрано do

     Writeln($'{Поезд.НомерПоезда} {Поезд.ВремяОтправления:HH-mm}')

 else

   Println('Нет поездов на это направление')

end;

begin

 var Поезда := new List<TRAIN>;

 ВводДанных(Поезда);

 ПоискПоездов(Поезда,ReadlnString('Куда едем?'))

end.