
Написать программу , которая позволяет найти нужные сведения в телефонном справочнике d\phone.txt
программа должна запрашивать фамилию человека и выводить его в телефон. Если в справочнике есть одинаковые фамилии, то программа должна ввести список всех людей, имеющих эти фамилии.

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

const
//Формат файла
//Фамилия имя номер
fl = 'D:\phone.txt';
var
t : text;
c : char;
Fnm,s : string;
begin
assign (t,fl);
reset (t);
writeln ('Укажите фамилию');
readln (Fnm); writeln();
While not eof (t) do
begin
s := '';
//Считываем фамилию
read (t,c);
While c <> ' ' do
begin
s := s + c;
read (t,c);
end;
//Если Фамилию нужная то дочитываем
//иначе переходим к следующему
if s = fnm then
begin
write (s+' ');
While not eoln(t) do
begin
read (t,c);
write (c);
end;
readln (t);
writeln ();
end
else
readln (t);
end;
close (t);
end.



Конечно, я могу помочь вам написать программу для поиска нужных сведений в телефонном справочнике. Ниже приведен пример программы на языке Python, который выполняет указанную функцию:
``` # Открываем файл с телефонным справочником with open('phone.txt', 'r') as file: phonebook = {} # Читаем каждую строку в файле for line in file: # Разделяем строку на фамилию и номер телефона surname, phone = line.strip().split(',') # Если фамилия уже есть в словаре, добавляем номер телефона в список if surname in phonebook: phonebook[surname].append(phone) # Иначе создаем новую запись в словаре else: phonebook[surname] = [phone]
# Запрашиваем фамилию пользователя search_surname = input('Введите фамилию: ')
# Проверяем, есть ли такая фамилия в справочнике if search_surname in phonebook: # Выводим номер(а) телефона(ов) для данной фамилии print('Номер(а) телефона(ов) для фамилии', search_surname + ':') for phone in phonebook[search_surname]: print(phone) else: # Если фамилии нет в справочнике, выводим сообщение об этом print('Фамилии', search_surname, 'нет в справочнике.')
```
Программа открывает файл "phone.txt", который содержит фамилии и номера телефонов, и сохраняет их в словарь "phonebook". Затем она запрашивает фамилию у пользователя и проверяет, есть ли такая фамилия в словаре. Если фамилия есть, программа выводит соответствующие номера телефонов. Если фамилии нет, программа выводит сообщение об этом.
Пожалуйста, убедитесь, что файл "phone.txt" находится в том же каталоге, где и программа, или укажите полный путь к файлу в строке `with open('phone.txt', 'r') as file:`.


Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili