Передача данных в процедуры
Если нам нужно просто передать данные в процедуру, ничего из нее не возвращая, это делает точно так же, как и при передаче данных в функцию. К примеру, создадим процедуру, которая получает на вход два числа и выводит на экран их разность, если она положительна:
Поскольку процедура ShowMax ничего не знает про форму Form1 и компонент Label1, придется указывать полный путь к нему: Form1.Label1. Обработчики событий компонентов относятся к форме (являются ее методами) и внутри них Form1 можно не писать.
Здесь r – локальная переменная процедуры, она существует только внутри нее. При вызове такой процедуры ей на вход надо подать два числа, например:
ShowMax(10, 2*a-45);
Обратите внимание, что здесь a – совсем другая переменная, не имеющая отношения к переменной a в заголовке процедуры. Значение 10 будет занесено в локальную переменную a, а вычисленное значение 2*a-45 – в локальную переменную b.
Такой способ передачи данных называется "по значению" (by value). У него есть два недостатка. Во-первых, он позволяет передавать информацию только в одну сторону – из вызывающей программы в процедуру. Во-вторых, при передаче больших объемов данных, скажем, больших массивов, они каждый раз полностью копируются из одной области памяти в другую, на что уходит много ресурсов компьютера.
Для решения вопроса с возвратом значения из процедуры в Delphi предусмотрен второй механизм передачи данных, называемый "по ссылке" (by reference). Его смысл состоит в том, что в процедуру передается адрес переменной, которая описана в вызывающей программе. Зная адрес, процедура может напрямую занести в эту переменную требуемое значение.
Составим процедуру, вычисляющую гипотенузу треугольника по двум катетам.
Весь фокус заключается в слове VAR, стоящем в заголовке перед именем переменной-аргумента c. Слово VAR в заголовке процедуры не имеет никакого отношения к выделению памяти (подобное "двойное назначение" слова VAR в Delphi представляется неудачным и вносит ненужную путаницу). Оно указывает на то, что указанную после него переменную можно изменять внутри процедуры и измененное значение вернется в вызывающую программу.
При обращении к процедуре Hypot третьим ее параметром обязательно должно идти имя переменной. Следующая запись правильна:
VAR h:REAL;
. . .
BEGIN
. . .
Hypot(a+b, 45, h)
…
Величина гипотенузы будет записана в переменную h.
А так делать нельзя:
Выражение h*4 не является именем переменной и в него нельзя записать значение.
В качестве параметров процедур и функций могут быть и массивы. Рассмотрим пример программы, в которой нахождение минимального элемента массива оформлено в виде процедуры.
CONST Nmax=20;
TYPE TA=ARRAY[1..Nmax] OF REAL;
VAR a:TA; i:BYTE; min:REAL;
PROCEDURE FindMin(ar:TA; n:BYTE; VAR min:REAL);
VAR i:BYTE;
BEGIN
min:=ar[1];
FOR i:=2 TO n DO
IF ar[i]<min THEN
min := ar[i]
END;
BEGIN
FOR i:=1 TO Nmax DO
a[i]:=RANDOM;
FindMin(a,Nmax,min);
Label1.Caption:=FloatToStrF(min,ffFixed,10,4)
END.
В процедуру или функцию нужно передать и динамический массив. Напишем универсальную функцию поиска максимального элемента в массиве вещественных чисел любого размера:
FUNCTION FindMax(a:ARRAY OF REAL):REAL;
VAR i:WORD;
BEGIN
Result:=a[Low(a)];
FOR i:=Low(a)+1 TO High(a) DO
IF a[i]>Result THEN
Result:=a[i]
END;
На блок-схемах вызов процедуры или функции обозначается в виде блока:
На каждую процедуру изображается отдельная блок-схема.
Дата добавления: 2015-03-19; просмотров: 979;