Определить, что точка лежит лежит внутри прямоугольника или на одной из его сторон - Turbo Pascal

  1. составит программу печатающую значение TRUE если указанное высказывание является истинным, и FALSE в противном случае: (x1,y1) и (x2,у2)-координаты левой верхней и правой нижней вершин прямоугольника ;точка А (х,у)лежит внутри лежит внутри этого прямоугольника или на одной из его сторон


textual

Код:

Var
  x1,y1,x2,y2,x,y: Integer;
BEGIN
Write('Введите координаты левой верхней вершины прямоугольника: ');
Readln(x1,y1);
Write('Введите координаты правой нижней вершины прямоугольника: ');
Readln(x2,y2);
If (x1<x2) and (y1>y2) Then
begin
  Write('Введите координаты точки A: ');
  Readln(x,y);
  Writeln((x>=x1) and (x<=x2) and (y<=y1) and (y>=y2));
end
Else
Writeln('Неверный ввод. Точка [',x2,';',y2,'] не является правой нижней вершиной');
Readln
END.


Похожие ответы
  1. Каждая из трех доярок надоила за год (365 дней) R1, R2,R3 литров молока. Определить, у какой доярки наибольший среднесуточный надой молока и вывести на экран ее номер.

  1. Круг вписан в квадрат со стороной А. Определить, превышает ли площадь круга заданную величину Х и вывести сообщение на экран.

  1. Здравствуйте) Помогите пожалуйста определиться, что конкретно нужно сделать в задаче: Записать указанное действие в виде одного условного оператора: arcsin(1+ln x)=a, если такой существует. Я само условие не могу понять Как должна работать программа (у меня пока два варианта):Вводятся (с клавиатуры) a и x, в условном операторе проверяется равенство и выводится соответственно true или false Вводится x (с клавиатуры) и если x>0 вычисляется a, иначе сообщение, что a невозможно вычислить (из-за отрицательного значения в логарифме) Какой вариант решения выбрать? Или меня совсем не в ту степь понесло?

  1. Как мы знаем, Владимир периодически посещает плавательный бассейн. При взгляде сверху бассейн представляет собой прямоугольник размера W × H; его юго-западный угол имеет координаты (0; 0), северо-восточный — (W; H). Владимир находился в точке с координатами (X; Y), когда прозвенел звонок, оповещающий об окончании сеанса. Теперь Владимиру нужно плыть к ближайшему бортику, чтобы выйти из бассейна. Помогите ему определить, в какую сторону следует плыть. Входные данные Первая строка содержит целые числа W и H (1 ≤ W, H ≤ 100) — соответственно длину и ширину бассейна. Первая строка содержит целые числа X и Y (0 ≤ X ≤ W, 0 ≤ Y ≤ H) — координаты точки, в которой находится Владимир. Выходные данные Выведите один из символов 'N' (север), 'E' (восток), 'S' (юг), 'W' (запад), соответствующий направлению до ближайшего бортика. Если подходящих ответов несколько, выведите любой из них.

  1. Создать текстовый файл, в который записать в столбик несколько чисел (<20). Составить программу, которая подсчитывала бы количество чисел в файле, а затем дописывала бы в его конец столько случайных чисел, чтобы всего чисел оказалось 20. Кроме того, программа должна найти минимальное и максимальное число в полученном файле.

  1. помогите пожалуйста написать программу,которая найдет все натуральные числа,меньше чем MAXINT, такие ,что они равны сумме факториалов цифр,из которых состоят. пример: 145=1!+4!+5!

  1. дана функция, которая находит максимальный элемент матрицы, в основном теле ползователь рандомом задает 2 матрицы, как сделать так, чтобы программа находила разность между максимальными этих 2 матриц и выводила на экран

  1. написать две программы чтобы в конце программ выдалось это изображение $ и ромб

  1. Дан двумерный массив размером МxN заполненный случайным образом. Определите, есть ли в данном массиве столбец, в котором все элементы четны и положительны

  1. Что такое метод концевого значения? (типизированный файл)Задание. Средствами текстового редактора создать файл. Каждые 5 строк текстового файла содержат соответственно название издательства, фамилию автора, название книги, величину тиража и пустую строку. Программным образом вывести содержимое этого файла на экран, расположив в каждой строке экрана название издательства, фамилию автора, название книги и величину тиража. Создать первую процедуру с параметрами, в которой каждые 4 строки текстового файла в виде записи с четырьмя полями размещаются в типизированный файл (5-7 компонентов). Создать вторую процедуру с параметрами для вывода содержимого типизированного файла на экран. С клавиатуры добавить в типизированный файл запись (записи), используя метод "концевого значения". Определить писателей, книги которых напечатаны наибольшим тиражом. Их фамилии занести в конец текстового файла в отдельные строки. Вывести содержимое текстового файла на экран. Далее содержимое каждых четырёх строк, содержащих информацию об одном авторе, занести в строковую переменную. В полученной строке поменять местами фамилию и тираж, и разместить между всеми словами по 3 пробела. Распечатать исходные и преобразованные строки. Дополнительных массивов не использовать.