


Помогите решить задачу в делфи)
Создать файл телефонный справочник. Найти по фио номера телефонов и адреса абонентов.
структура записи:
ФИО
Адрес: улица, номер дома, квартира
номер телефона
записи упорядочены по ФИО)
_______________________________________
есть решение :(не уверенна в его правильности ) и подскажите пожалуйста нужно ли мне в программе как то делить адрес ну описывать еще и улицу дом и квартиру как переменные в разделе описания??)
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.
гораздо логичнее было бы делать это через БД и использовать функции поиска по БД тупо.
Интересно, если имеет место быть задача для дельфи почему не используются визуальные компоненты, компоненты доступа к БД? По моему вы просто из паскаля содрали кусок беспонтового кода...
Адрес можно делить, можно нет, как больше нравится преподавателю или Вам, на саму программу это никак не повлияет. Навскидку решение правильное. Что мешает запустить Дельфи и проверить правильность решения?
А это по желанию. Обычный адрес имеет вид улица-дом-квартира. Но ВНЕЗАПНО адрес может оказаться к примеру "47км московского шоссе, седьмой ларек за вторым поворотом налево, подвал номер 3". Так что обычно адрес делают просто как поле для ввода + индекс + область + регион области или населенный пункт.