Практикум по программированию на языке Turbo Pascal. Часть 1. Портнягина В.В - 39 стр.

UptoLike

ВУЗ: 

КамчатГТУ | Петропавловск-Камчатский

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

Рубрика: 

–
«условие» – это выражение логического типа, которое может прини-
мать одно из двух значений: TRUE (истина – условие выполняется) или
FALSE (ложь – условие не выполняется);
–
при помощи логических операций AND (логическое «и») и OR (логи-
ческое «или») из простых условий можно строить сложные.
2. Условный оператор IF ... THEN
Условный оператор имеет две формы записи: полную и сокращенную.
2.1. Полная форма записи оператора IF
IF «условие» THEN < оператор 1 > ELSE < оператор 2 >.
В этом случае при истинности логического «условия» выполняется
< оператор 1 >, в противном случае выполняется < оператор 2 >.
Внимание! Перед словом ELSE нельзя ставить точку с запятой.
Схематично этот случай изображается следующим образом:
Рис. 9. Полная форма оператора ветвления
Задача 1
Вычислить max (X + Y + Z, XYZ), вывести на экран значение большего
вычисленного числа.
Program Lab3_1;
Uses Crt;
Var X, Y, Z: integer;
max: integer;
Begin
WriteLn('Введите X, Y, Z');
If Х + Y + Z > X*Y*Z
then max: = X + Y + Z
Else max: = X*Y*Z;
WriteLn ('большее число = ', max);
End.
39
    – «условие» – это выражение логического типа, которое может прини-
мать одно из двух значений: TRUE (истина – условие выполняется) или
FALSE (ложь – условие не выполняется);
    – при помощи логических операций AND (логическое «и») и OR (логи-
ческое «или») из простых условий можно строить сложные.

    2. Условный оператор IF ... THEN
    Условный оператор имеет две формы записи: полную и сокращенную.

    2.1. Полная форма записи оператора IF
    IF «условие» THEN < оператор 1 > ELSE < оператор 2 >.
    В этом случае при истинности логического «условия» выполняется
< оператор 1 >, в противном случае выполняется < оператор 2 >.
    Внимание! Перед словом ELSE нельзя ставить точку с запятой.
    Схематично этот случай изображается следующим образом:




                 Рис. 9. Полная форма оператора ветвления


    Задача 1
    Вычислить max (X + Y + Z, XYZ), вывести на экран значение большего
вычисленного числа.
    Program Lab3_1;
    Uses Crt;
      Var X, Y, Z: integer;
              max: integer;
      Begin
       WriteLn('Введите X, Y, Z');
                   If Х + Y + Z > X*Y*Z
                        then max: = X + Y + Z
                        Else max: = X*Y*Z;
      WriteLn ('большее число = ', max);
    End.


                                    39

Страницы