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

UptoLike

ВУЗ: 

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

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

Рубрика: 

34
Рис. 2.5
PROGRAM PR9;
VAR
X,Y: REAL;
BEGIN
WRITE(‘ Введите Х = ‘);
READLN(X);
IF X< 2 THEN Y:=X
ELSE
IF X<3 THEN Y:=2
ELSE Y:= -X+5;
WRITE(‘ Ответ Y = ‘,Y:8:3)
END.
Пример 10.
Определить, принадлежит ли точка с координатами Х,Y прямоугольнику с координа-
тами X
1
,X
2,
X
3,
X
5
и Y
1,
Y
2,
Y
3,
Y
5.
(рис. 2.6).
Решение. Точка принадлежит прямоугольнику, если координаты имеют значение
(X >= X
1
и X<=X
5
)
и (
Y >= Y
1
и Y<= Y
5
)
2
.
6
Так как при проекции на ось X координат прямоугольника имеем X
1
= X
3
, X
2
= X
5
и
при проекции на ось Y имеем Y
1
= Y
2
и Y
3
= Y
5.
Поэтому достаточно ввести координаты X
1
и
X
5 ,
Y
1
и Y
5
PROGRAM PR10;
VAR
X,Y,X1,X5,Y1,Y5:REAL;
BEGIN
WRITE(‘ Координаты точки А (X,Y) ‘);
READLN(X,Y);
WRITE(‘Координаты прямоугольника X1,X5,Y1,Y5’);
READLN(X1,X5,Y1,Y5);
IF (X>=X1) AND (X<=X5) AND (Y>=Y1) AND (Y<=Y5)
THEN WRITELN(‘ Точка принадлежит прямоугольнику’)
ELSE WRITELN(‘ Точка не принадлежит прямоугольнику’);
END.
Пример 11.
Пусть значение Y зависит от значения Х, график зависимости приведен на рис. 2.7.
Решение.
Для того чтобы определить значения функции Y(х) необходимо разделить ее на части
Y1, Y2, Y3. Для этого воспользуемся известными формулами, которые описывают уравнение
данного типа.
Для создания про-
граммы определим
уравнения для
У1,У2.У3.
У1=Х;
У2=2;
У3= - Х+5. 
                                    Для создания про-
                                    граммы определим
                                    уравнения для
                                    У1,У2.У3.
                                        У1=Х;
                                        У2=2;
     Рис. 2.5                           У3= - Х+5.

   PROGRAM PR9;
    VAR
     X,Y: REAL;
   BEGIN
    WRITE(‘ Введите Х = ‘);
    READLN(X);
     IF X< 2 THEN Y:=X
              ELSE
     IF X<3 THEN Y:=2
              ELSE Y:= -X+5;
    WRITE(‘ Ответ Y = ‘,Y:8:3)
   END.
     Пример 10.
     Определить, принадлежит ли точка с координатами Х,Y прямоугольнику с координа-
тами X1,X2,X 3,X 5 и Y1,Y2,Y3,Y5. (рис. 2.6).
     Решение. Точка принадлежит прямоугольнику, если координаты имеют значение
     (X >= X1 и X<=X5 ) и ( Y >= Y1 и Y<= Y5 )




                   2. 6

      Так как при проекции на ось X координат прямоугольника имеем X1 = X3 , X2 = X5 и
при проекции на ось Y имеем Y1 = Y2 и Y3 = Y5. Поэтому достаточно ввести координаты X1 и
X5 , Y1 и Y5

 PROGRAM PR10;
VAR
  X,Y,X1,X5,Y1,Y5:REAL;
 BEGIN
  WRITE(‘ Координаты точки А (X,Y) ‘);
  READLN(X,Y);
  WRITE(‘Координаты прямоугольника X1,X5,Y1,Y5’);
  READLN(X1,X5,Y1,Y5);
   IF (X>=X1) AND (X<=X5) AND (Y>=Y1) AND (Y<=Y5)
     THEN WRITELN(‘ Точка принадлежит прямоугольнику’)
     ELSE WRITELN(‘ Точка не принадлежит прямоугольнику’);
 END.
      Пример 11.
      Пусть значение Y зависит от значения Х, график зависимости приведен на рис. 2.7.
      Решение.
      Для того чтобы определить значения функции Y(х) необходимо разделить ее на части
Y1, Y2, Y3. Для этого воспользуемся известными формулами, которые описывают уравнение
данного типа.

                                                                                      34

Страницы