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

UptoLike

ВУЗ: 

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

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

Рубрика: 

END FUNCTION
Результаты работы прогр
аммы ниже (п. 5).
вия для краткости п о
и диняя несколько условий,
н
Примечания. 1. При проверке усло рограммы можн
спользовать логические связки (AND, OR, NOT), объе
апример:
IF (A < B .AND. B > 0) THEN
енностью используемой обо2. В связи с особ
предыдущего
лочки при выполнении програм-
м выполнения пропадает.
ная функция MAX (и MIN,
можно пред
ы результат
3. На Фортране имеется стандарт
Таким образом, выражение max(
табл. 6.1).
ставить в виде A,B·max(A,K!))
B* MAX(A, FK(K)) Z = MAX(A,
Н ке задачи («Выч
ш
4. Листинг Basic-программы
о тогда это не будет соответствовать постанов
ить в виде функции»).
исление наиболь-
его значения оформ
Код исходного модуля Пояснения
' Лабораторная работа 2 О
' Петров А.Н. М-11
' Подпрограмма FUNCTION
INPUT " Введите А,В,К "; A, B, K
)
Z)
K(2 * K)
EN
FK(K + 2)
ДАННЫЕ "
B; " K = "; K
--------------"
программа
Ввод данных
A
A<B и B<=0
A>=B и B=1
A>=B и B<>1
Вывод
данных и
результата
IF A < B THEN
IF B > 0 THEN
FK(K) Z = ZMAX(A,
Z = ZMAX(A, B *
ELSE
Z = B - A * F
END IF
ELSE
IF B = 1 TH
Z = A + B *
ELSE
Z = A * B - FK(K ^ 2)
END IF
END IF
"ИСХОДНЫЕPRINT TAB(3);
PRINT "A = "; A; "B = ";
ЕЗУЛЬТАТ Z = ## "; Z PRINT USING " Р
PRINT "----------
сновная
<B и B>0
42
     END FUNCTION
    Результаты работы программы ниже (п. 5).
    П р и м е ч а н и я . 1. При проверке условия для краткости программы можно
использовать логические связки (AND, OR, NOT), объединяя несколько условий,
например:
     IF (A < B .AND. B > 0) THEN
    2. В связи с особенностью используемой оболочки при выполнении програм-
мы результат предыдущего выполнения пропадает.
    3. На Фортране имеется стандартная функция MAX (и MIN, табл. 6.1).
    Таким образом, выражение max(A,B·max(A,K!)) можно представить в виде
 Z = MAX(A, B* MAX(A, FK(K))
Но тогда это не будет соответствовать постановке задачи («Вычисление наиболь-
шего значения оформить в виде функции»).

                     4. Листинг Basic-программы

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

 INPUT " Введите А,В,К "; 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    TAB(3); "ИСХОДНЫЕ ДАННЫЕ "                        Вывод
 PRINT    "A = "; A; "B = "; B; " K = "; K                  данных и
 PRINT    USING " РЕЗУЛЬТАТ Z = ## "; Z                     результата
 PRINT    "------------------------"


                                      42

Страницы