Функции. procedure treug (aa, bb

End.

Begin

Begin

Var

Var

End.

Begin

Begin

Var

a, b, c: real;

procedure treug (aa, bb, cc: real);

var p, s: real;

p:= (aa + bb + cc) / 2;

s:= sqrt (p * (p - aa) * (p - bb) * (p - cc));

writeln ('s= ', s:6:2)

end;

readln (a, b, c);

treug (a, b, c); { оператор вызова процедуры }

Глобальные переменные a, b и c, описанные в главной программе, используются в операторе вызова процедуры в качестве входных фактических параметров. Они согласуются с формальными параметрами aa, bb и cc процедуры по числу, типу и взаиморасположению в своих списках. Следовательно, при вызове процедуры её формальный параметр aa примет значение фактического параметра a, параметр bb – значение параметра b, а параметр cc – значение параметра c.

Как формальные параметры, так и переменные p и s, описанные в разделе var процедуры, являются локальными переменными и главной программе недоступны. Поэтому вывод результата счёта – переменной s предусмотрен не в главной программе, а непосредственно в процедуре.

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

var имя1, имя2,...: тип параметров;

Пример 6.3. Используя процедуру, вычислить поверхность треугольной пирамиды, если известны длины ее ребер a, b, c, d, e и f.

a, b, c, d, e, f, s1, s2, s3, s4: real;

procedure treug0 (aa, bb, cb: real; var s: real);

p: real;

p:=(aa + bb + cc) / 2;

s:=sqrt (p * (p - aa) * (p - bb) * (p - cc))

end;

readln (a, b, c, d, e, f);

treug0(a, b, c, s1); treug0(a, d, e, s2);

treug0(b, e, f, s3); treug0(c, f, d, s4);

write ('поверхность равна ', s1 + s2 + s3 + s4)

В главной программе предусмотрены четыре обращения к процедуре treug0 (по числу граней пирамиды). Список её формальных параметров состоит из трёх входных параметров aa, bb, cc и одного выходного – s.

При первом обращении к процедуре в ячейку s будет записан адрес переменной s1, а в ячейки aa, bb и cc – значения переменных a, b и c. Результат выполнения процедуры (площадь треугольника со сторонами a, b и c) будет записан в ячейку s1.

Таким образом, главная программа получит доступ к результату, вычисленному в процедуре, и использует его в вычислении площади поверхности пирамиды. После выполнения процедуры значения переменных aa, bb и cc будут «забыты».

Остальные обращения к процедуре treug0 будут выполнены аналогично.

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

Для возврата в главную программу вычисленного функцией значения в теле функции необходимо предусмотреть хотя бы один оператор присваивания, в котором слева от символа ’ :=’ ставится имя функции, а справа – выражение, вычисляющее её значение.

Тип значения, вычисляемого функцией, задаётся в её заголовке, имеющем вид

function имя функции (список форм. параметров): тип результата;,

Пример 6.4. Вычисление площади треугольника (см. пример 6.2) оформить в виде функции.

function treug1(aa, bb, cc: real): real;

Дата добавления: 2014-01-06