Задание. 
Алгоритмический язык Pascal. 
Программа "Телефонный справочник"

Написать программу, которая позволяет найти нужные сведения в телефонном справочнике (а:phone.txt). Программа должна запрашивать фамилию человека и выводить его телефон. Если в справочнике есть одинаковые фамилии, то программа должна вывести список всех людей, имеющих эти фамилии.

Блок-схема

Листинг программы

program kurs;

uses Crt;

type.

RB=recordЗапись сведений.

A, T, Y: string[10];

end;

var.

D, M, i, k, z: integer; Sr, Sr0, max:real;

BookFile: file of RB; Переменная для файла с записями RecBook.

Work: RB; Переменная для доступа к записям.

Vid: Byte;

End_Menu:boolean;

Name, s: string[50];

procedure AddRec;Добавление записи в файл.

begin.

writeln ('Ввод записи №', FilePos (BookFile)+1);

with Work do.

begin.

Write ('Введите фамилию:');

Readln (A);

Write ('Введите имя:');

Readln (Y);

Write ('Введите телефон (32−22−12):');

Readln (T);

Write (BookFile, Work); end;

end;

procedure Create_Supplementing_library; Создание нового файла.

var.

Ind, Count: integer; begin Name:='A:phone.txt';

Assign (BookFile, Name);Открыть новый файл для записи.

Rewrite (BookFile);

Writeln ('Создание записей файла ', Name);

Write ('Введите количество телефонов на станции: ');

Readln (Count);

for Ind:=1 to count do.

AddRec;

Writeln ('Создание файла данных библиотеки завершена');

Writeln ('Файл данных имеет ', FileSize (BookFile), ' записи'); close (BookFile);

end;

procedure OutputRec;

begin.

With Work do.

writeln (A,' ', Y,'', T);

end;

procedure OutputAllRec;

begin.

clrscr;

Name:='A:phone.txt';

Assign (BookFile, Name);

Reset (BookFile); clrscr; Seek (BookFile, 0);

Writeln (' ФамилияТелефон');

writeln;

while (not Eof (BookFile)) do begin.

With Work do begin.

Read (BookFile, Work);

Outputrec; end;

end;end;

procedure FindTel;

begin.

clrscr;

Name:='A:phone.txt';

Assign (BookFile, Name);

Reset (BookFile);

writeln ('Введите фамилию');

readln (s);

clrscr;

Seek (BookFile, 0);

Writeln (' ФамилияТелефон');

writeln;

while (not Eof (BookFile)) do begin.

With Work do begin.

Read (BookFile, Work);

if s=a then begin Outputrec;z:=1;end;

end;

end;

if z=0 then writeln ('В справочнике данных о ', s,'е нет');

end;

begin.

ClrScr;

End_Menu:=False; repeat textcolor (7);

Writeln ('Выберите вид работы:');

Writeln (' 1- создать новый файл данных');

Writeln (' 2- вывод всей картотеки');

Writeln (' 3- поиск телефона по фамилии');

Writeln (' 0- завершение работы:');

Write ('Ваш выбор:');

Readln (Vid);

case Vid of.

• 1:Create_Supplementing_library;
• 2:OutputAllRec;
• 3:FindTel;
• 0:End_Menu:=True;

end;

writeln;

Writeln ('Для продолжения нажмите Enter');

Readln;

ClrScr;

until End_Menu;

end.