Общая структура программ в Turbo Pascal 7.0

Структура программы имеет следующую запись.

Раздел объявлений и соглашений.

PROGRAM Заголовок программы.

{$ …} Глобальные директивы компилятора.

USES Подключаемые библиотеки.

LABEL Подраздел объявления глобальных меток.

CONST Подраздел объявления глобальных констант.

TYPE Подраздел объявления глобальных типов.

VAR Подраздел объявления глобальных переменных.

Раздел текстов процедур и функций

PROCEDURE (FUNCTION) Заголовок процедуры (функции).

LABEL Подраздел объявления локальных меток.

CONST Подраздел объявления локальных констант.

TYPE Подраздел объявления локальных типов.

VAR Подраздел объявления локальных переменных.

BEGIN Основной блок процедуры или функции.

END;

Раздел основного блока программы

BEGIN Основной блок программы.

END.

Любую программу, написанную на ТP 7.0, можно условно разделить на три основные части:

1. Раздел объявлений и соглашений (декларационная часть).

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

2. Раздел текстов процедур и функций.

В разделе записываются подпрограммы, осуществляющие сложные действия, которые необходимо произвести неоднократно на разных этапах выполнения программы. Подпрограммы бывают двух типов: процедуры (PROCEDURE) и функции (FUNCTION). И те и другие представляют собой программы в миниатюре — они могут иметь те же разделы, что и основная программа, в частности, раздел локальных процедур и функций, вызываемых только в пределах данной подпрограммы.

3. Раздел основного блока (сама программа).

Раздел основного блока программы содержит смысловую часть программы и состоит из последовательности операторов, разделенных символом «;».

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

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

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

Советы, что следует делать и чего избегать, не преследуют цель поставить программиста в жесткие рамки. Эти правила помогут писать более совершенные программы. Если, исходя из здравого смысла, постоянно выполнять приводимые рекомендации, то программы станет легче писать и применять.

1. Используйте содержательные идентификаторы.

Лучшим способом передать смысл переменной или константы является присвоение ей имени, которое отражает назначение переменной или константы. Например, если речь идет о количестве положительных чисел, то идентификатор KolPol предпочтительнее идентификаторов A, Y и т. п. При выборе идентификаторов, состоящих из нескольких слов (или их частей) рекомендуется начинать их с заглавной буквы и/или разделять символом подчеркивания, например: MasSlov — массив слов; File_Exist — имя функции, определяющей наличие файла и т. д.

2. Используйте ступенчатую форму записи текста программы.

Сдвиги (отступы) должны показывать каждый уровень вложенности операторов. Величина отступа не должна быть ни слишком малой, ни слишком большой. Можно рекомендовать отступ, равный двум символам. Все вводимые отступы запоминаются системой программирования и возврат на предыдущий уровень всегда можно осуществить нажатием клавиши BackSpase. Не откладывайте использование ступенчатой формы «на потом». Приведение программы в надлежащий вид после ее отладки потребует больше времени или вообще не будет выполнено.

3. Грамотно организуйте диалог с пользователем.

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

4. Не рекомендуется размещать несколько операторов на одной строке.

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

5. При записи оператора If … Then … Else записывайте слово Else против соответствующего ему слова If. Например,.

If Y>0 Then.

Z := Sqrt (X*X+Y*Y).

Else.

Z := X*X.

6. Не допускайте выхода текста программы за пределы экрана (80 символов в строке).

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

6. Используйте комментарии.

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

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

Второй класс состоит из комментариев, в которых приводится назначение каждой константы и переменной.

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

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

Приводимый ниже пример поясняет сказанное.

Program Minimum;

{ Нахождение минимального элемента в массиве и его индекса}.

{ Программа написана студентом БМ-111 Ивановым И. И. }.

Const.

Nmax = 100; {Максимальное кол-во элементов в массиве}.

Var.

A: Array[1.Nmax] Of Real; { Массив }.

Min: Real; { Минимальный элемент }.

Imin, { Индекс минимального элемента }.

n, { Действительное количество элементов в массиве}.

i: integer; { Индекс элемента массива }.

Begin.

{Ввод исходных данных }.

Writeln ('Введите количество чисел');

Readln (n);

Writeln ('Вводите элементы массива');

For i := 1 To n Do.

Read (X[i]);

{ Нахождение минимума }.

Min := X[1]; {За минимальный принимаем 1-ый элемент массива}.

Imin := 1; { Индекс этого элемента }.

For i := 2 To n Do {Цикл просмотра элементов массива}.

If Min > X[i] Then.

Begin.

Min := X[i];

Imin := i;

End;

{ Вывод результата и завершение }.

Writeln ('Минимум = ', Min:8:2, ' Номер = ', Imin);

Writeln ('Работа завершена. Нажмите клавишу ENTER');

Readln; { Ожидание нажатия на ENTER}.

End.