Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 08.02.2014
Сообщений: 12
1

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

15.04.2014, 12:50. Просмотров 2011. Ответов 1
Метки нет (Все метки)


помогите с Исходником.
Известны фамилии сотрудников, инициалы, номера телефонов. Найти номер телефона по фамилии и инициалам владельца.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2014, 12:50
Ответы с готовыми решениями:

Получить: номер телефона сотрудника по его фамилии и инициалам
В файл Telephone записать номера телефонов сотруднико учреждения указать фамилии , инициалы,...

Найти номер телефона сотрудника по его фамилии
Дан файл Т,который содержит номер телефонов сотрудников учреждения:указываются фамилия,инициалы и...

Файлы: Сведения об автомобиле состоят из его марки, номера и фамилии владельца
Вот условие Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Создать файл,...

Найти телефон сотрудника по его фамилии и инициалам
дан файл f1 fкоторый содержит номера телефонов сотрудников учреждения:указывается фамилия...

__________________
Помогаю в написании студенческих работ здесь.
1
0 / 0 / 3
Регистрация: 15.04.2014
Сообщений: 4
15.04.2014, 15:36 2
Лучший ответ Сообщение было отмечено Ramil_Safarov как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.04.2014, 15:36

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Найти телефон сотрудника по его фамилии и инициалам
Сижу в кабинете и не могу решить эту задачу так как тему ету почти не знаю (знаю только основное),...

Найти телефон сотрудника по его фамилии и инициалам.
Дан файл f, содержащий различные даты. Каждая дата - это число, месяц и год. Найти: а) год...

Заданный массив записей, содержащих сведения о фамилии и соответствующие им номера телефонов, упорядочить по фамилиям
Заданный массив записей, содержащих сведения о фамилии и соответствующие им номера телефонов....

По фамилии учащегося найти номер его телефона(Для каждого учащегося)
Нужна задача в Паскале но я в нем не шарю вообще не как...Помогите мне ПЛЗ завтра надо здать эту...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.