Procedure Vivod;

begin

writeln;

writeln('Famoliya:',mas[i].fam,' Imya:',mas[i].imya,' Telefon:',mas[i].tel);

End;

Procedure Zapros;

var fam1:string[20];

tel1:string[7];

tip:byte;

begin

write('Vvedite imya faila:');

readln(name);

assign(f,name);

{$I-}

reset(f);

{$I+}

if IOresult<>0 then writeln('Faila na diske net!')

else

Begin

i:=1;

writeln;

writeln('-------Zapros-----');

writeln('1:Telephon');

writeln('2:Familiya');

writeln;

write('Viberite tip zaprosa:');

readln(tip);

case tip of

1:begin

kol:=0;

writeln;

write('Vvedite familiuy abonenta:'); readln(fam1);

writeln;

writeln('--Rezultat zaprosa-----');

while not eof(f) do

begin

read(f,mas[i]);

if fam1=mas[i].fam then

begin

Vivod;

inc(kol);

End;

inc(i);

end;

if kol=0 then writeln('Takoy familii net') else writeln('Kol-vo=',kol);

end;

2:begin

kol:=0;

writeln;

write('Vvedite telephon abonenta:');

readln(tel1);

writeln;

writeln('---Rezultat zaprosa--');

while not eof(f) do

begin

read(f,mas[i]);

if tel1=mas[i].tel then begin

Vivod; inc(kol);

end;

inc(i);

end;

if kol=0 then writeln('Takogo telephona net') else writeln('Kol-vo=',kol);

end;

end;

close(f);

end;

End;

Begin

clrscr;

bool:=true;

repeat

writeln('---Telefonniy spravoshnik---');

writeln;

writeln('1:Sozdanie bazi dannih');

writeln('2:Prosmotr bazi dannih');

writeln('3:Dopolnenie bazi dannih');

writeln('4:Zapros');

writeln('5:Zavershenie raboti');

writeln;

write('Viberite vid raboti:');

readln(vid);

case vid of

1:Sozdanie;

2:Prosmotr;

3:Dopolnenie;

4:Zapros;

5:bool:=false;

end;

writeln;

writeln('Dlya prodoljenia - ENTER');

readln;

clrscr;

until bool=false;

End.

Контрольные вопросы

1. Что такое файл? Для каких целей используются файлы?

2. Какие устройства компьютера Турбо Паскаль использует наряду с файлами? Каковы логические имена этих устройств?

3. Каковы требования к именам файлов?

4. Перечислите три характерные особенности файлов, дающие основание считать их одной из наиболее фундаментальных структур данных с Турбо Паскале.

5. Назовите общие и отличительные черты текстовых, типизированных и нетипизированных файлов.

6. Зачем используется специальная файловая переменная? Как устанавливается связь между ней и файлом во внешней памяти?

7. Что общего у процедуры Reset и Rewrite и чем они отличаются?

8. Зачем применяется процедура Close?

9. Какие процедуры применяются для переименования и удаления файлов?

10. Для каких целей используется функция IOresult? Каковы условия ее применения? Назначение директивы компилятора {$I+} и {$I-}? Каков результат возвращает функция IOresult?

11. В чем заключается специфика текстовых файлов? Назначение процедуры Append.

12. Какие файлы относятся к типизированным? Как представлена информация в типизированных файлах?

13. Какие файлы называются нетипизированными? Каковы их особенности?

ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОГО ВЫПОЛНЕНИЯ:

ЗАДАНИЕ 1

1. Дан файл вещественных чисел. Определить количество нулевых значений в этом файле.

2. Даны два файла целых чисел. Определить, являются ли они тождественными.

3. Даны два символьных файла одинакового размера. Произвести обмен информацией между ними.

4. Имеется внешний текстовый файл. Напечатать первую из самых коротких его строк.

5. Описать процедуру Lines(T), которая построчно печатает содержимое непустого текстового файла T, вставляя в начало каждой печатаемой строки ее порядковый номер (он должен занимать четыре позиции) и пробел.

ЗАДАНИЕ 2

1. Написать программу с использованием функций для:

Создания файла из n записей заданных в варианте,

Дата добавления: 2015-08-17