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

UptoLike

ВУЗ: 

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

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

Рубрика: 

COMMON XMIN,XMAX
REAL :: A,DX,X,Y
REAL :: XMIN,XMAX,YMIN,YMAX
INTEGER :: I,N
YMIN = 1E37 ; YMAX = -1E37
PRINT '(6X, " A = ",F4.2)', A
PRINT *, ' ТАБЛИЦА '
PRINT *, ' X Y '
N = (XMAX-XMIN)/DX
DO I = 0, N
X = XMIN + I*DX
Y = A * SQRT(ABS(X)) &
- COS(A * X)**2
PRINT '(3X,F4.2,5X,E11.4)',X,Y
IF(Y < YMIN) YMIN = Y
IF(Y > YMAX) YMAX = Y
END DO
PRINT 4, YMIN,YMAX
4 FORMAT(1X,' Ymin = ',&
E11.4/1X, ' Ymax = ',E11.4)
PRINT *,'**********************'
END SUBROUTINE
Вывод α и
заголовка
таблицы
Целочислен-
ный цикл
Вывод X,Y
Вычисление
YMIN,YMAX
Вывод
значений
YMIN,YMAX
Результаты работы программы представлены ниже (п. 5).
4. Листинг Basic-программы
Код исходного модуля Пояснения
' Лабораторная работа 4
' Петров А.Н. М-11
' Подпрограмма SUB
COMMON SHARED XMIN, XMAX
DATA 0,1,1,1.5,0.5,0.25
READ XMIN, XMAX, A1, A2, DX1, DX2
CLS
PRINT TAB(13); " ИСХОДНЫЕ ДАННЫЕ "
PRINT
" XMIN = ";XMIN; " XMAX = ";XMAX
PRINT
" A1 = "; A1; " A2 = "; A2
PRINT
" DX1 = "; DX1; " DX2 = "; DX2
CALL TB(A1, DX1)
PRINT
" Нажмите любую клавишу "
A$ = INPUT$(1)
CALL TB(A2, DX2)
END
Основная
программа
Глобальные
переменные
Ввод
данных
Вывод
исходных
данных
Вызов
п/п TB
57
        COMMON XMIN,XMAX
        REAL :: A,DX,X,Y
        REAL :: XMIN,XMAX,YMIN,YMAX
        INTEGER :: I,N
        YMIN = 1E37 ; YMAX = -1E37
        PRINT '(6X, " A = ",F4.2)', A             Вывод α и
        PRINT *, '       ТАБЛИЦА '                заголовка
        PRINT *, '    X             Y '           таблицы

        N = (XMAX-XMIN)/DX                        Целочислен-
        DO I = 0, N                               ный цикл
           X = XMIN + I*DX
           Y = A * SQRT(ABS(X)) &
               - COS(A * X)**2
           PRINT '(3X,F4.2,5X,E11.4)',X,Y         Вывод X,Y
           IF(Y < YMIN) YMIN = Y                  Вычисление
           IF(Y > YMAX) YMAX = Y                  YMIN,YMAX
        END DO
      PRINT 4, YMIN,YMAX                          Вывод
4     FORMAT(1X,' Ymin = ',&                      значений
        E11.4/1X, ' Ymax = ',E11.4)               YMIN,YMAX
      PRINT *,'**********************'
    END SUBROUTINE

    Результаты работы программы представлены ниже (п. 5).

                  4. Листинг Basic-программы
                Код исходного модуля                Пояснения
' Лабораторная работа 4                          Основная
' Петров А.Н. М-11                               программа
' Подпрограмма SUB

COMMON SHARED XMIN, XMAX                         Глобальные
                                                 переменные
DATA 0,1,1,1.5,0.5,0.25                          Ввод
READ XMIN, XMAX, A1, A2, DX1, DX2                данных

CLS
PRINT   TAB(13); " ИСХОДНЫЕ ДАННЫЕ "             Вывод
PRINT   " XMIN = ";XMIN; " XMAX = ";XMAX         исходных
PRINT   " A1 = "; A1; "    A2 = "; A2            данных
PRINT   " DX1 = "; DX1; " DX2 = "; DX2
CALL TB(A1, DX1)                                 Вызов
                                                 п/п TB
PRINT " Нажмите любую клавишу "
A$ = INPUT$(1)
CALL TB(A2, DX2)
END


                                 57

Страницы