Паскаль в примерах. Иринчеев А.А - 27 стр.

                                  2.3. Стандартные функции

      При составлении программы часто используются стандартные функции. Рассмотрим их
использование.
      Пример1. Даны числа х и a. Определить стандартные функции.
      PROGRAM PR2;
       VAR
        X,A,Y1,Y2,Y3,Y4,Y5,Y6:REAL;
      BEGIN
         WRITE(‘ Введите Х и А’):
         READLN(X,A);
         Y1:=COS(X);
         Y2:=SIN(X);
         Y3:=Y2/Y1;
         Y4:=EXP(X);
         Y5:=LN(X);
         Y6:=EXP(X*LN(A));
      WRITELN(‘ Ответ cos(x) = ‘,Y1:8:3,’ радиан’);
      WRITELN(‘ Ответ sin(x) = ‘,Y2:8:3,’ радиан’);
      WRITELN(‘ Ответ tg(x) = ‘,Y3:8:3,’ радиан’);
      WRITELN(‘ Ответ еx = ‘,Y4:8:3);
      WRITELN(‘ Ответ Ln(x) = ‘, Y5:8:3);
      WRITELN(‘ Ответ ax = ‘,Y6:8:3);
      END.
      Пример2. Дано: а и b - два неотрицательных числа и b≠0. Определить частное и оста-
ток, возникающий при делении а на b с остатком.
      17 div 3 = 5,
      8 div 2 = 4,
      1 div 5 = 0,
      17 mod 3 = 2,
      8 mod 2 = 0,
      1 mod 5 = 1.


    Пример 3. Дано действительное число А. Определить - число А четное или нечетное.
    Воспользуемся стандартной функцией ODD, возвращающей значение логического типа
TRUE или FALSE.

      PROGRAM PR16;
       VAR
        а: INTEGER;
        c:boolean;
          BEGIN
          WRITE(‘Введите число А ‘);
           READLN(a);
            c:=odd(а);
            WRITELN(с);
          END.

                                 2.4. Трассировка программы



                                                                                      27