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

Для повышения качества и скорости разработки программ в середине 80-х годов была создана система программирования Турбо Паскаль. Слово Турбо в название системы программирования - это отражение торговой марки фирмы-изготовителя Вorland International, Inc (США).

Задание

Написать программу, которая позволяет найти нужные сведения в телефонном справочнике (а:\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):');