inMania - VBA (или "МИФ" на русской раскладке :В)

[ Ленточный вариант форума ]

[ Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

inMania форум » TMNF/TMUF » Поддержка » VBA (или "МИФ" на русской раскладке :В) (все по этой фигне -_-)

VBA (или "МИФ" на русской раскладке :В)

Mixon

20.02.2010, 15:09 | # 1

Пользователь

Посты: 222

Карма: 13

Offline

Вот такой код надо написать, помогите happy

Даны действительные числа x, y. Если оба числа неотрицательны и ни одно из них не принадлежит отрезку [0.5,2], то оба значения уменьшить в 10 раз, в остальных случаях x и y оставить без изменения.

сухарь знает что ghost знает что Rough20 знает что Kerp знает что Unky на goodgame.ru ^_^

ilnar

20.02.2010, 16:44 | # 2

NRC

Активист

Посты: 293

Карма: 16

Offline

логика следующей может быть:

if (x=>0) and (y=>0) and
(x<0.5) and (x>2) and
(y<0.5) and (y>2)
then
x=x/10
y=y/10

осталось написать это в бэйсике и прикрутить возможность ввода х и у, а также вывод результата после проверки

Think global, act local

Mixon

20.02.2010, 17:23 | # 3

Пользователь

Посты: 222

Карма: 13

Offline

спс

Дошло:

Code

Sub Задача_2 ()
Dim x As Single
Dim y As Single
x = InputBox("Введите координаты x")
y = InputBox("Введите координаты y")
If (x >= 0) And (y >= 0) Then
End If
If (x < 0.5) And (x > 2) And (y < 0.5) And (y > 2) Then
End If
x = x / 10
y = y / 10
MsgBox "y=" & y & Chr(10) & "x=" & x
End Sub

сухарь знает что ghost знает что Rough20 знает что Kerp знает что Unky на goodgame.ru ^_^

inMania форум » TMNF/TMUF » Поддержка » VBA (или "МИФ" на русской раскладке :В) (все по этой фигне -_-)

Страница 1 из 1
1