Question

РЕБЯТА, ПОМОГИТЕ, ПРОШУ В записной книжке записаны фамилии и номера телефонов 10 человек. Определить есть ли в книжке телефон некоторого человека. Если есть - то вывести его телефон. ПАСКАЛЬ.ЗАПИСИ

Answer 1

uses crt;
type TRec = Record
FIO: String[20];
TEL: String[7]
end;
var rec: TRec; i:integer;
who:string; flag:boolean;
a: array [1..20] of TRec;

begin
a[1].FIO := 'Иванов Петр';
a[1].TEL := '+374844';
a[2].FIO := 'Крылова Света';
a[2].TEL := '+373129';
a[3].FIO := 'Соловей Иван';
a[3].TEL := '+370929';
//создай дальше до 10 сама
write('Write fio '); readln(who);
for i:=1 to 3 do
begin

if a[i].FIO = who then
begin
writeln('Номер ',who,' = ',a[i].TEL) ;
flag:=true;
end
else
flag:=false;
end;
if flag=false then
writeln('cannot find ',who);
readln;
end.

Answer 2

Поиск телефона в записной книжке

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

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

1. Получите список фамилий и номеров телефонов из записной книжки. 2. Проверьте каждую запись в списке на наличие нужного вам номера телефона. 3. Если номер телефона найден, выведите его.

Вот пример кода на языке Pascal, который может помочь вам реализовать эту задачу:

program PhoneBook;

type
  PhoneRecord = record
    LastName: string;
    PhoneNumber: string;
  end;

var
  PhoneBook: array[1..10] of PhoneRecord;
  i: integer;
  searchLastName: string;
  found: boolean;

begin
  PhoneBook[1].LastName := 'Иванов';
  PhoneBook[1].PhoneNumber := '1234567890';
  // Заполните остальные записи в PhoneBook

write('Введите фамилию для поиска: ');
  readln(searchLastName);

found := false;

for i := 1 to 10 do
  begin
    if PhoneBook[i].LastName = searchLastName then
    begin
      writeln('Найден номер телефона: ', PhoneBook[i].PhoneNumber);
      found := true;
      break;
    end;
  end;

if not found then
    writeln('Телефон не найден.');

readln;
end.

В этом примере предполагается, что у вас есть массив `PhoneBook` с 10 записями, каждая из которых содержит фамилию и номер телефона. Вы можете заполнить этот массив своими данными. Затем программа запрашивает фамилию для поиска и проверяет каждую запись в массиве `PhoneBook` на совпадение с введенной фамилией. Если совпадение найдено, программа выводит соответствующий номер телефона.

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

Надеюсь, эта информация будет полезной! Если у вас возникнут еще вопросы, не стесняйтесь задавать.