Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 08.01.2010
Сообщений: 7
1

Найти телефон сотрудника по его фамилии и инициалам

08.01.2010, 23:14. Просмотров 1314. Ответов 13
Метки нет (Все метки)

дан файл f1 fкоторый содержит номера телефонов сотрудников учреждения:указывается фамилия сотрудника его инициалы и номер телефона.Найти телефон сотрудника по его фамилии и инициалам.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.01.2010, 23:14
Ответы с готовыми решениями:

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

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

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

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

13
1572 / 643 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
08.01.2010, 23:16 2
номер телефона - строка или число?
0
0 / 0 / 0
Регистрация: 08.01.2010
Сообщений: 7
08.01.2010, 23:18  [ТС] 3
число
0
1572 / 643 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
08.01.2010, 23:30 4
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
type
 rec=record
  fam,inn:string;
  num:longint;
 end;
const n=10;
var
 f:file of rec;
 r:rec;
 i:integer;
 a:array[1..n]of rec;
 fam,inn,s:string;
begin
 assign(f,'file');
 reset(f);
 i:=1;
 while not(eof(f)) do begin
  read(f,a[i]);
  inc(i);
 end;
 close(f);
 writeln('Введите фамилию и инициалы');
 readln(s);
 fam:=copy(s,1,pos(' ',s)-1);
 inn:=copy(s,pos(' ',s)+1,length(s)-pos(' ',s));
 for i:=1 to n do begin
  if (a[i].fam=fam) or (a[i].inn=inn) then writeln(a[i].num); //если нужно совпадение И фамилии, И иниц., то вместо "or" надо "and"
  break;
 end;
 readln;
end.
0
0 / 0 / 0
Регистрация: 08.01.2010
Сообщений: 7
08.01.2010, 23:40  [ТС] 5
выводиш ошибку
0
1572 / 643 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
08.01.2010, 23:44 6
Alex703, какую?

Добавлено через 11 секунд
и где?
0
0 / 0 / 0
Регистрация: 08.01.2010
Сообщений: 7
08.01.2010, 23:47  [ТС] 7
disk read error

read(f,a[i]);
0
1572 / 643 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
08.01.2010, 23:59 8
такой файл есть? опиши программно его структуру (в виде record'а)
0
0 / 0 / 0
Регистрация: 08.01.2010
Сообщений: 7
09.01.2010, 00:03  [ТС] 9
файла нету
0
1572 / 643 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
09.01.2010, 00:10 10
мда... сейчас создам программу для создания этого файла)
0
0 / 0 / 0
Регистрация: 08.01.2010
Сообщений: 7
09.01.2010, 00:20  [ТС] 11
дело том что мне дали ету задучу при том что типизироанный файлы пройти не успели толь обычные вот я и сижу вдупляю=))2 день книгу читаю не че не получается

Добавлено через 2 минуты
спс за помощь дали задачу а про ето не рассказывали не чего вот и сижу как пингвин
0
1572 / 643 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
09.01.2010, 00:26 12
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
type
 rec=record
  fam,inn:string;
  num:longint;
 end;
const n=10;
var
 f:file of rec;
 i:integer;
 nn:rec;
begin
 assign(f,'file');
 rewrite(f);
 for i:=1 to n do begin
  writeln('Введите сначала фамилию, нажмите Enter, инициалы, снова Enter и номер телефона');
  readln(nn.fam);
  readln(nn.inn);
  readln(nn.num);
  write(f,nn);
 end;
 close(f);
 writeln('Всё)');
 readln;
end.
0
0 / 0 / 0
Регистрация: 08.01.2010
Сообщений: 7
09.01.2010, 09:34  [ТС] 13
нужно чтобы не через массив а чтобы програма считывала сразу из файла
0
1572 / 643 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
09.01.2010, 09:48 14
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
type
 rec=record
  fam,inn:string;
  num:longint;
 end;
const n=10;
var
 f:file of rec;
 r:rec;
 fam,inn,s:string;
begin
 assign(f,'file');
 writeln('Введите фамилию и инициалы');
 readln(s);
 fam:=copy(s,1,pos(' ',s)-1);
 inn:=copy(s,pos(' ',s)+1,length(s)-pos(' ',s));
  reset(f);
 while not(eof(f)) do begin
   read(f,r);
   if (r.fam=fam) or (r.inn=inn) then writeln(r.num); //если нужно совпадение И фамилии, И иниц., то вместо "or" надо "and"
 end;
 close(f);
 readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.01.2010, 09:48

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

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

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

Найти телефон сотрудника по его фамилии и инициалам
Создать файл , содержащий номера телефонов сотрудников учреждения . Указывается фамилия сотрудника...

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


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

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

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