Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.01.2007, 11:22   #1
clampo
 
Регистрация: 19.01.2007
Сообщений: 4
Восклицание Помогите с Паскалем

Доброе всем время суток. Помогите, пожалуйста кто может: Вообщем, надо решить задачу:
Дан файл f, содержащий номера телефонов сотрудников учреждения: фамилия сотрудника, его инициалы и номер телефона. Найти телефон сотрудника по его фамилии и инициалам.
Заранее спасибо.
clampo вне форума Ответить с цитированием
Старый 19.01.2007, 11:26   #2
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

в каком формате храняться данные ?
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 19.01.2007, 15:06   #3
clampo
 
Регистрация: 19.01.2007
Сообщений: 4
По умолчанию

В Дат - файле. сначала создаем, а потом из него читаем.
clampo вне форума Ответить с цитированием
Старый 19.01.2007, 15:31   #4
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

эт тоже самое, как и: какой у тебя сидюк, ответ: CD читает...
или какие девушки вам больше нравятся: брюнетки или блондинки?
ответ: ДА!!!

Тут имелось ввиду, как записываются данные, в виде текста, или записи, т.е. файл типизированный или текстовый?
zetrix вне форума Ответить с цитированием
Старый 19.01.2007, 15:45   #5
Virtson
Владимир М.
Участник клуба
 
Аватар для Virtson
 
Регистрация: 30.10.2006
Сообщений: 1,289
По умолчанию

> в .DAT файле
по моему, его ответ подразумевал 'типизированный'
Берегите друг друга!
Virtson вне форума Ответить с цитированием
Старый 19.01.2007, 16:52   #6
clampo
 
Регистрация: 19.01.2007
Сообщений: 4
По умолчанию

Цитата:
Сообщение от Virtson Посмотреть сообщение
> в .DAT файле
по моему, его ответ подразумевал 'типизированный'
Да,типизированный.
clampo вне форума Ответить с цитированием
Старый 20.01.2007, 23:35   #7
AVer
Андрей
Форумчанин
 
Аватар для AVer
 
Регистрация: 21.11.2006
Сообщений: 457
По умолчанию

FName - Имя файла (и адрес к нему) FIO - Фамилия и инициалы нужного сотрудника.

Код:
Function PhoneFind(FName,FIO:String):String;
Type TPhones = record
       FIO:String[20];
       Phone:String[7];
       End;
Var Phones: TPhones;
    F:File of TPhones;
    Found:Boolean;
    Rez:String;
Begin
Found:=False;
Assign(F,FName);
ReSet(F);
Repeat
Read(F,Phones);
If Phones.FIO = FIO Then
Begin
Rez:=Phones.Phone;
Found:=True;
End;
Until EoF(F);
If not Found Then
Rez:='Номер не найден';
PhoneFind:=Rez;
End;
ICQ: 5311314
[SIGPIC][/SIGPIC]
AVer вне форума Ответить с цитированием
Старый 22.01.2007, 13:57   #8
clampo
 
Регистрация: 19.01.2007
Сообщений: 4
По умолчанию

Спасибо, попробую.
clampo вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с Паскалем Luchnik_666 Помощь студентам 1 19.06.2008 12:54
С Паскалем помогите Panda Помощь студентам 4 17.06.2008 16:35
Помогите с паскалем Saaashka Помощь студентам 2 11.06.2008 11:03
помогите с паскалем lyonya0111 Помощь студентам 12 22.01.2008 18:39