Top.Mail.Ru
Ответы
Аватар пользователя
10лет
Изменено
Аватар пользователя
Аватар пользователя
Аватар пользователя
Программирование
+4

Помогите решить задачу в делфи)

Создать файл телефонный справочник. Найти по фио номера телефонов и адреса абонентов.

структура записи:
ФИО
Адрес: улица, номер дома, квартира
номер телефона
записи упорядочены по ФИО)
_______________________________________
есть решение :(не уверенна в его правильности ) и подскажите пожалуйста нужно ли мне в программе как то делить адрес ну описывать еще и улицу дом и квартиру как переменные в разделе описания??)

Type Sprav=Record
Telefon:string[11];
FIO:string[15];
Adres:string[15];
End;
Var f:file of sprav;
st:sprav;
i,n:integer;
s:string;
Begin
write('Введите кол-во абонентов: ');readln(n);
Assign(f,'telephone.dat');Rewrite(f);
For i:=1 to n do
Begin
writeln('Введите информацию о ',i,'-ом абоненте');
write('Телефон: ');readln(st.Telefon);
write('Ф. И. О: ');readln(st.FIO);
write('Адрес: ');readln(st.Adres);
write(f,st);
End;
Reset(f);
writeln('-----------------------------------------------');
writeln(' Телефон | ',' Ф. И. О | ',' Адрес | ');
writeln('-----------------------------------------------');
While not Eof(f) do
Begin
read(f,st);
writeln(st.Telefon:11,'|':2,st.FIO:15,'|':2,st.Adres:15,'|':2);
End;
write('Введите номер телефона по которому искать абонента: ');readln(s);
Reset(f);
While not Eof(f) do
Begin
read(f,st);
if st.Telefon=s then writeln(st.FIO,'|':2,st.Adres:15,'|':2);
End;
Close(f);
readln;
End.

По дате
По рейтингу
Аватар пользователя
Гуру
10лет

гораздо логичнее было бы делать это через БД и использовать функции поиска по БД тупо.

Аватар пользователя
Искусственный Интеллект
10лет

Интересно, если имеет место быть задача для дельфи почему не используются визуальные компоненты, компоненты доступа к БД? По моему вы просто из паскаля содрали кусок беспонтового кода...

Аватар пользователя
Искусственный Интеллект
10лет

Адрес можно делить, можно нет, как больше нравится преподавателю или Вам, на саму программу это никак не повлияет. Навскидку решение правильное. Что мешает запустить Дельфи и проверить правильность решения?

Аватар пользователя
Просветленный
10лет

А это по желанию. Обычный адрес имеет вид улица-дом-квартира. Но ВНЕЗАПНО адрес может оказаться к примеру "47км московского шоссе, седьмой ларек за вторым поворотом налево, подвал номер 3". Так что обычно адрес делают просто как поле для ввода + индекс + область + регион области или населенный пункт.