Преобразования и хранения последовательных файлов и файлов произвольного доступа на Турбо Паскале

Цель работы:

Изучение принципов создания, преобразования и хранения последовательных файлов и файлов произвольного доступа.

Задание:

Сформировать два файла. В один из них поместить фамилии пяти ваших знакомых, а в другой номера их телефонов.

Составить программу, которая по фамилии вашего знакомого определяет номер его телефона.

procedure print_head;

procedure print_menu;

procedure print_book(n : integer; a : men ; b : tels);

procedure ins_man(var n : integer;var a : men ;var b : tels);

procedure change_man(n : integer;var a: men ;var b: tels);

procedure read_file(var f : fman;var ft : ftel;var n : integer;var a : men; var b : tels);

procedure write_file(var f : fman;var ft : ftel;n : integer; a : men; b : tels);

procedure show_matrix(n,m : integer;a : matrix);

Программа:

{*****************************************}

{Программа:lab22 }

{Цель:создание таблицы данных }

{Описание параметров и переменных: }

{ menbook,telbook - массив записей }

{ menfile,telfile - файлы записей }

{ n - кол-во элементов в базе данных }

{ i - вспомогательная переменная }

{ key - переменная-ключ }

{Подпрограммы:нет }

{Программист: Кондрахин А.В.,гр.343 }

{Проверил: Москвитина О.А.,каф. ВПМ }

{Дата написания: 12 марта 2004 г. }

{*****************************************}

program lab22;

uses crt;

const

verh ='┌──────────┬───────────────┬───────────────┬──────────┬──────────┬───────────┐';

 Скачать реферат