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

UptoLike

ВУЗ: 

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

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

Рубрика: 

П/п TB
Вывод α и
заголовка
Целочисленны
й цикл
Вывод X,Y
Вычисление
YMIN,YMAX
Вывод
YMIN,YMAX
' Подпрограмма табулирования TB
SUB TB (A, DX)
YMIN = 1E37 : YMAX = -1E37
PRINT USING
" A = #.# "; A
PRINT
" X "; SPC(9); " Y "
N = (XMAX - XMIN) / DX
FOR I = 0 TO N
X = XMIN + I * DX
Y = A*SQR(ABS(X)) - COS(A*X)^2
PRINT USING
" #.## "; X;
PRINT USING
"##.####^^^^ "; Y
IF Y < YMIN THEN YMIN = Y
IF Y > YMAX THEN YMAX = Y
NEXT I
PRINT USING "Ymin = ##.####^^^^ ";YMIN
PRINT USING
"Ymax = ##.####^^^^ ";YMAX
PRINT STRING$(50,
" * ")
END SUB
5. Макет печати результатов (по Fortran-программе)
ИСХОДНЫЕ ДАННЫЕ
XMIN = 0. XMAX = 1. A1 = 1.
A2 = 1.5 DX1 = 0.5 DX2 = 0.25
A = 1.00
ТАБЛИЦА
X Y
0.00 -0.1000E+01
0.50 -0.6304E-01
1.00 0.7081E+00
Ymin = -0.1000E+01
Ymax = 0.7081E+00
**********************
A = 1.50
ТАБЛИЦА
X Y
0.00 -0.1000E+01
0.25 -0.1158E+00
0.50 0.5253E+00
0.75 0.1113E+01
1.00 0.1495E+01
Ymin = -0.1000E+01
Ymax = 0.1495E+01
*********************
*
58
' Подпрограмма табулирования TB
SUB TB (A, DX)                                П/п TB
   YMIN = 1E37 : YMAX = -1E37
   PRINT USING " A = #.# "; A                 Вывод α и
   PRINT " X "; SPC(9); " Y "                 заголовка

  N = (XMAX - XMIN) / DX                      Целочисленны
  FOR I = 0 TO N                              й цикл
     X = XMIN + I * DX
     Y = A*SQR(ABS(X)) - COS(A*X)^2
     PRINT USING " #.##     "; X;             Вывод X,Y
     PRINT USING "##.####^^^^ "; Y
     IF Y < YMIN THEN YMIN = Y                Вычисление
     IF Y > YMAX THEN YMAX = Y                YMIN,YMAX
  NEXT I
  PRINT USING "Ymin = ##.####^^^^ ";YMIN      Вывод
                                              YMIN,YMAX
  PRINT USING "Ymax = ##.####^^^^ ";YMAX
  PRINT STRING$(50, " * ")
END SUB

    5. Макет печати результатов (по Fortran-программе)
             ИСХОДНЫЕ ДАННЫЕ
       XMIN = 0. XMAX = 1. A1 = 1.
       A2 = 1.5 DX1 = 0.5 DX2 = 0.25
            A = 1.00
              ТАБЛИЦА
          X              Y
        0.00      -0.1000E+01
        0.50      -0.6304E-01
        1.00       0.7081E+00
       Ymin = -0.1000E+01
       Ymax = 0.7081E+00
      **********************
            A = 1.50
              ТАБЛИЦА
          X              Y
        0.00      -0.1000E+01
        0.25      -0.1158E+00
        0.50       0.5253E+00
        0.75       0.1113E+01
        1.00       0.1495E+01
       Ymin = -0.1000E+01
       Ymax = 0.1495E+01
      **********************




                            58

Страницы