Курсовая работа: Составление программ для решения задач на языке программирования Turbo Pascal

Writeln ('5 - poisk po familii');

Writeln ('0 - zavershenie raboty');

Write ('Vash bybor: ');

Readln (VID);

case VID of {вызов разных процедур в зависимости от видов работы}

1: Create_Book;

2: OutputAllRec;

3: UpdateRec;

4: AddRecToEnd;

5: FindFIO;

0: End_menu: =True;

end;

Writeln ('Dlya prodolzheniya nazhmite Enter');

Readln;

clrscr;

Until End_Menu;

end.

5. Контрольный пример

Наберем данную программу на языке Паскаль. Откомпилируем ее. На экране появится меню задач для файла:

При выборе "1" создадим новый файл под именем "***Spravochnik dannih fizicheskih lic***":

При выборе "2" можно просмотреть весь созданный список:

При выборе "3" изменим одну из записей файла:

При выборе "4" дополним справочник еще одной записью:

При выборе "5" пользователю будет предложено ввести название улицы, введем название (Ленина) и получим данные о физических лиц с такой улицей: