Лекция: FUNCTION

Процедура FUNCTION имя [(параметры)] [STATIC]

имя [блок операторов]

Имя = выражение [блок операторов]

END FUNCTION

— имя – имя функции и возвращаемый ею тип данных, указанный суффиксом типа данных (%,&,!,#,$).

параметры – одна или несколько переменных, указывающих параметры, которые передаются в функцию при ее вызове:

переменная – имя переменной.

тип – тип данной переменной

переменная [()][AS тип][, переменная[()][AS тип]]…

[STATIC] – указывает, что значение локальных переменных функции сохраняются между вызовами функций.

[выражение] – возвращаемое значение функции.

Варианты третьего задания на контрольную работу.

Задание №3 содержит два вида заданий программирование разветвляющегося и циклического алгоритмов. Первый вид задания имеет нечетные номера вариантов — второй четные. Кроме этого в приложениях №1 и№2 даны среда программирования QBASIC и образец оформления третьего задания. В приложении №3 приводятся встроенные функции реализованные в среде QBASIC.

Пример №1. Программирование разветвляющегося алгоритма.

Пусть имеется программа, реализующая вычисление функции:

Алгоритм решения данной задачи будет иметь вид:

По полученному алгоритму запишем текст программы (используя блочную форму оператора IF):

CLS

REM С разветвлением

Pi=3.14

INPUT «Введите а»; а

INPUT «Введите х»; х

IF x>0 THEN

y=sin(Pi/(12+x))+x^2-5*a

ELSE

y=sin(Pi/(12+x))+x^2+5*a

END IF

PRINT «y=»;y

END

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

Пример №2. Программирование циклического алгоритма.

Пусть необходимо составить программу для вычисления функции:

для х=-1 до 3 с шагом 0.5

Алгоритм решения данной задачи будет иметь вид:

Приведем один из возможных вариантов программы:

CLS

REM Циклическая программа

FOR х=-1 TO 3 STEP 0.5

y=(exp(x^2)+exp(-x^2))/2

PRINT “y(”;x;”)=”;y

NEXT х

END