Формальные и фактические параметры. Преобразование числовых значений параметров при их передаче.

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

• типу
• количесву
• месту положения
• могут совпадать по имени

Будут подпрограммы

• для суммы
• для ввода
• для вывода

Описание

1. 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
2. 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
3. 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