Информатика: Сегментация программ. Гурьяшова Р.Н - 51 стр.

UptoLike

ВУЗ: 

ВГУВТ | Нижний Новгород

Составители: 

Рубрика: 

' Функция вычисления суммы SUM
FUNCTION SUM (C(), L, M)
S = 0
FOR I = L TO M
S = S + TAN(C(I) ^ 2)
NEXT
SUM = S
END FUNCTION
Функция SUM
Цикл
Вычисление
суммы
Примечание. Ввод данных в программе можно «поручить» датчику
случайных чисел (табл. 6.2). Тогда фрагмент программы, осуществляющий ввод-
вывод массивов, будет выглядеть следующим образом:
Код исходного модуля Пояснения
DIM A(4), B(3)
N = 4: K = 3
PRINT " МАССИВ А : ";
FOR I = 1 TO N
A(I)=INT(RND * 5)
PRINT USING " # "; A(I);
NEXT
PRINT
PRINT " МАССИВ В : ";
FOR I = 1 TO K
B(I)=INT(RND * 5)
PRINT USING " # "; B(I);
NEXT
PRINT
Ввод-вывод
массива А
Ввод-вывод
массива B
5. Макет печати результатов (по Fortran-программе)
ИСХОДНЫЕ ДАННЫЕ
N = 4 K = 3
МАССИВ A: 2. 3. 2. 4.
МАССИВ B: 1. 3. 2.
S1 = 0.7055E+00
S2 = 0.2263E+01
S3 = 0.2164E+01
MAX = 0.2263E+01
РЕЗУЛЬТАТ Z = 0.2968E+01
51
 ' Функция вычисления суммы SUM
 FUNCTION SUM (C(), L, M)                            Функция SUM
    S = 0
    FOR I = L TO M                                   Цикл
       S = S + TAN(C(I) ^ 2)                         Вычисление
    NEXT                                             суммы
    SUM = S
 END FUNCTION
    П р и м е ч а н и е . Ввод данных в программе можно «поручить» датчику
случайных чисел (табл. 6.2). Тогда фрагмент программы, осуществляющий ввод-
вывод массивов, будет выглядеть следующим образом:

                  Код исходного модуля                    Пояснения
 DIM A(4), B(3)
 N = 4: K = 3
 PRINT " МАССИВ А : ";                                Ввод-вывод
 FOR I = 1 TO N                                       массива А
    A(I)=INT(RND * 5)
    PRINT USING " # "; A(I);
 NEXT
 PRINT
 PRINT " МАССИВ В : ";                                Ввод-вывод
 FOR I = 1 TO K                                       массива B
    B(I)=INT(RND * 5)
    PRINT USING " # "; B(I);
 NEXT
 PRINT


      5. Макет печати результатов (по Fortran-программе)

               ИСХОДНЫЕ ДАННЫЕ
               N = 4 K = 3
               МАССИВ A: 2.    3.  2.   4.
               МАССИВ B: 1.    3.  2.
                S1 = 0.7055E+00
                S2 = 0.2263E+01
                S3 = 0.2164E+01
                MAX = 0.2263E+01
               РЕЗУЛЬТАТ Z = 0.2968E+01




                                    51

Страницы