Составить логические выражения для графика

@Warehouse · Регистрация: 18.12.2014

Студворк — интернет-сервис помощи студентам

Прошу помочь хотя бы с одним номером, буду весьма признателен.
Для этих графиков составить:
a)единое составное логическое выражение
b)вложенные логические операторы, содержащие лишь простейшие условия сравнения
c)математическую запись в виде системы/совокупности отдельных неравенств, которое принимает значение "истина" тогда и только тогда, когда точка с координатами (x,y) принадлежит заштрихованной области (отдельно для каждого рисунка), и "ложь" в противном случае.

У меня получилось следующее:
а)
График 1:
If ((y<=sqrt(R1-x^2) and (x<=0)) or ((y>=-sqrt(R2-x^2) and (x<=0));
then (‘принадлежит’)
else (‘не принадлежит’)

График 2:
If ((y<=(1/x) and (x>=0)) or ((y<=sqrt(9-x^2) and (x>=0));
then (‘принадлежит’)
else (‘не принадлежит’)

@Constantin Cat · 26.03.2015, 08:03

1)
формула окружности R^2=x^2+y^2

Вам нужны следующие условия:
a)x>0 и y<0
b)R1^2<=x^2+y^2
c)R2^2=>x^2+y^2

d)x<0 и y>0
e)R1^2=>x^2+y^2

Чтобы не проверять всё четыре условия a и d, их можно сократить до трех x*y<0 , x<0 и x>0

Добавлено через 1 час 52 минуты
Контрольная программа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses GraphABC;
const
  R1=50;
  R2=70;
var
  x,y:integer;
function FLE(a,b:integer):boolean;
  begin
    FLE:=a<=b
  end;
begin
  SetWindowSize(200, 200);
  Line(100,0,100,200);
  Line(0,100,200,100);
  for x:=-100 to 100 do
    for y:=-100 to 100 do
      if(x*y<0)and
         (
         (x>0)and FLE(R1*R1,x*x+y*y)and FLE(x*x+y*y,R2*R2)
         or(x<0)and FLE(x*x+y*y,R1*R1)
         )
         then setPixel(x+100,-y+100,13);
  readln;
end.

Добавлено через 7 часов 43 минуты
2)y<=sqrt(9-x^2)откуда это?
Контрольный код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses GraphABC;
const
  k=50;
var
  x,y:integer;
begin
  SetWindowSize(200, 200);
  Line(100,0,100,200);
  Line(0,100,200,100);
  for x:=-100 to 100 do
    for y:=-100 to 100 do
      if(y>0)and(x*y>k)or(y<0)and(x*y<k)then setPixel(x+100,-y+100,13);
  readln;
end.

@Warehouse · 17.04.2015, 19:09 **[ТС]**

Спасибо. А как его ограничить окружностью? А то вот что выдает

@Constantin Cat · 22.04.2015, 14:58

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses GraphABC;
const
  k=50;
var
  x,y:integer;
begin
  SetWindowSize(200, 200);
  Line(100,0,100,200);
  Line(0,100,200,100);
  for x:=-100 to 100 do
    for y:=-100 to 100 do
      if((y>0)and(x*y>k)or(y<0)and(x*y<k))and(k*k>(x*x+y*y))then setPixel(x+100,-y+100,13);
  readln;
end.

@Puporev · 22.04.2015, 15:05

Сообщение от Constantin Cat

setPixel(x+100,-y+100,13)

Нужно прямо цвет указывать,это не Турбо Паскаль...

@Constantin Cat · 22.04.2015, 15:34

Название цвета-целая константа, образованная по принципу:R*256*256+G*256+B, любое число близкое к нулю-черный.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Warehouse 3 / 3 / 3 Регистрация: 18.12.2014 Сообщений: 158

	Составить логические выражения для графика 25.03.2015, 17:53. Показов 2610. Ответов 5 Метки нет (Все метки) Прошу помочь хотя бы с одним номером, буду весьма признателен. Для этих графиков составить: a)единое составное логическое выражение b)вложенные логические операторы, содержащие лишь простейшие условия сравнения c)математическую запись в виде системы/совокупности отдельных неравенств, которое принимает значение "истина" тогда и только тогда, когда точка с координатами (x,y) принадлежит заштрихованной области (отдельно для каждого рисунка), и "ложь" в противном случае. У меня получилось следующее: а) График 1: If ((y<=sqrt(R1-x^2) and (x<=0)) or ((y>=-sqrt(R2-x^2) and (x<=0)); then (‘принадлежит’) else (‘не принадлежит’) График 2: If ((y<=(1/x) and (x>=0)) or ((y<=sqrt(9-x^2) and (x>=0)); then (‘принадлежит’) else (‘не принадлежит’) Миниатюры 0

@Warehouse 3 / 3 / 3 Регистрация: 18.12.2014 Сообщений: 158
	17.04.2015, 19:09 [ТС]
	Спасибо. А как его ограничить окружностью? А то вот что выдает Изображения 0

@Constantin Cat 3410 / 1829 / 489 Регистрация: 28.02.2015 Сообщений: 3,696
	22.04.2015, 15:34
	Название цвета-целая константа, образованная по принципу:R256256+G*256+B, любое число близкое к нулю-черный. 0