Лекция: Программа 5.4

(*ПРИНАДЛЕЖНОСТЬ ТОЧКИ ПРЯМОУГОЛЬНИКУ*)

PROGRAM A37;

VAR

X1,X2,Y1,Y2:REAL; (* КООРДИНАТЫ ПРЯМОУГ-КА *)

X,Y:REAL; (* КООРДИНАТЫ ТОЧКИ *)

BEGIN

WRITELN('ВВЕДИТЕ КООРДИНАТЫ X1,X2,Y1,Y2');

READLN(XI,X2,Y1,Y2);

WRITELN('ВВЕДИТЕ КООРДИНАТЫ ТОЧКИ X,Y: ' );

READLN(X,Y);

IF (X>=X1 ) AND (X<=X2) AND (Y>=Y1 ) AND (Y<=Y2)

THEN WRITE(‘ТОЧKA ПРИНАДЛЕЖИТ ПРЯМОУГОЛЬНИКУ ')

ELSE WRITE('TOЧKA HE ПРИНАДЛЕЖИТ ПРЯМОУГОЛЬНИКУ ‘);

END.

Пример 5.7.Составить программу предыдущей задачи о принадлежности точки прямоугольнику с дополнительным условием: в комментариях программы указать схему прямоугольника, используя символы клавиатуры (см. приложения 1 и 2). Обратите внимание на то, что это не точный чертеж, а схема. Чертеж можно выполнить, используя специальный графический дисплей.

Программа 5.5

ПРИНАДЛЕЖНОСТЬ ТОЧКИ ПРЯМОУГОЛЬНИКУ

PROGRAM A39;

VAR

X1,X2,Y1,YZ:REAL; (* КООРДИНАТЫ ПРЯМОУГ'КА *)

X,Y:REAL; (* КООРДИНАТЫ ТОЧКИ*)

BEGIN

WRITELN (‘Введите координаты X1, X2, Y1, Y2’);

READLN (X1,X2,Y1,Y2);

WRITELN (‘Введите координаты точки X, Y’)

READLN (X,Y);

IF ( X> = X1 )AND(X<=X2 )AND( Y> = Y1 )AND( Y< = Y2 )

THEN WRITELN(‘ТОЧKA ПРИНАДЛЕЖИТ ПРЯМОУГОЛЬНИКУ’)

ELSE WRITELN ('ТОЧКА НЕ ПРИНАДЛЕЖИТ ПРЯМОУГОЛЬНИКУ’)

END.

Пример 5.8. Составить программу предыдущей задачи о принадлежности точки прямоугольнику с дополнительным условием: схема прямоугольника должна быть отражена не только в программе, но и в результатах выполнения программы. Схема прямоугольника здесь указывается последовательно в операторах вывода WRITELN.

Программа 5.6

ПРИНАДЛЕЖНОСТЬ ТОЧКИ ПРЯМОУГОЛЬНИКУ

PROGRAM A40;

VAR

X1,X2,Y1,Y2:REAL; (* КООРДИНАТЫ ПРЯМОУГ-КА *)

X,Y:REAL; (* КООРДИНАТЫ ТОЧКИ *)

BEGIN

WRITELN(' ПРЯМОУГОЛЬНИК С КООРДИНАТАМИ X,Y ‘);

WRITELN('! ‘);

WRITELN(' Y2! — ‘);

WRITELN(‘! | | ‘);

WRITELN(‘ ! | | ‘);