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

UptoLike

ВУЗ: 

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

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

Рубрика: 

B) THEN
READ(*,*) A,B,K
IF(A <
данных
IF(B > 0) THEN
Z = ZMAX(A, FK(K))
Z = ZMAX(A, B*Z)
ELSE
Z = B - A * FK(2 * K)
END
ELSE
Z = A * B - FK(K**2)
END IF
END IF
PRINT 3, A,B,K,Z
3 FORMAT(2X,' ИСХОДНЫЕ ДАННЫЕ '/ &
! Функция
L FU
REAL
INTE
P = 1
DO I =
P = P * I
ENDDO
FK = P
имума 2х чисел
(X,Y)
R
B>0
B и B<=0
A>=B, B<>1
Вывод
данных и
Функция FK
Цикл
IF
IF (B == 1) THEN
Z = A + B * FK(K + 2)
ELSE
A>=B и B=1
A<B и
A<
2X,' A = ',F3.0,' B = ',F3.0, &
' K = ',I2/' РЕЗУЛЬТАТ Z=',F3.0)
PRINT *, '------------------------'
END
результата
вычисления факториала FK = M!
REA
NCTION FK(M)
:: P
GER :: M,I
2, M
END FUNCTION
! Функция вычисл. макс
REAL FUNCTION ZMAX
REAL :: X,Y,
R = X
IF (Y > R) R = Y
ZMAX = R
п ZMAX П/
41
    READ(*,*) A,B,K                         данных
    IF(A < B) THEN
       IF(B > 0) THEN                       A0
          Z = ZMAX(A, FK(K))
          Z = ZMAX(A, B*Z)
       ELSE                                 A=B и B=1
          Z = A + B * FK(K + 2)
       ELSE                                 A>=B, B<>1
          Z = A * B - FK(K**2)
       END IF
    END IF

    PRINT 3, A,B,K,Z                        Вывод
3   FORMAT(2X,' ИСХОДНЫЕ ДАННЫЕ '/      &   данных и
      2X,' A = ',F3.0,' B = ',F3.0,    &    результата
      ' K = ',I2/' РЕЗУЛЬТАТ Z=',F3.0)
    PRINT *, '------------------------'

END

! Функция вычисления факториала FK = M!
   REAL FUNCTION FK(M)                      Функция FK
      REAL :: P
      INTEGER :: M,I
      P = 1
      DO I = 2, M                           Цикл
         P = P * I
      ENDDO
      FK = P
   END FUNCTION

! Функция вычисл. максимума 2х чисел        П/п ZMAX
   REAL FUNCTION ZMAX(X,Y)
      REAL :: X,Y,R
      R = X
      IF (Y > R) R = Y
      ZMAX = R


                          41

Страницы