|
Помощь другу!)
|
|
| Mixon | Дата: Saturday, 20.02.2010, 15:01 | Сообщение # 1 |
| |
| |
| Генерал-майор |
| |
| Группа: Заместитель капитана |
| Сообщений: 1649 |
|
« 87 » |
| |
| Статус: Offline |
| |
|
В общем вот такой простенький код надо написать на VBA (я хз как, у нас ток 1 пара была :D) помогите
Даны действительные числа x, y. Если оба числа неотрицательны и ни одно из них не принадлежит отрезку [0.5,2], то оба значения уменьшить в 10 раз, в остальных случаях x и y оставить без изменения.
Каждый дрочит как он хочет! (с) VL Project
|
| |
|
|
| M@gnet | Дата: Saturday, 20.02.2010, 15:03 | Сообщение # 2 |
| |
 |
| Глава всего флуда =) |
| |
| Группа: Друзья команды |
| Сообщений: 3061 |
|
« 160 » |
| |
| Статус: Offline |
| |
|
че о_о
|
| |
|
|
| Shanti | Дата: Saturday, 20.02.2010, 15:13 | Сообщение # 3 |
| |
 |
| Генерал-майор |
| |
| Группа: Команда |
| Сообщений: 726 |
|
« 43 » |
| |
| Статус: Offline |
| |
|
ммм, кого позвать?))
|
| |
|
|
| Noutorius | Дата: Saturday, 20.02.2010, 15:13 | Сообщение # 4 |
| |
 |
| Генерал-майор |
| |
| Группа: Друзья команды |
| Сообщений: 696 |
|
« 32 » |
| |
| Статус: Offline |
| |
|
я тоже ниче не понял
|
| |
|
|
| Mixon | Дата: Saturday, 20.02.2010, 15:13 | Сообщение # 5 |
| |
| |
| Генерал-майор |
| |
| Группа: Заместитель капитана |
| Сообщений: 1649 |
|
« 87 » |
| |
| Статус: Offline |
| |
|
чо непонятно?
Каждый дрочит как он хочет! (с) VL Project
|
| |
|
|
| M@gnet | Дата: Saturday, 20.02.2010, 15:17 | Сообщение # 6 |
| |
| |
| Глава всего флуда =) |
| |
| Группа: Друзья команды |
| Сообщений: 3061 |
|
« 160 » |
| |
| Статус: Offline |
| |
|
непонятно, че за х*иту ты написал
|
| |
|
|
| Mixon | Дата: Saturday, 20.02.2010, 15:19 | Сообщение # 7 |
| |
| |
| Генерал-майор |
| |
| Группа: Заместитель капитана |
| Сообщений: 1649 |
|
« 87 » |
| |
| Статус: Offline |
| |
|
ну например вот такой пример Abs(x * Lnx - 4 / 7) * Sqr(x) / (Exp(4 * x - 1.1)) ^ 0.2 можно пощитать в бэйзике вот таким кодом: Sub Задача_1()
Dim x As Double
x = InputBox("Введите значение x")
y = Abs(x * Lnx - 4 / 7) * Sqr(x) / (Exp(4 * x - 1.1)) ^ 0.2
MsgBox "y=" & y
End Sub
Каждый дрочит как он хочет! (с) VL Project
|
| |
|
|
| Noutorius | Дата: Saturday, 20.02.2010, 15:27 | Сообщение # 8 |
| |
| |
| Генерал-майор |
| |
| Группа: Друзья команды |
| Сообщений: 696 |
|
« 32 » |
| |
| Статус: Offline |
| |
|
лучше на паскале 
|
| |
|
|
| Mixon | Дата: Saturday, 20.02.2010, 15:43 | Сообщение # 9 |
| |
| |
| Генерал-майор |
| |
| Группа: Заместитель капитана |
| Сообщений: 1649 |
|
« 87 » |
| |
| Статус: Offline |
| |
|
Quote (Noutorius) лучше на паскале
выбирать не приходится
Каждый дрочит как он хочет! (с) VL Project
|
| |
|
|
| Noutorius | Дата: Saturday, 20.02.2010, 16:03 | Сообщение # 10 |
| |
| |
| Генерал-майор |
| |
| Группа: Друзья команды |
| Сообщений: 696 |
|
« 32 » |
| |
| Статус: Offline |
| |
|
на паскале могк попробовать набрать)
|
| |
|
|
| Mixon | Дата: Saturday, 20.02.2010, 16:18 | Сообщение # 11 |
| |
| |
| Генерал-майор |
| |
| Группа: Заместитель капитана |
| Сообщений: 1649 |
|
« 87 » |
| |
| Статус: Offline |
| |
|
Quote (Noutorius) на паскале могк попробовать набрать)
надо именно на базике
Каждый дрочит как он хочет! (с) VL Project
|
| |
|
|
| White | Дата: Saturday, 20.02.2010, 17:16 | Сообщение # 12 |
| |
 |
| Генерал-майор |
| |
| Группа: Друзья команды. |
| Сообщений: 337 |
|
« 17 » |
| |
| Статус: Offline |
| |
|
Задроты... 
Водка "Буpатино" - почувствуй себя дpовами!
Вконтакте - как и всякая социальная сеть, вконтакте чуть более, чем полностью наполнен быдлами, провинциальными студентами, гламурными кисками, тупыми п*****и, задр*тами и просто унылым говном.
|
| |
|
|
| Mixon | Дата: Saturday, 20.02.2010, 17:24 | Сообщение # 13 |
| |
| |
| Генерал-майор |
| |
| Группа: Заместитель капитана |
| Сообщений: 1649 |
|
« 87 » |
| |
| Статус: 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
Каждый дрочит как он хочет! (с) VL Project
|
| |
|
|
| Noutorius | Дата: Saturday, 20.02.2010, 18:40 | Сообщение # 14 |
| |
| |
| Генерал-майор |
| |
| Группа: Друзья команды |
| Сообщений: 696 |
|
« 32 » |
| |
| Статус: Offline |
| |
|
бейсик даже в глаза не видел)
|
| |
|
|
| GhoST-44 | Дата: Saturday, 20.02.2010, 18:45 | Сообщение # 15 |
| |
 |
| Генерал-майор |
| |
| Группа: Друзья команды. |
| Сообщений: 1119 |
|
« 53 » |
| |
| Статус: Offline |
| |
|
VB в школе пару раз касались, а ща программируем на Delphi 7. Попроси учителя вас на Delphi 7 перевести, тогда может смогу чем помочь. 
|
| |
|
|
