Матричный принтер

  Procedure; {описание процедур}

  Function; {описание функций}

Begin

  . . .

  . . .

end.

Выполнение программы начинается с операторов основной программы. При необходимости вызывается подпрограмма, и начинают действовать её операторы. Затем управление возвращается в основную программу, которая  и продолжает выполняться.

Обращение к подпрограмме - переход к выполнению подпрограммы с заданием информации, необходимой для ее выполнения и возврата.

Подпрограмма вызывается по своему имени с указанием необходимых параметров.

 

Формальные и фактические параметры.

Формальные параметры подпрограммы указывают, с какими аргументами следует обращаться к этой подпрограмме (количество аргументов, их последовательность, типы). Они задаются в заголовке подпрограммы в виде списка, разбитого на группы. Разделителем групп является знак точка с запятой (;). В каждую группу  включаются  параметры одного типа, принадлежащие к одной  категории.

 

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

 

параметры-значения;

параметры-переменные;

параметры-константы (используются только в версии 7.0);

параметры-процедуры и параметры-функции.

 

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

 

function Max( A: array[ 1..100 ] of real ): real;

Чтобы правильно записать этот заголовок, следует в основной программе ввести тип-массив, а затем использовать его в заголовке:

 

type tArr =array [ 1..100 ] of real;

function Max ( A: tArr ) : real;

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

 

 

 

 

 

 

 

Практические задания (вариант 5)

Задание №2

Задача 1. По заданным значениям х и у найти значение функции f(x,y)=5x3+2y4.

Составим блок-схему алгоритма.

Составим программу на VBA в виде функции пользователя.

Function f(x,y)

f = 5*x^3 +2*y^4

End Function

Задача 2. Вычислить значение функции y в заданной точке x.

                      

      При этом следует  проверить условия существования  значения функции в этой точке.

 

Составим блок-схему алгоритма.

Составим программу на VBA, оформленную в виде функции пользователя.

Function y(x)

If x< -1/3 or x=1 Then MsgBox("y не существует")

Else y=(3*x+1)^(1/2)/((x^2+2)*(x-1))

End Function

Задача 3. Вычислить произведение ненулевых элементов одномерного массива размера n.

Введем обозначения переменных: Х – одномерный массив, n – количество элементов в массиве, Р– произведение ненулевых элементов, i – номер очередного элемента массива.

Составим блок-схему алгоритма. 

 

Составим программу на VBA, оформленную в виде функции пользователя.

Function S(X As Variant) As Double

Dim i, n As Integer

n = Х.Columns.Count

Р = 1

For i = 1 To n

If X(i) <> 0 Then P = P * X(i)

Next i

End Function