Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Программирование в Delphi (повторение).doc
Скачиваний:
7
Добавлен:
04.05.2019
Размер:
2.74 Mб
Скачать

5.6.4. Запись инструкций программы

Одну инструкцию от другой отделяют точкой с запятой или, другими сло­вами, в конце каждой инструкции ставят точку с запятой.

Хотя в одной строке программы можно записать несколько инструкций, как правило, каждую инструкцию программы записывают в отдельной строке. Некоторые инструкции (if, case, repeat, while и др.) принято записывать в несколько строк, используя для выделения структуры инструкции отсту­пы. Ниже приведен пример инструкции, которая записана в несколько строк и с использованием отступов:

if d >= О

then

begin

xl:=(-b+Sqrt(d))/(2*a);

x2:=(-b-Sqrt(d))/(2*a);

ShowMessage('xl='+FloatToStr(xl) +

'x2='+FloatToStr(x2));

end

else

ShowMessage('Уравнение не имеет корней.');

Следует обратить внимание на то, что слова then и else записаны одно под другим (с одинаковым отступом) и с отступом относительно слова if. Сло­во end располагается под словом begin, а инструкции между begin и end размещаются одна под другой, но с отступом относительно begin.

Приведенную выше инструкцию можно записать и так:

if d >= 0 then begin

xl:=(-b+Sqrt(d))/(2*a);

x2: = (-b-Sqrt(d))/(2*a);

ShowMessage('xl='+FloatToStr(xl)+'x2='+FloatToStr(x2));

end

else ShowMessage('Уравнение не имеет корней.');

Однако первый вариант лучше, т. к. он отражает структуру алгоритма, peализуемого инструкцией. С первого взгляда видна группа инструкций, которая будет выполнена, если условие d >= 0 выполняется (в этом случае будут вычислены значения переменных x1 и х2), и инструкция, которая будет выполнена, если условие d >=0 не выполняется.

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

Нельзя разрывать имена переменных, чи­словые и строковые константы, а также составные операторы, например, оператор присваивания.

Пример записи выражения в несколько строк:

st:= 'Корни уравнения'+ #13

+'xl=' + FloatToStr(xl)+ #13

+'х2=' + FloatToStr(x2);

Компилятор иг­норирует «лишние» пробелы и пустые строки. Так, он игнорирует все про­белы в начале строки. Это и позволяет записывать инструкции с отступами. Не требуются пробелы при записи арифметических и логических выражений (условий), списков параметров. Однако при их использовании программа легче воспринимается.

Если сравнить два варианта записи инструк­ции присваивания, то видно, что второй вариант воспринимается лучше:

xl:=(-b+Sqrt(d))/(2*a);

и

xl := (-b + Sqrt(d)) / (2 * а);

Для облегчения понимания логики работы программы в текст программы нужно включать поясняющий текст – комментарии. В общем случае ком­ментарии заключают в фигурные скобки. Открывающая скобка помечает начало комментария, закрывающая – конец. Если комментарий одностроч­ный или находится после инструкции, то перед комментарием ставят две наклонные черты.

Пример раздела объявления переменных, в котором исполь­зованы оба способа записи комментариев:

var

{ коэффициенты уравнения }

a:real; // при второй степени неизвестного

b:real; // при первой степени неизвестного

с:real; // при нулевой степени неизвестного

{ корни уравнения }

xl,x2:real;[3]