Известны фамилии сотрудников, инициалы, номера телефонов. Найти номер телефона по фамилии и инициалам владельца

@Ramil_Safarov · Регистрация: 08.02.2014

Студворк — интернет-сервис помощи студентам

помогите с Исходником.
Известны фамилии сотрудников, инициалы, номера телефонов. Найти номер телефона по фамилии и инициалам владельца.

@b_b · 15.04.2014, 15:36

Pascal

type
  TInfo = record
    name: string; // Тут и Фамилия и инициалы сразу
    num: int64; // Номер телефона
  end;
  
  TArr = array of TInfo; // Динамический массив сотрудников
  
var
  arr : Tarr;
  n, i : integer; // n - число сотрудников
  buf: string;
  
begin
  readln(n);
  SetLength(arr,n); // Устанавливаем размер массиву
  
  for i:= 0 to n-1 do
  begin
    readln(arr[i].name);
    readln(arr[i].num);
  end;
  
  writeln();
  
  while true do
  begin
    readln(buf); // Считываем имя владельца
    for i:= 0 to n-1 do // Проходим по массиву
      if buf = arr[i].name then
      begin
        writeln(arr[i].num); // Если совпадение - выводим номер
        break;
      end;
  end;
end.

@Ramil_Safarov 0 / 0 / 0 Регистрация: 08.02.2014 Сообщений: 12
		1
	Известны фамилии сотрудников, инициалы, номера телефонов. Найти номер телефона по фамилии и инициалам владельца 15.04.2014, 12:50. Показов 2988. Ответов 1 Метки нет (Все метки) помогите с Исходником. Известны фамилии сотрудников, инициалы, номера телефонов. Найти номер телефона по фамилии и инициалам владельца. 0

	15.04.2014, 15:36

Опции темы

Известны фамилии сотрудников, инициалы, номера телефонов. Найти номер телефона по фамилии и инициалам владельца

Решение