Определение и использование подпрограмм типа процедура

Или

writeln(имя функции (список_фактических_параметров));

Параметры, которые указывают при вызове подпрограммы, называют фактическими параметрами. Типы данных в команде вызова не указывают. Параметры перечисляются через запятую.

Во время вызова подпрограммы между фактическими и формальными параметрами устанавливается взаимно однозначное соответствие:

Соответствие по количеству. Количество фактических параметров должно соответствовать количеству формальных параметров.

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

Соответствие по типу. Тип каждого фактического параметра должен совпадать с типом соответствующего ему формального параметра.

Также надо помнить, что имена соответствующих пар фактических и формальных параметров могут не совпадать.

Задача 1. Необходимо вычислить значение выражения z = tg x+ctg y +tg²x.

{1} program FunctionTg;

{2} var x,y,z:real;

{3} //Объявление функции

{4} function tg(a:real):real;

{5} begin

{6} tg:=sin(a)/cos(a)

{7} end;

{8} //Начало основной программы

{9} begin

{10} writeln('Enter real x,y');

{11} readln(x,y);

{12} z:=tg(x)+1/tg(y)+sqr(tg(x));

{13} writeln('z=',z:5:2);

{14} //Конец основной программы

{15} end.

Строки {12} и {13} можно заменить одной

writeln('y=',tg(x)+1/tg(x)+sqr(tg(x)):5:2);

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

Синтаксис объявления процедуры имеет такой вид:

procedure имя_процедуры(список_формальных_параметров);

//локальные_объявления

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