Определить принадлежность точки к закрашенной области

@Иван3654 · Регистрация: 06.04.2016

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

Доброго времени суток! Прошу помощи... Пишу 2 программы, на рисунке изображено 2 графика, какие формулы писать в условные операторы для 1-го и 2-го графика? Т.е. принадлежит ли заданная точка (x;y) закрашенной части или нет?

@Иван3654 · 06.04.2016, 19:00 **[ТС]**

Последние задачи для зачета!! Очень прошу помочь...

@mss · 06.04.2016, 20:02

Не по теме:

Сообщение от Иван3654

Последние задачи для зачета!

Сдашь ты свой зачет или не сдашь - это твоя личная драма.
Никому тут она не интересна.

@Иван3654 · 07.04.2016, 13:29 **[ТС]**

Зачем тогда оффтопить?! Иди лесом, раз просто зашел самоутвердиться.

@mss · 07.04.2016, 13:43

Не по теме:

Затем что совесть нужно иметь хотя бы элементарную.
И не выставлять напоказ свои цыплячьи проблемы, выдавая их за вселенские.

@unifikator · 07.04.2016, 14:36

Первая программа.
Код:

Delphi
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,r1,r2,s:extended;
begin
try
x:=strtofloat(edit1.Text);
except
showmessage('Координата точки X должна быть числом!');
exit;
end;
try
y:=strtofloat(edit2.Text);
except
showmessage('Координата точки Y должна быть числом!');
exit;
end;
try
r1:=strtofloat(edit3.Text);
except
showmessage('Радиус R1 должен быть числом!');
exit;
end;
try
r2:=strtofloat(edit4.Text);
except
showmessage('Радиус R2 должен быть числом!');
exit;
end;
if r1<r2 then
begin
showmessage('Радиус R1 должен быть не меньше радиуса R2!');
exit;
end;
s:=sqr(x)+sqr(y);
if (((x<0)and(y<0))or((x>0)and(y>0)))and(s<sqr(r1))and(s>sqr(r2)) then
label6.Caption:='Принадлежит.'
else
label6.Caption:='Не принадлежит.';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:=floattostr(sqrt(sqr(15)/2));
edit2.Text:=edit1.Text;
edit3.Text:='20';
edit4.Text:='10';
end;
 
end.

Прилагаю проект на Delphi.

@unifikator · 07.04.2016, 15:01

Вторая программа.
Код:

Delphi
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,r,s:extended;
begin
try
x:=strtofloat(edit1.Text);
except
showmessage('Координата точки X должна быть числом!');
exit;
end;
try
y:=strtofloat(edit2.Text);
except
showmessage('Координата точки Y должна быть числом!');
exit;
end;
try
r:=strtofloat(edit3.Text);
except
showmessage('Радиус R должен быть числом!');
exit;
end;
if r<0 then
begin
showmessage('Радиус R должен быть не меньше 0!');
exit;
end;
if ((x<0)and(y<0)and(abs(x+y)<r))or((x>0)and(y>0)and(sqr(x)+sqr(y)<sqr(r))) then
label5.Caption:='Принадлежит.'
else
label5.Caption:='Не принадлежит.';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='5';
edit2.Text:='5';
edit3.Text:='10';
end;
 
end.

Прилагаю проект на Delphi.

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@Иван3654 0 / 0 / 0 Регистрация: 06.04.2016 Сообщений: 15

	Определить принадлежность точки к закрашенной области 06.04.2016, 18:58. Показов 707. Ответов 6 Метки нет (Все метки) Доброго времени суток! Прошу помощи... Пишу 2 программы, на рисунке изображено 2 графика, какие формулы писать в условные операторы для 1-го и 2-го графика? Т.е. принадлежит ли заданная точка (x;y) закрашенной части или нет? Миниатюры 0

@Иван3654 0 / 0 / 0 Регистрация: 06.04.2016 Сообщений: 15
	06.04.2016, 19:00 [ТС]
	Последние задачи для зачета!! Очень прошу помочь... 0

@Иван3654 0 / 0 / 0 Регистрация: 06.04.2016 Сообщений: 15
	07.04.2016, 13:29 [ТС]
	Зачем тогда оффтопить?! Иди лесом, раз просто зашел самоутвердиться. 0

@mss
	07.04.2016, 13:43
	Не по теме: Затем что совесть нужно иметь хотя бы элементарную. И не выставлять напоказ свои цыплячьи проблемы, выдавая их за вселенские. 0

Опции темы