Насколько я понял, четвёртая функция должна быть f4(x) =cos(x). Видимо там опечатка (вместо икс записан игрек). Скорее всего так, а иначе не получится область между этими функциями.
То есть, все четыре уравнения выглядят так:
x = 0.5
x = 3.5
y = sin(x)
y = cos(x)
Решить можно например так (проверял в PascalABCNET):
begin
var x := ReadReal('x=');
var y := ReadReal('y=');
if (x>=0.5) and (x<=3.5) and (y>=Min(Sin(x),Cos(x))) and (y<=Max(Sin(x),Cos(x)))
then write('принадлежит')
else write('не принадлежит');
end.
Объяснение:
А вообще, для таких заданий я сначала рисую графики всех заданных функций в любой удобной графической программе (например см. первую приложенную внизу картинку). Это чтобы понять, что вообще за область- какой формы и как и чем ограничена.
А уже потом составляю алгоритм, определяющий попала ли точка в заданную область. Алгоритм я составляю внутри моей специально написанной для таких заданий программки (на PascalABCNET). Эта программка рисует область (заданную алгоритмом) в окне, что позволяет сразу визуально оценить, всё ли правильно задано, и нет ли пропущенных областей (это иногда бывает в непродуманных нагромождениях if-then-else -для некоторые точки может просто пропустить, без вывода ответа, либо с неверным).
Когда алгоритм составлен, переношу его в простую программу, которая (как и требуется обычно в таких заданиях) запрашивает координаты точки и сообщает, попадает ли она в область.
Вот, собственно моя программка, отрисовывающая в окне область, заданную алгоритмом (результат работы программы см. на второй приложенной внизу картинке):
uses GraphABC;
begin
var x, y: real;
var a, b, c: integer;
SetWindowPos(15, 56);
SetWindowSize(801, 801); // квадратное окно (по 400 пикселей в плюс и минус и один пиксель для нуля)
LockDrawing; // повысим скорость, отключив вывод на экран (рисование будет идти только во внеэкранном буфере)
for a := 0 to 801 do // два цикла (по x и y) перебирают все точки окна
begin
x := (a - 401) / 50; // пересчёт из пикселей в координаты (масштаб задан тут)
for b := 0 to 801 do
begin
y := (b - 401) / 50;
c:=2; // точки будут выделены красным цветом, если их пропустит основной алгоритм (ниже)
// тут располагаем основной алгоритм (любое нагромождение if-then-else и других условий или просто одну строку, как сейчас)
// алгоритм должен записать в переменную c единицу (если нужно ставить точку), либо ноль (если не нужно)
c := ( (x>=0.5) and (x<=3.5) and (y>=Min(Sin(x),Cos(x))) and (y<=Max(Sin(x),Cos(x))) ) ? 1 : 0; // условная операция (вместо if-then-else)
if c=1 then // если алгоритм присвоил единицу переменной c, то ставим чёрную точку
SetPixel(Round(401 + x * 50), Round(401 - y * 50), clBlack);
if c=2 then // если алгоритм не изменил значение переменной c, то ставим красную точку
SetPixel(Round(401 + x * 50), Round(401 - y * 50), clRed);
end;
end;
Pen.Color := clBlue; // рисуем оси
Line(0, 401, 801, 401);
Line(401, 0, 401, 801);
Redraw; // обновляем кадр (вывод внеэкранного буфера на экран)
Насколько я понял, четвёртая функция должна быть f4(x) =cos(x). Видимо там опечатка (вместо икс записан игрек). Скорее всего так, а иначе не получится область между этими функциями.
То есть, все четыре уравнения выглядят так:
x = 0.5
x = 3.5
y = sin(x)
y = cos(x)
Решить можно например так (проверял в PascalABCNET):
begin
var x := ReadReal('x=');
var y := ReadReal('y=');
if (x>=0.5) and (x<=3.5) and (y>=Min(Sin(x),Cos(x))) and (y<=Max(Sin(x),Cos(x)))
then write('принадлежит')
else write('не принадлежит');
end.
Объяснение:
А вообще, для таких заданий я сначала рисую графики всех заданных функций в любой удобной графической программе (например см. первую приложенную внизу картинку). Это чтобы понять, что вообще за область- какой формы и как и чем ограничена.
А уже потом составляю алгоритм, определяющий попала ли точка в заданную область. Алгоритм я составляю внутри моей специально написанной для таких заданий программки (на PascalABCNET). Эта программка рисует область (заданную алгоритмом) в окне, что позволяет сразу визуально оценить, всё ли правильно задано, и нет ли пропущенных областей (это иногда бывает в непродуманных нагромождениях if-then-else -для некоторые точки может просто пропустить, без вывода ответа, либо с неверным).
Когда алгоритм составлен, переношу его в простую программу, которая (как и требуется обычно в таких заданиях) запрашивает координаты точки и сообщает, попадает ли она в область.
Вот, собственно моя программка, отрисовывающая в окне область, заданную алгоритмом (результат работы программы см. на второй приложенной внизу картинке):
uses GraphABC;
begin
var x, y: real;
var a, b, c: integer;
SetWindowPos(15, 56);
SetWindowSize(801, 801); // квадратное окно (по 400 пикселей в плюс и минус и один пиксель для нуля)
LockDrawing; // повысим скорость, отключив вывод на экран (рисование будет идти только во внеэкранном буфере)
for a := 0 to 801 do // два цикла (по x и y) перебирают все точки окна
begin
x := (a - 401) / 50; // пересчёт из пикселей в координаты (масштаб задан тут)
for b := 0 to 801 do
begin
y := (b - 401) / 50;
c:=2; // точки будут выделены красным цветом, если их пропустит основной алгоритм (ниже)
// тут располагаем основной алгоритм (любое нагромождение if-then-else и других условий или просто одну строку, как сейчас)
// алгоритм должен записать в переменную c единицу (если нужно ставить точку), либо ноль (если не нужно)
c := ( (x>=0.5) and (x<=3.5) and (y>=Min(Sin(x),Cos(x))) and (y<=Max(Sin(x),Cos(x))) ) ? 1 : 0; // условная операция (вместо if-then-else)
if c=1 then // если алгоритм присвоил единицу переменной c, то ставим чёрную точку
SetPixel(Round(401 + x * 50), Round(401 - y * 50), clBlack);
if c=2 then // если алгоритм не изменил значение переменной c, то ставим красную точку
SetPixel(Round(401 + x * 50), Round(401 - y * 50), clRed);
end;
end;
Pen.Color := clBlue; // рисуем оси
Line(0, 401, 801, 401);
Line(401, 0, 401, 801);
Redraw; // обновляем кадр (вывод внеэкранного буфера на экран)
end.
a – число десятков тысяч (первая цифра): n // 10000
b – число тысяч (вторая цифра): n % 10000 // 1000
c – число сотен (третья цифра): n % 1000 // 100
d – число десятков (четвертая цифра): n % 100 // 10
e – число единиц (пятая цифра): n % 10
Объяснение:
n %
- оставляет k знаков.
n //
- оставляет все начиная с k+1 знака
n % 10 - остаток от деления на 10. Например: 12345 % 10 = 5
n % 100 // 10 - результат целочисленного деления на 10 остатка от деления на 100. Например: 12345 % 100 = 45; 45 // 10 = 4
n % 1000 // 100 - результат целочисленного деления на 100 остатка от деления на 1000. Например: 12345 % 1000 = 345; 345// 100 = 3
============
Не забывайте нажать " ", поставить оценку и, если ответ удовлетворил, то выберите его как "Лучший"
Бодрого настроения и добра!
Успехов в учебе!