Структура процедуры, определенной пользователем

PROCEDURE имя (формальные параметры);

Раздел описаний;

BEGIN

Раздел операторов

END;

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

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

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

Имя функции – уникальный в пределах блока идентификатор.

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

Структура функции, определенной пользователем

FUNCTION имя (формальные параметры): тип результата;

Раздел описаний;

BEGIN

Раздел операторов

END;

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

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

2. Контрольные вопросы.

1.1. Что такое процедура?

1.2. Что такое функция?

1.3. Как подразделяются процедуры и функции?

1.4. Структура процедуры, определенной пользователем.

1.5. Как осуществляется вызов процедуры?

1.6. Структура функции, определенной пользователем.

1.7. Как осуществляется вызов функции, определенной пользователем?

Задания и технология выполнения.

 

3.1. Разработать программу для вычисления выражения

Y = X⁵- X³ – X, используя функцию пользователя (возведения в степень любого числа) с точностью до 1 знака при Х=0,7.

· Программа:

PROGRAM P7: заголовок

USES CRT; подключение библиотеки

VAR Y:REAL; описание переменной

 

FUNCTION S(A, B:REAL):REAL; описание функции

BEGIN

S:=EXP(B*LN(A))

END; конец описания функции

BEGIN начало раздела операторов

 

CLRSCR; очистка экрана

WRITELN (‘Введите Х’); вывод пояснительного текста

READ (X); ввод Х

Y: = S(X,5) – S(X,3) – S(X,1);

WRITELN (‘Y = ‘,Y:1:1) вывод Y

END. конец программы

 

3.2. Разработать программу для вычисления выражения Y=X², при Х=0.5 с точностью до 2 знаков и вывести на экран результаты в виде:

 

Фамилия

Х = Y =,

используя процедуру пользователя для вычерчивания горизонтальной линии

 

· Программа:

PROGRAM P8;

 

USES CRT;

VAR X,Y:REAL;

PROCEDURE GL (X1,X2,Y:INTEGER); описание процедуры

VAR X:INTEGER;

BEGIN

FOR X: =X1 TO X2 DO

BEGIN

GOTOXY(X,Y);

WRITE (‘-‘)

END

END; конец описания процедуры

 

BEGIN начало раздела операторов

СLRSCR; очистка экрана

WRITE (‘введите Х’); вывод пояснит. текста

READ (X); ввод Х

Y=SQR(X);

CLRSCR;

GOTOXY(30,2); перемещение курсора

30 по Х и 2 по Y

WRITE(‘Фамилия’); вывод фамилии

 

GOTOXY(10,16);

WRITE(‘X=’,X:1:2);

GOTOXY(50,16);

WRITE(‘Y=’,Y:1:2);

 

GL(30,40,3); вызов процедуры

вычерчивания линии

GL(10,16,17);

GL(50,66,17);

END; конец программы

4. Контрольные задания.

4.1. Разработать алгоритм и программу для вычисления выражения, используя функцию пользователя для подчеркнутого элемента:

 

4.1.1. Y = tg (X) + tg²(X), при Х=0.9

4.1.2. Y = (X-2) + (X-2)², при Х=5.5

4.1.3. Y = - (X+2), при Х=5

4.1.4. Y = 5X – sin(5X), при Х=0.1

4.1.5. Y = tg(X) - , при Х=0.6

 

4.2. Разработать алгоритм и программу для вычисления выражения Y= , при Х=-7 с точностью до 2-х знаков и вывести на экран результаты, используя процедуры пользователя для вычерчивания горизонтальных или вертикальных линий в виде:

4.2.1.

Х=

Y=

 

4.2.2. X=

Y=

 

4.2.3. X = Y =

Фамилия

 

 

4.2.4. Х =

Y =

Фамилия

 

 

4.2.5. X =

Фамилия

Y =

 

 

5. Рекомендуемая литература

5.1.Бородич Ю.С. и др.

Паскаль для персональных компьютеров. - Мн.: Высш.шк.: БФ ГИТМП

«НИКА», 1991.- с.49-51.