Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/18: Рейтинг темы: голосов - 18, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 14.05.2011
Сообщений: 9
1

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

14.05.2011, 17:42. Просмотров 3325. Ответов 4
Метки нет (Все метки)


Помогите, пожалуйста, составить программу в Паскале...

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

Зараннее, спасибо.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.05.2011, 17:42
Ответы с готовыми решениями:

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

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

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

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

__________________
Помогаю в написании курсовых работ и дипломов здесь.
4
6 / 6 / 2
Регистрация: 29.04.2011
Сообщений: 22
15.05.2011, 01:35 2
Вот, типа такой я себе решал...
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Program LR_16;
Uses crt;
Type
AbonRec=record
              fam:string[20];
              adr:string[50];
              tel:string[10];
              end;
TypeFile=file of AbonRec;
Var
f1:TypeFile;
s:abonrec;
f:TypeFile;
isearch:string;
nf:string;
 
Procedure file_cr(nf:string);
Begin
assign(f,nf);
rewrite(f);
with s do begin
writeln('Окончание ввода - #...');
repeat
write('Введите фамилию абонента: ');
readln(Fam);
if fam<>'#' then begin
write('Введите адресс абонента: ');
readln(Adr);
write('Введите номер телефона абонента: ');
readln(Tel);
writeln;
write(f,s);end;
until fam='#';
end;
close(f);
End;
 
Procedure file_search(isearch:string);
Begin
assign(f,nf);
reset(f);
with s do begin
while not eof(f) do begin
read(f,s);
if s.fam=isearch then begin
writeln;
write('Номер телефона абонента ',s.fam,' - ',s.tel);end;
end;
end;
End;
 
procedure OKNO(x1,y1,x2,y2,c1,c2:integer);
begin
textbackground(0);clrscr;
textbackground(c1);
textcolor(c2);
window(x1,y1,x2,y2);clrscr;
clrscr;
end;
 
function okfile(fl:string):boolean;
begin
{$I-}
okfile:=false;
assign(f1,fl);
reset(f1);close(f1);
{$I+}
if ioresult=0 then okfile:=true;
end;
 
BEGIN
OKNO(5,5,55,21,124,255);
nf:='С:/f1.txt';
writeln('Введите фамилию: ');
readln(isearch);
if not okfile(nf) then
file_cr(nf);
file_search(isearch);
readln;
END.
1
0 / 0 / 0
Регистрация: 14.05.2011
Сообщений: 9
15.05.2011, 13:30  [ТС] 3
ого. неужели всё так запутано или мне кажется?..
а при чем тут адрес абонента? про него ни слова не сказали
0
6 / 6 / 2
Регистрация: 29.04.2011
Сообщений: 22
15.05.2011, 16:24 4
Цитата Сообщение от coffe_lover Посмотреть сообщение
ого. неужели всё так запутано или мне кажется?..
а при чем тут адрес абонента? про него ни слова не сказали
это моя программа - она работает по такому же принципу ищет номер по введенному имени...измени просто мои поля на нужные тебе!!!
0
0 / 0 / 0
Регистрация: 14.05.2011
Сообщений: 9
15.05.2011, 21:48  [ТС] 5
хорошо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.05.2011, 21:48

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

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

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

Создание файла. Организуйте вывод на экран монитора номер телефона по введенной с клавиатуры фамилии
Создайте файл содержащий следующие поля 1)Номер 2)Фамилию 3)Телефон Организуйте вывод на экран...

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


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

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

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