Написание программы

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

Кодирование должно быть простым. Изощренное программирование может обойтись слишком дорого при отладке и модификации программы. Необычное кодирование (например, использование скрытых возможностей машины) часто препятствует отладке программы и затрудняет ее использование другими программистами.

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

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

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

При написании программы следует применять операторы, позволяющие использовать основные алгоритмические структуры. Оператор Goto желательно не использовать.

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

Для облегчения чтения текста программы отдельные операторы программы записываются с отступом.

Пример

Обработчик BitBtn1Click.

Для построения детальной схемы алгоритма необходимо определить структуру элемента списка и ввести обозначения.

Предлагается следующая структура элемента списка помещений:

Room = Record Num: Integer;

Door: Array [Trend] Of Uk;

Next: Uk;

End;

Поле Num хранит номер помещения; массив Door предназначен для хранения ссылок на смежные комнаты; поле Next содержит ссылку на следующий элемент списка. Trend – это перечисляемый тип данных, имеющий следующие значения: nord, ost, zued, west. Эти значения соответствуют направлениям дверей, которые могут быть расположены в каждом помещении. Указатель на начало списка помещений обозначим идентификатором Spi. Spi – глобальная переменная, которая описана в головной части программы.

Схема алгоритма построения связанного списка приведена на рисунке 10.

Рисунок 10. Построение связанного списка

Схема алгоритма построения многосвязанного списка приведена на рисунке 11.

Рисунок 11. Схема алгоритма построение многосвязанного списка,
содержащего в себе план помещений здания

Программа.

procedure TForm1. BitBtn1Click (Sender: TObject);

// Построение связанного списка помещений

Var FileName: TNameFile; f: TextFile;

p: Uk; i, nr: Integer;

begin

FileName:= InputBox(‘План помещений’, ‘Введите имя файла ‘,’’);

AssignFile(f, FileName);

Reset(f);

//Считываем только номера помещений и составляем связанный список

Spi:= nil;

While not Eof(f) Do

Begin

New(p);

Readln(f, i);

p^.Num:= i;

For r:= nord To west Do p^.Door [r]:= nil;

p^.next:= Spi;

Spi:= p;

End;

//Еще раз считываем из файла, но уже с дверьми

Reset (f);

While not Eof(f) Do

Begin

Read(f, i);

p:= Nroom(Spi, i);

For r:= nord To west Do

Begin Read(f, nr);

If nr = 0 Then p^.Door[r]:= nil

Else p^.Door[r]:= Nroom(Spi, nr);

End;

End;

// Подготовка формы для ввода номера начала помещения

label1.Caption:= ‘Введите № комнаты, с которой хотите начать движение’;

Edit1.Visible:= True;

label1.Visible:= True;

Button1.Visible:= True;

end;

Функция Nroom – поиск ссылки на помещение с заданным номером. В начинающемся в Spi списке помещений по номеру помещения N отыскивается нужное. Значение функции указывает на это помещение. Схема алгоритма приведена на рисунке 12.

Рисунок 12. Схема алгоритма функции Nroom

Программа

Function Nroom(Spi: Uk; n: Integer): Uk;

// В списке помещений находим указатель на n - oe

Var q: Uk;

Begin

q:= Spi;

While (q<>nil) and (q^.num<>n) Do q:= q^.next;

Nroom:= q;

End;

Аналогично уточняются все алгоритмы и разрабатываются обработчики событий.

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