Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
anuuutka
0 / 0 / 0
Регистрация: 24.11.2010
Сообщений: 3
#1

Можно ли списать в круг два прямоугольника - VB

26.11.2010, 19:37. Просмотров 849. Ответов 3
Метки нет (Все метки)

Помогите решить пожалуйста задачки!!!
очень очень очень надо!!!

Задача 1
Даны вещественные положительные числа r,a,b,c и d. Определите, можно ли из круглой заготовки радиуса r вырезать две пластины прямоугольной формы с размерами a*b и c*d.

Задача 2
Даны координаты центров и радиусы двух окружностей, задаваемые уравнения (x-x1)^2+(y-y1)^2=r1^2 и (x-x2)^2+(y-y2)^2=r2^2. Определите, лежит ли целиком одна окружность внутри другой.

Задача 3
Даны вещественные положительные a,b,c,d,e,f. Считаем, что пары чисел a и b, c и d, e и f обозначают размеры первого, второго и третьего прямоугольника соответственно . Выясните, можно ли внутри одного из прямоугольников уместить два другие, не накладывая один на другой.

Помогитеее, пожалуйста!
http://www.cyberforum.ru/visual-basic/thread2233525.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2010, 19:37
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Можно ли списать в круг два прямоугольника (VB):

Круг какой площади можно вырезать из полученного прямоугольника?
Из круга радиусом R вырезан прямоугольник, большая сторона которого равна А....

Можно ли огородить изгородью длинной Z два земельных участка имеющих форму прямоугольника
определить можно ли огородить изгородью длинной Z два земельных участка имеющих...

Использовать рекурсивную функцию деления прямоугольника на два прямоугольника меньших размеров
Разработка программы для вывода изображения на экран "Деление прямоугольника"....

Нужно два градиентных прямоугольника расположить поверх белого прямоугольника
Нужно два градиентных прямоугольника расположить поверх белого прямоугольника....

получить из прямоугольника круг
Доброго времени суток! Выкладываю такой же код как в теме пропорциональность,...

3
YuraAAA
1578 / 1319 / 282
Регистрация: 25.10.2009
Сообщений: 3,436
Записей в блоге: 2
27.11.2010, 01:11 #2
2.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Form_Load()
Dim x01 As Single, y01 As Single, r1 As Single
Dim x02 As Single, y02 As Single, r2 As Single
x01 = InputBox("x-coord 1")
y01 = InputBox("y-coord 1")
r1 = InputBox("radius 1")
x02 = InputBox("x-coord 2")
y02 = InputBox("y-coord 2")
r2 = InputBox("radius 2")
If r1 > r2 Then
If x01 + r1 > x02 + r2 And y01 + r1 > y02 + r2 And Abs(x01 - r1) > Abs(x02 - r2) And Abs(y01 - r1) > Abs(y02 - r2) Then MsgBox ("+") Else MsgBox ("-")
ElseIf r1 < r2 Then
If x01 + r1 < x02 + r2 And y01 + r1 < y02 + r2 And Abs(x01 - r1) < Abs(x02 - r2) And Abs(y01 - r1) < Abs(y02 - r2) Then MsgBox ("+") Else MsgBox ("-")
Else
If x01 = x02 And y01 = y02 Then MsgBox ("+") Else MsgBox ("-")
End If
End Sub
Я немножко не трезв, так что проверяйте знаки
0
anuuutka
0 / 0 / 0
Регистрация: 24.11.2010
Сообщений: 3
27.11.2010, 01:37  [ТС] #3
спасибо большое:_)
0
gaw
6632 / 1499 / 169
Регистрация: 09.01.2010
Сообщений: 4,272
27.11.2010, 02:21 #4
Visual Basic
1
MsgBox (IIf(Sqr((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2) + r2 <= r1, "yes", "no"))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.11.2010, 02:21
Привет! Вот еще темы с решениями:

Перемещать круг по периметру расположенного в центре экрана прямоугольника
Перемещать круг по периметру расположенного в центре экрана прямоугольника....

Перемещать круг по периметру расположенного в центре экрана прямоугольника
Перемещать круг по периметру расположенного в центре экрана прямоугольника

Определить длину диагонали и площадь прямоугольника, вписанного в круг радиусом R
Визначити довжину діагоналі і площу прямокутника, вписаного в коло радіусом R,...

Прямоугольник реализовала, но не получается круг. Сам код для прямоугольника подаю ниже
Сам код для прямоугольника подаю ниже. Подскажите как правильно реализовать в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru