Определить, пройдет ли кирпич через отверстие

@FARAON166 · Регистрация: 26.10.2010

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

1.Заданы размеры A, B прямоугольного отверстия и размеры X, Y, Z кирпича. Определить, пройдет ли кирпич через отверс*тие
2.Два прямоугольника, расположенные в первом квадранте, со сторонами, параллельными осям координат, заданы коорди*натами своих левого верхнего и правого нижнего углов. Для первого прямоугольника это точки (x1, y1) и (x2, 0), для второ*го — (x3, y3), (x4, 0) Составить программу, определяющую, пересекаются ли данные прямоугольники, и вычисляющую площадь общей части, если они пересекаются.

@Busine2009 · 14.11.2010, 14:41

FARAON166,
если выложишь материалы, которые вы проходили, то я попробовал бы сделать.

@Alex77755 · 15.11.2010, 21:59

Заданы размеры A, B прямоугольного отверстия и размеры X, Y, Z кирпича.

Ну поперёк кирпич не пролезет я думаю? Значит надо сравнить 2 минимальных размера кирпича с размерами дыры
А по второму вопросу - проще взять карандаш и нарисовать возможные варианты.
А все варианты в соотношении X

@ironegg · 16.11.2010, 03:06

если кирпич не пролазит плашмя или руба, то он может пролезть под углом. задача нетривиальная. поиск "на вскидку" не дает готового уравнения. тут больше геометрия а не прогаммирование

@Alex77755 · 16.11.2010, 06:54

Ну ессно
Надо составить и решить систему неравенств(но сначала выбрать две коротких стороны)
Кирпичь то всё равно пхнуть надо только руба

@FARAON166 · 17.11.2010, 14:47 **[ТС]**

Сообщение от Busine2009

FARAON166,
если выложишь материалы, которые вы проходили, то я попробовал бы сделать.

http://dump.ru/file/4901931

@Busine2009 · 17.11.2010, 21:51

FARAON166,
здесь действительно математика, а VBA так себе.
Напиши, как эта задача решается в математике.

@Alex77755 · 18.11.2010, 08:53

Ну если я внимательно сделал выражение из системы неравентв, то примерно так(длинную сторону не определял. проверка только на "тычок")

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Private Sub Комманда1_Click()
Dim a, b, c, d
Dim x1, x2, x3, x4
Dim S
Dim J
a = CDbl(Replace(Текст1.Text, ".", ",")) 'кирпич
b = CDbl(Replace(Текст2.Text, ".", ",")) 'кирпич
c = CDbl(Replace(Текст3.Text, ".", ",")) 'дыра
d = CDbl(Replace(Текст4.Text, ".", ",")) 'дыра
For J = 0 To d Step 0.01
S = (c - ((b - J) ^ 2) ^ 0.5) ^ 2 + (d - J) ^ 2
If S > a ^ 2 Then
MsgBox "Пролезет!"
Exit Sub
End If
Next J
MsgBox "Ні лізе!"
End Sub

@Dzhej-Dzhej · 18.11.2010, 09:20

определяем два минимальных размера кирпича
например, получили X и Z
и если A>X, B>Z или A>Z, B>X то пролазит

@Alex77755 · 18.11.2010, 09:23

Dzhej-Dzhej,
ironegg сказал правду:

если кирпич не пролазит плашмя или руба, то он может пролезть под углом. задача нетривиальная. поиск "на вскидку" не дает готового уравнения. тут больше геометрия а не прогаммирование

кирпич размером 6х12 в дыру 11х11 пролезет-таки!!
Кирпич надо "вращать" и по Пифагору проверять на "влазимость"

@Dzhej-Dzhej · 18.11.2010, 09:41

Alex77755,

а таки пролазит
не будет ли логичным предположить, что удобней всего пропихивать его подиагонали
тогда A*B>Z*X+Z*Z+X*X(площадь кирпича+квадрат вокруг него)
или нужно учитывать 3D-верчение?

@Alex77755 · 18.11.2010, 09:47

Возможно. Реализуй и покажи
Вращение вроде 2D было?

@Dzhej-Dzhej · 18.11.2010, 10:06

Alex77755, примерно так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
    Dim x, y, z, a, b, min1, min2
    x = CDbl(Replace(Text1.Text, ".", ",")) 'кирпич
    y = CDbl(Replace(Text2.Text, ".", ",")) 'кирпич
    z = CDbl(Replace(Text3.Text, ".", ",")) 'кирпич
    a = CDbl(Replace(Text4.Text, ".", ",")) 'дыра
    b = CDbl(Replace(Text4.Text, ".", ",")) 'дыра
    min1 = x
    min2 = y
    If (z < x) Then
        min1 = z
        If (x < y) Then min2 = x
    End If
    If ((min1 < a And min2 < b) Or _
        (min1 < b And min2 < a) Or _
        (a * b > min1 ^ 2 + min1 * min2 + Min ^ 2)) Then
            MsgBox "Ïðîëåçåò!"
            Exit Sub
    End If
    MsgBox "Í³ ë³çå!"
End Sub

что-то я намудрил

@Alex77755 · 18.11.2010, 10:26

Похоже оба кода неверны!!
Кирпич(подлец) просочился в щель 500х5

@Dzhej-Dzhej · 18.11.2010, 10:48

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Command1_Click()
    Dim x, y, z, a, b, min1, min2
    x = CDbl(Replace(Text1.Text, ".", ",")) 'êèðïè÷
    y = CDbl(Replace(Text2.Text, ".", ",")) 'êèðïè÷
    z = CDbl(Replace(Text3.Text, ".", ",")) 'êèðïè÷
    a = CDbl(Replace(Text4.Text, ".", ",")) 'äûðà
    b = CDbl(Replace(Text5.Text, ".", ",")) 'äûðà
    min1 = x
    min2 = y
    If (z < x) Then
        min1 = z
        If (x < y) Then min2 = x
    Else
        If (z < y) Then min2 = z
    End If
    If ((min1 < a And min2 < b) Or _
        (min1 < b And min2 < a) Or _
        (a * b > (min1 / Sqr(2)) ^ 2 + min1 * min2 + (min2 / Sqr(2)) ^ 2)) Then
            MsgBox "Ïðîëåçåò!"
    Else
        MsgBox "Í³ ë³çå!"
    End If
    MsgBox CStr(a * b) + "  " + CStr((min1 / Sqr(2)) ^ 2 + min1 * min2 + (min2 / Sqr(2)) ^ 2)
End Sub

может так, только пролазит 12х3

Добавлено через 11 минут

Сообщение от Alex77755

Кирпич(подлец) просочился в щель 500х5

тоже
хз, как решать

@Alex77755 · 18.11.2010, 10:49

Да просто внимательно проверить все условия
Например:

Visual Basic
1
    If min1 < a Or min1 < b Then MsgBox "Да куды ж вы пхнёте!!!"

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

Определить, пройдет ли кирпич через отверстие

Решение

Решение

Решение

@FARAON166 0 / 0 / 0 Регистрация: 26.10.2010 Сообщений: 33

	Определить, пройдет ли кирпич через отверстие 14.11.2010, 09:00. Показов 5955. Ответов 15 Метки нет (Все метки) 1.Заданы размеры A, B прямоугольного отверстия и размеры X, Y, Z кирпича. Определить, пройдет ли кирпич через отверстие 2.Два прямоугольника, расположенные в первом квадранте, со сторонами, параллельными осям координат, заданы координатами своих левого верхнего и правого нижнего углов. Для первого прямоугольника это точки (x1, y1) и (x2, 0), для второ*го — (x3, y3), (x4, 0) Составить программу, определяющую, пересекаются ли данные прямоугольники, и вычисляющую площадь общей части, если они пересекаются. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	14.11.2010, 14:41
	FARAON166, если выложишь материалы, которые вы проходили, то я попробовал бы сделать. 0

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	16.11.2010, 03:06
	если кирпич не пролазит плашмя или руба, то он может пролезть под углом. задача нетривиальная. поиск "на вскидку" не дает готового уравнения. тут больше геометрия а не прогаммирование 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	16.11.2010, 06:54
	Ну ессно Надо составить и решить систему неравенств(но сначала выбрать две коротких стороны) Кирпичь то всё равно пхнуть надо только руба 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	17.11.2010, 21:51
	FARAON166, здесь действительно математика, а VBA так себе. Напиши, как эта задача решается в математике. 0

@Dzhej-Dzhej Заблокирован
	18.11.2010, 09:20
	определяем два минимальных размера кирпича например, получили X и Z и если A>X, B>Z или A>Z, B>X то пролазит 0

@Dzhej-Dzhej Заблокирован
	18.11.2010, 09:41
	Alex77755, а таки пролазит не будет ли логичным предположить, что удобней всего пропихивать его подиагонали тогда AB>ZX+ZZ+XX(площадь кирпича+квадрат вокруг него) или нужно учитывать 3D-верчение? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.11.2010, 09:47
	Возможно. Реализуй и покажи Вращение вроде 2D было? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.11.2010, 10:26
	Похоже оба кода неверны!! Кирпич(подлец) просочился в щель 500х5 1