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

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

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

Рубрика: 

33
Рис. 2.4
Решение. Определим расстояние от точки А до начала координат
d= xy
22
+ .
Очевидно, что точка А будет находится внутри кольца, если d будет меньше R2 и больше R.
R<= d < =R2
PROGRAM PR8;
VAR
X,Y,R1,R2: REAL;
BEGIN
WRITE(‘Введите значения R и R2’);
READLN(R,R2);
WRITE(‘Введите значения X и Y’);
READLN(X,Y);
d:=sqrt(x*x+y*y);
IF (d>= R) and (d<= R2)
THEN WRITELN(‘ Точка попадает ‘)
ELSE WRITELN(‘ Точка не попадает ‘);
END.
Пример 9.
Вычиcлить функцию y=f (x). Представленную на рис. 2.5.
Комментарий: если удовлетворено условие Х<2, то Y получит значение, равное Х, и
это значение затем будет выведено. Если условие Х<2 не удовлетворяется, то значение Y
будет определено выполнением условного оператора
if x<3 then y:=2
else y:= -x+5
У
_ 3
_
У2
_ 2
_ У1 У3
_ 1
_
1 2 3 4 5 Х
| | | | | | | | | | |
        Рис. 2.4

Решение. Определим расстояние от точки А до начала координат
       d= x 2 + y 2 .
Очевидно, что точка А будет находится внутри кольца, если d будет меньше R2 и больше R.
    R<= d < =R2

   PROGRAM PR8;
    VAR
    X,Y,R1,R2: REAL;
   BEGIN
    WRITE(‘Введите значения R и R2’);
    READLN(R,R2);
    WRITE(‘Введите значения X и Y’);
    READLN(X,Y);
      d:=sqrt(x*x+y*y);
       IF (d>= R) and (d<= R2)
        THEN WRITELN(‘ Точка попадает ‘)
        ELSE WRITELN(‘ Точка не попадает ‘);
    END.
    Пример 9.
     Вычиcлить функцию y=f (x). Представленную на рис. 2.5.
    Комментарий: если удовлетворено условие Х<2, то Y получит значение, равное Х, и
   это значение затем будет выведено. Если условие Х<2 не удовлетворяется, то значение Y
   будет определено выполнением условного оператора
    if x<3 then y:=2
            else y:= -x+5

           У


       _3

       _
                       У2
       _2

       _       У1               У3

       _1

       _
                 1   2      3   4   5       Х
               | | | | |    | | | | |   |




                                                                                      33

Страницы