<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadAllText('input.txt').ToIntegers;
a.Println
end.
<h2 /><h2>Во втором вложении файл input.txt</h2>
Разбиваем заштрихованную область на контуры, ограниченные линиями, уравнения которых мы можем написать. Считаем, что сами линии (границы области) тоже входят в нее. Если это не так, все неравенства, указанные ниже, должны быть строгими.
В I четверти:
Контур - окружность. Уравнение окружности x² + y² = r².
Из графика видно, что r = 6, поэтому все, что лежит внутри круга и на нем, удовлетворяет уравнению x² + y² ≤ 6² или x² + y² ≤ 36
Принадлежность I четверти определяется условием (x ≥ 0) и (y ≥ 0).
Получаем логическое выражение (x² + y² ≤ 36) ∧ (x ≥ 0) ∧ (y ≥ 0)
В IV четверти:
Контур - прямоугольный треугольник. В соответствии с графиком уравнение его гипотенузы y = x - 6.
Принадлежность IV четверти определяется условием (x ≥ 0) и (y ≤ 0).
Получаем логическое выражение (y ≥ x - 6) ∧ (x ≥ 0) ∧ (y ≤ 0)
Точка, принадлежащая заштрихованной области или её контуру, может находиться в одной из рассмотренных выше четвертей, поэтому полученные логические выражения объединяем через ИЛИ:
[(x² + y² ≤ 36) ∧ (x ≥ 0) ∧ (y ≥ 0)] ∨ [(y ≥ x - 6) ∧ (x ≥ 0) ∧ (y ≤ 0)]
Сделаем упрощение:
(x ≥ 0) ∧ { [ (x² + y² ≤ 36) ∧ (y ≥ 0) ] ∨ [ (y ≥ x - 6) ∧ (y ≤ 0) ] }
С учетом старшинства логических операций можно часть скобок опустить
(x ≥ 0) ∧ [ (x² + y² ≤ 36) ∧ (y ≥ 0) ∨ (y ≥ x - 6) ∧ (y ≤ 0) ]
В языке Паскаль это выражение запишется так:
(x>=0) and ((x*x+y*y<=36) and (y>=0) or (y>=x-6) and (y<=0))
Теперь несложно написать саму программу.
<em>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (x,y):=ReadReal2('Введите через пробел x и y:');
Writeln((x>=0) and ((x*x+y*y<=36) and (y>=0) or (y>=x-6) and (y<=0)))
end.
<u>Примеры</u>
Введите через пробел x и y: 3 2.5
True
Введите через пробел x и y: 6 0
True
Введите через пробел x и y: 5.8 3
False
Введите через пробел x и y: 3 -2
True
Введите через пробел x и y: 4 -3
False
Program n1;
var a: real;
begin
readln(a);
if a>10 then write(a)
else if a<3 then write(a+11)
else writeln(a-100);
end.
Var
i, x, y: integer;
a: array[1..30]of integer;
begin
readln(x, y);
for i := 1 to 30 do read(a[i]);
for i := 1 to 30 do
if (i mod 2 = 0) and (a[i] >= x) and (a[i] <= y) then
begin
write('YES');
exit;
end;
write('NO');
end.
Апрель май июнь июль значит май