Модуль
процедуры функции
если требуется вернуть возвращает значение значения его передачи последним оператором через список параметров телом функциии может не возвращать значение
Работа состоит из этапов
- Реализация (описание) обычно в конце программы
- Обьявление в начале программы
- Вывод на работу (в главной программе там где надо)
Обьявление программы:
CLS вход в гл.пр. • • • вызов п/пр
end
описание п/пр
Работа с функцией
- Описание: Function имя (список формальных вход.пр-ов) тело имя функции = возвращ.значение END Function
- Declare Function имя (-//-//-)
- Вызов
- y=имя функции (список фактических вход параметров)
- в составе любого другого оператора чаще,мат. или печати.
Работа с процедурой
- SUB имя (список формальных параметров,где последние могут быть возвращаемые значениями)
- Declare SUB (-//-//-)
- Вызов Сall имя (список,фактических параметров,где последние могут быть возвращаемые значениями)
Требования к формальным и фактическим параметрам используемых в одной программе должно совпадать по:
- типу
- количесву
- месту положения
- могут совпадать по имени
Будут подпрограммы
- для суммы
- для ввода
- для вывода
Описание
- SUB VVOD (Mas(),str,stb) For i=1 to str For j=1 to stb input mas (i,j) next j next i end SUB
- SUB VVOD (Mas(),str,stb) For i=1 to str For j=1 to stb print mas (i,j) next j next i end SUB
- Function SUM (mas(),str,stb) S=0 For i=1 to str For j=1 to stb S=S+mas(i,j) next j next i SUM=S End Function DECLARE SUB VVOD (.... DECLARE SUB VIVOD (.... DECLARE FUNCTION SUM (.... CLS M=3 N=4 DIM (M,N) CALL VVOD (A,M,N) SA=SOM(A,M,N) PRINT "Наш массив" CALL VIVOD (A,M,N) PRINT "сумма="; SA END
Сумма через процедуру
SUB SUM (mas(),str,stb) S=0 FOR i=1 to str FOR j=1 to stb S=S+mas(i;j) next j next i end SUB DECLARE SUB VVOD DECLARE SUB VIVOD DECLARE FUNCTION SUM CLS M=3 N=4 DIM (A,M,N) CALL VVOD (A,M,N) CALL SOM(A,M,N,SA) PRINT "Наш массив" CALL VIVOD (A,M,N) PRINT "Sum"; SA END
