Pascal. Составить программу, которая печатает true, если точка с координатами (х,у) принадлежит заштрихованной области
Answers & Comments
redra1n
Область может быть описана как совокупность двух отдельных областей.
var x, y: real; p, q: boolean;
begin Write('Введите через пробел координаты x,y: '); Readln(x, y); p := (x >= 0) and (y >= 0) and (sqr(x) + sqr(y) <= 25); q := (x >= -5) and (x<=0) and (abs(y) <= x + 5); Writeln(p or q) end.
Answers & Comments
var
x, y: real;
p, q: boolean;
begin
Write('Введите через пробел координаты x,y: ');
Readln(x, y);
p := (x >= 0) and (y >= 0) and (sqr(x) + sqr(y) <= 25);
q := (x >= -5) and (x<=0) and (abs(y) <= x + 5);
Writeln(p or q)
end.
Примеры выполнения программы:
Введите через пробел координаты x,y: -2 1
True
Введите через пробел координаты x,y: -4 2
False
Введите через пробел координаты x,y: 3 3
True
Введите через пробел координаты x,y: 6 3
False