Технологический лицей г.Сыктывкар

Мы с вами уже изучили довольно много типов и всего, что с ними связано. На сегодня уже закрыты такие темы как работа с массивами (за искл. некоторых алгоритмов, которые мы еще изучим в практических выпусках), преобразование типов, списки стандартных типов.... Однако это далеко не все темы, которые связаны с типами. На самом деле существует еще несколько, с которыми обязательно предстоит ознакомиться. Думаю, стоит привести их список:

Все последующие уроки мы будем из разбирать в указанном порядке. На самом деле нам до окончания изчучения языка и начала написания полноценных программ осталось не так уж и много тем. Однако большинство из них довольно сложны, так что время от времени придется подумать и позаниматься, если вы действительно хотите хотите научиться программировать. Я в свою очередь постараюсь помочь вам в этом насколько смогу.

Сегодня же мы напишем уже довольно большую (по сравнению с пред.) программу, которую в дальнейшем еще немного усовершенствуем. Программа называется "Записная книжка". Итак, начнем.

Перед тем, как начать рассказ о новом типе данных я хотел бы как всегда создать такую ситуацию, когда возникнет необходимость в применении этого типа. Согласитесь, это гораздо интересней, чем простая теория и определенно позволяет лучше понять, зачем вообще существует этот тип. Особо это касается записей, сути которых иногда очень многие не понимают.

Ну чтож, давайте представим такую задачу. Пусть нам необходимо создать записную книжку с адресами, которая будет некоторым подобием базы данных. Суть программы будет в следующем:

Как видите, переменных несколько, все они имеют имена и разных типов. Что же делать с такими данными? В принципе, можно эту задачу решить и с одними массивами - завести 4 массива соотв. типов и параллельно сохранять в них переменные. Но это делается гораздо проще, если пользоваться записями.

Запись - это способ объединения нескольких переменных разных типов в одной. Благодаря этому достигается замечательная упорядоченность данных, программы при этом упрощаются и становятся логичнее.

Итак, как же создать запись? Разложу все этапы создания записи по порядку.

И все. Теперь вы имеете две записи. Но две записи - это мало, по условию нам нужно 10 записей (у нас адресная книжка на 10 адресов). Нет ничего проще! Вспоминаем массивы и их возможности - объединение группы переменных одного типа. Вот и сделаем массив из созданной записи:

Существует два способа обращения к элементам записи. Пока немного отойдем от созданного массива и поработаем с такой переменной:

Write('ФИО: ');

Write('Телефон: ');

2. Итак, второй способ обращения к полям записи. Он еще проще и гораздо компактнее. Суть его в следующем:

Write('ФИО: ');

Write('Адрес: ');

Write('Телефон: ');

Ну а теперь пришло время написать небольшую программку, которая будет работать с записями. Продолжая тему сегодняшнего урока я приведу текст предложенной програмы "Адресная книжка". Итак, получается такая вот программка:

Program Adress_Book;

uses Crt;

AdressItem = record

Fio: String;

Adress: String;

Phone: LongInt;

Email: String;

Book: Array [1..10] of Adressitem;

Nums, I: Byte;

Code: Integer;

C: Char;

Quit: Boolean;

Procedure New_Item;

F, A, Em: String;

Ph: LongInt;

ClrScr;

Inc(Nums);

if Nums > 10 then

Write('Максимальное количество записей!');

exit; {выход из процедуры}

Writeln('Запись N', Nums); Writeln;

Write('Введите ФИО: ');

Readln(F);

Write('Введите адрес: ');

Readln(A);

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

Readln(Ph);

Readln(Em);

Writeln;

with Book[Nums] do

Fio := F;

Adress := A;

Phone := Ph;

Email := Em;

Write('Новая запись успешно добавлена!');

Procedure List_Item(N: Byte);

if N > Nums then

Write('Неправильный номер записи');

With Book[N] do

Writeln('Запись N', N); Writeln;

Writeln('ФИО: ', Fio);

Writeln('Aдрес: ', Adress);

Writeln('Tелефон: ', Phone);

Writeln('E-mail: ', Email);

Writeln;

Readln;

Quit := False;

Nums := 0;

ClrScr;

Writeln('Программа "Записная книжка"');

Writeln('==========================='); Writeln;

Writeln('Записи: ');

Writeln('--------------------');

For I := 1 to Nums do

Writeln(I, ' - ФИО: ', Book[I].Fio);

Writeln('--------------------'); Writeln; Writeln;

Writeln('''a'' - добавить запись');

Writeln('Номер - показать запись');

Writeln('Esc - выход');

Writeln;

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

C := ReadKey;

case C of

'1'..'9': begin

Val(C, I, Code);

List_Item(I);

'a': New_Item;

#27: Quit := true;

until Quit;

Что скажете? Все понятно? Думаю, что с первого взгляда нет. Замечу, что я написал эту программу совершенно не задумываясь о проблемах оптимизации, кроме того она несколько недоработана. Почему я так сделал - читайте ниже.

Ну а пока давайте разберемся, что же происходит в нашей программе. На первый взгляд она несколько громоздка: но это ошибочное мнение. На самом деле программа очень проста. Посмотрите внимательно: она содержит всего две процедуры:

Дальше - читаются несколько переменных. После этого считанные значения заносятся в поля записи. Вот и все.

Ну а теперь о главном теле программы и ее основном цикле. В самом начале программы основным переменным присваиваются значения, порядка ради:

Это все. Как видите, программа совершенно не сложная. Зато хорошо демонстрирует работу с записями.

Ну а теперь о том, почему я не доработал эту программу, а также о том, что еще с ней можно сделать. Уважаемые друзья! Эта программа - тема и следующего выпуска тоже, когда мы будем проходить работу с файлами. Тогда мы усовершенствуем ее, чтобы Записной книжкой можно было реально пользоваться - будем сохранять базу сообщений в отдельном файле, а также добавим несколько функций.

В связи с этим формируется домашнее задание, которое вам необходимо выполнить для успешного освоения материала следующего выпуска. Оно заключается в том, чтобы добавить в эту книжку несколько новых функций. Присылать мне эти задания не нужно, это только для вас. НО: если вы их не выполните, то материал следующего выпуска понять будет довольно сложно, так как я НЕ БУДУ ПРИВОДИТЬ исходный код некоторых процедур, задаваемых на дом.