Файл: Соловейчик, Р. Э. Программирование на АЛГОЛ-60 учеб. пособие.pdf

цедуры представляет собой составной оператор. Допустим, из­ вестно, что квадратное уравнение

ах^ + Ьх + о » 0

имеет два вещественных корня (следовательно а / 0) и их надо

найти. Присвоим процедуре, решавдей эту задачу, идентификатор ro o t 2 . Тогда описание" этой процедуры будет сдрдувдим:

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

Причем на этом примере явно видна целесообразность представ­

ления тела процедуры в виде блока; кроме того, эта процедура потребует для своей реализации меньше машинного времени.

(Здесь мы поступили не вполне корректно, присвоив двум раз­ личным процедурам одно наименование,т.е. общий для них иден­ тификатор root 2 ; но поскольку оба они выполняют одно и

то же, то нам казалось, что это не очень предосудительно).

68

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

end

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

69

седьмой строки матрицы 15x15, то это можно сделать с помощью обращения к процедуре.

ку, за которой следует строка букв, т.е. любой буквенный текст, служащий душ пояснения, далее следует двоеточие и, наконец, открывающая скобка. Этим способом можно пользоваться всегда, когда это будет казаться целесообразным; он не влияет на ра­ боту программы. Если в описании процедуры мы воспользовались этки приемом, то при обращении к рассматриваемой процедуре можно поступать по своему усмотрению, т.е. писать поясняю­ щий текст, но можно и не писать. Так, в приведенной выше про­

Подчеркнем, что пояснения относятся к формальным параметрам, начиная со второго. 3 случае если имеется только один фор­ мальный параметр, то подобный прием неприменим.

Ввиду важности понятия процедуры приведем еще несколько примеров.

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

переменные, вводимые для обозначения индексов элемента матри­

array Ъ £l •: 10, I : lo j ^

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

Trane ( ъ, 1 , ю ) .

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