| Вопрос: Задачки по программированию | Добавлено: 22.03.06 23:41 |
Автор вопроса:  GlooM | Web-сайт: newlc.info | ICQ: 348453688 |
|
Привет! знаю, что вопрос детский, но что-то у меня думалка не думает! :)
-- Задача1: Определить, является ли точка с координатами (x;y) точкой пересечения диагоналей квадрата со стороной R, одна вершина которой расположена в начале координат. Пояснение: пользователь вводит значение стороны R (R=InputBox("Введите сторону R")). Надо: Составить 1) Алгоритм (блок-схему); 2) Программу на VBA желательно, но можно и в обычном VB (у нас в инсте VB нет..работаем в Excel'ом VBA).. вот... ------ Задача2: Определить значение функции в зависимости от значения аргумента. см. картинку (http://forum.vbland.net/index.php?showtopic=131) Надо: Составить 1) Алгоритм (блок-схему); 2) Программу на VBA желательно, но можно и в обычном VB (у нас в инсте VB нет..работаем в Excel'ом VBA).. вот... |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Fever Вопросов: 60 Ответов: 808 |
Профиль | Цитата | #1 | Добавлено: 23.03.06 16:39 |
| (+-sqr(2)/2*R,+-sqr(2)/2*R)=(x,y) | ||
|
Номер ответа: 2 Автор ответа: GlooMICQ: 348453688 Вопросов: 88 Ответов: 356 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 24.03.06 23:04 |
Fever, спасибо! 
реализовал вот так...может где ошибся? Option Explicit
Public Sub bb() Dim R As Long Dim x As Double, y As Double R = InputBox("Enter R" 
x = Sqr(R) / 2 * R y = Sqr(R) / 2 * R MsgBox "Точка - (" & Round(x, 2) & ";" & Round(y, 2) & " "
End Sub |
||
|
Номер ответа: 3 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 27.03.06 23:04 |
|
Определить, является ли точка с координатами (x;y) точкой пересечения диагоналей квадрата со стороной R, одна вершина которой расположена в начале координат. Может, я чего-то не понимаю, но нигде не сказано, что стороны квадрата параллельны осям. Считаешь sqr(x^2+y^2) и сравниваешь с R*sqr(2)/2
|
||
|
Номер ответа: 4 Автор ответа: GlooMICQ: 348453688 Вопросов: 88 Ответов: 356 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 03.04.06 00:38 |
|
тогда так?
Option Explicit
Public Sub bb() Dim R As Long Dim x As Double, y As Double R = InputBox("Enter R"
x = InputBox("Enter x"
y = InputBox("Enter y"
If Sqr(x ^ 2 + y ^ 2) = R * Sqr(2) / 2 Then MsgBox "Точка является точкой пересечения!" Else MsgBox "Неа! "
End If End Sub |
||
|
Номер ответа: 5 Автор ответа: GlooMICQ: 348453688 Вопросов: 88 Ответов: 356 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 03.04.06 14:38 |
|
а вот решение для второй:
Option Explicit
Const PI = 3.1415 Public Sub ex7() On Error Resume Next Dim x As Long, a As Long Dim y As Double x = InputBox("Enter x"
a = InputBox("Enter a"
If x > 10 Then y = a * x ^ 2 MsgBox y ElseIf (x >= -10) And (x <= 10) Then If x = 0 Then MsgBox "Нет решений" Else y = 1 / x MsgBox y End If ElseIf x < -10 Then x = x * PI / 180 y = Sin(x) MsgBox y End If End Sub |
||
Страница: 1 |