TURBO BASIC

f o r i = l t o n : f o r j = l t o mp r i n t " a ( " i" ," j " ) ■ " ; : i n p u t , a ( i , j )n e x t :n e x tr e t u r nОбращение в тексте программы будет следующим GOSUB woda.Пример подпрограммы опроса нажатой клавиши:o p r o s :w h ile n o t in s t a t : w e n dc $ = in k e y $ : i c s = a s c ( r i g h t $ ( c $ , 1 ))r e tu r nПосле выполнения команды GOSUB opros переменная ics будетсодержать код нажатой клавиши, например 13 - для клавиши Enter, 27- для Esc, 48... 57 - соответственно для цифровых клавиш 0...9.Процедура - это группа операторов, более независимая от главнойпрограммы. Она начинается строкой SUB имя(список формальныхпараметров) и заканчивается обязательным оператором End sub.Например, процедура вывода матрицы на экран:su b v y v o d ( n ,m ,c ( 2 ) )f o r i = l t o nf o r j = l t o mp r i n t u s in g " # # # # # # .# # # " ,c ( i , j ) ;n e x tp r i n tn e x ten d su bкоторая будет выполнена после обращения в тексте программыc a l l v y v o d ( n ,m ,a ( ) )Имена переменных в списке фактических параметров обращенияк процедуре и в списке формальных параметров самой процедурымогут не совпадать, однако обязательно соблюдается порядок их перечисленияи тип. Если в список входит массив, то в обращении для негоуказываются просто скобки, а в процедуре для этого массива указываютв скобках число размерностей, например 2 для двумернойматрицы.Несмотря на независимость от главного модуля для процедурыдолжны выполняться следующие требования:а) общие массивы объявляются в главной программе;25