Использование массивов в процедурах

End.

Begin

Begin

Особенность Оbject Pascal.

End.

Begin

Begin

Begin

Else

End

Begin

Begin

If z>p then max:=z

else max:=p;

End;

Begin {исполняемая часть программы}

Writeln (‘ввод a, b, x’);

Readln (a, b, x);

If x>=0 then

c:=max(a+b, a-b);

d:=max(sqr(a), sqr(b)); { или y:=max(a+b, a-b)/max(sqr(a), sqr(b))+x; }

y:=c/d+x;

c:=max(a, b); { или y:=max(a, b)+x }

y:=c+x;

end;

writeln (‘y=’, y:15:4);

readln;

    i:=1

    i:=1

end.

Пример 2. Вычислить функцию p=(∑ xⁱ )*(∑ yⁱ ) с использованием подпрограммы.

Используем для вычисления сумм подпрограмму-функцию.

Вопрос: сколько формальных параметров будет у функции?

Какие фактические переменные и константы различаются в суммах?

Это – 20, 25 и x, y.

Обозначим их формальными r u z

Функция имеет 2 формальных параметра: z, r.

r     i:=1

Имя функции – summ

z, r→summ(z, r)= ∑ zⁱ

Program Primer;

var p, x, y:real;

Function summ(z:real;r:integer):real; {описание подпрограммы

функции}

Var i:integer;

s, a:real;

s:=0; {должны накапливаться и сумма s, и произведение а}

a:=1;

for i:=1 to r do

a:=a*z;

s:=s+a;

end;

summ:=s;

end;

begin {основная часть программы}

writeln (‘ввод x, y’);

readln (x, y);

p:=summ(x, 20)*summ(y, 25);

writeln (‘p=’,p:10:3);

readln;

В описании функции summ используются 3 локальные переменные: s, a, i. Переменная s необходима, поскольку при подсчете суммы в цикле нельзя писать summ:=summ+a, т.к. происходит обращение к имени функции, которое находится внутри ее описания, поэтому нужно писать s:=s+a;

а затем, в итоге, перед завершением описания функции присвоить имени summ:=s;

В ОР для каждой функции автоматически определена локальная переменная Result того же типа, что и возвращаемые функцией значения. Эту переменную можно использовать в промежуточных вычислениях. Последнее присвоенное ее значение вернется как значение функции.

Рассмотрим, как выглядит описание функции summ с использованием Result:

Program Primer_Result;

Var p, x, y:real;

Function summ(z:real;r:integer):real;

Var i:integer;a:real;

result:=0;

a:=1;

for i:=1 to r do

begin a:=a*z;

result:=result+a;

end;

end;

writeln (‘ввод x, y’);

readln (x, y);

p:=summ(x, 20)*summ(y, 25);

writeln (‘p=’,p:10:3);

readln;

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

Procedure Sum(a: array[1..10] of integer; var f: array[1..20] of integer);- так
нельзя!

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

Type Mass = array[1..10] of integer;

Func = array[1..20] of integer;

Procedure sum (a: Mass; var f: Func);

Пример 1. Даны массивы вещественных чисел x₁,...., x₁₀

y₁,...., y₂₀

z₁,...., z₃₀

Определить среднее арифметическое их max элементов. Поиск max элемента в каждом массиве оформить как процедуру.

Program Srednee;

Const n=10; m=20; r=30;

Type Vect=array[1.. r ] of integer;{ r – самый большой размер}

Var x, y, z: Vect;

s₁, s₂, s₃: integer; s: real;

Procedure Vvod(var z:Vect; k:integer); {описание процедуры Vvod}

{ z –это массив, являющийся параметром-переменной. Будем вводить формальный массив z длины k. Отметим, что массив z – результат ввода, т.е. пишется со словом var.}

var i:integer;

Дата добавления: 2015-06-27