1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
| program Zadanie84;
var
a,b: real; // Переменные для хранения значения координат правой верхней точки квадрата.
C: real; // Переменная для хранения значения стороны квадрата.
px,py: real; // Переменные для хранения значений координат проверяемой точки.
p1a,p1b: real; // Переменные для хранения значений координат верхней левой точки квадрата.
p2a,p2b: real; // Переменные для хранения значений координат нижней правой точки квадрата.
p3a,p3b: real; // Переменные для хранения значений координат нижней левой точки квадрата.
f: text; // Файловая переменная.
str: string; // Переменная для хранения имени файла.
begin
str:='output.txt';
assign(f,str); // Связывание файловой переменной с именем файла.
rewrite(f); // Создание файла или его очищение.
writeln('Введите координаты правой верхней точки квадрата (a,b):');
Readln(a,b);
writeln('Введите значение размера стороны квадрата С:');
Readln(c);
writeln('Введите координаты точки, которую нужно проверить ');
writeln('на принадлежность к квадрату (X,Y):');
Readln(px,py);
writeln('Координаты верхней правой точки квадрата (',a:0:2,',',b:0:2,')');
writeln(f,'Координаты верхней правой точки квадрата (',a:0:2,',',b:0:2,')');
p1a:= a - c;
p1b:= b;
writeln('Координаты верхней левой точки квадрата (',p1a:0:2,',',p1b:0:2,')');
writeln(f,'Координаты верхней левой точки квадрата (',p1a:0:2,',',p1b:0:2,')');
p2a:= a;
p2b:= b - c;
writeln('Координаты нижней правой точки квадрата (',p2a:0:2,',',p2b:0:2,')');
writeln(f,'Координаты нижней правой точки квадрата (',p2a:0:2,',',p2b:0:2,')');
p3a:= a - c;
p3b:= b - c;
writeln('Координаты нижней левой точки квадрата (',p3a:0:2,',',p3b:0:2,')');
writeln(f,'Координаты нижней левой точки квадрата (',p3a:0:2,',',p3b:0:2,')');
// Проверка на вхождение в квадрат введенной точки.
if (px < a) and (px > a-c) and (py < b) and (py > b-c) then
begin
writeln('Точка с координатами (',px:0:2,',',py:0:2,') принадлежит квадрату.');
writeln(f,'Точка с координатами (',px:0:2,',',py:0:2,') принадлежит квадрату.');
end
else
begin
writeln('Точка с координатами (',px:0:2,',',py:0:2,') не принадлежит квадрату.');
writeln(f,'Точка с координатами (',px:0:2,',',py:0:2,') не принадлежит квадрату.');
end;
Close(f);
readln;
end. |
(
Сообщение было отмечено alinokids как решение
