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

UptoLike

2.2. Сокращенная форма записи оператора IF
Допускается опускать служебное слово ELSE:
IF < условие > THEN < оператор 1 >;
Альтернативная конструкция отсутствует и заменена точкой с запятой,
т. е. если логическое «условие» ложно, то ничто не выполняется; если логиче-
ское «условие» истинно, то выполняется < оператор 1 >.
Схематично этот случай изображается так:
Рис. 10. Сокращенная форма оператора ветвления
Задача 2
Вычислить значение функции f(x) в зависимости от значения аргумента Х.
Условие задачи представлено на рис. 11.
Рис. 11. Схематичное изображение задачи 2
Решение будет следующим:
Program Lab3_2;
Uses Crt;
Var X,Y: real;
Begin
ClrScr;
WriteLn('Введите x');
Read(x);
40
    2.2. Сокращенная форма записи оператора IF
    Допускается опускать служебное слово ELSE:
                    IF < условие > THEN < оператор 1 >;
      Альтернативная конструкция отсутствует и заменена точкой с запятой,
т. е. если логическое «условие» ложно, то ничто не выполняется; если логиче-
ское «условие» истинно, то выполняется < оператор 1 >.
      Схематично этот случай изображается так:




                Рис. 10. Сокращенная форма оператора ветвления



    Задача 2
    Вычислить значение функции f(x) в зависимости от значения аргумента Х.
Условие задачи представлено на рис. 11.




                   Рис. 11. Схематичное изображение задачи 2

    Решение будет следующим:
    Program Lab3_2;
    Uses Crt;
    Var X,Y: real;
    Begin
      ClrScr;
      WriteLn('Введите x');
        Read(x);

                                      40