Пробовал так
Dis=101
Kv = Sqr(Dis)
If Int(Kv) <> Kv Then
Kv = Dis
End If
SQR() извлекает не целое число а потом сразу округляет его
Может есть кака ето другая функа
Заранее спасиб
Корень из числа
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 6
• Страница 1 из 1
- Мика
- Обычный пользователь
- Сообщения: 58
- Зарегистрирован: 08.06.2003 (Вс) 10:27
Корень из числа
Мика » 14.10.2003 (Вт) 15:40
Я знаю что есть функа SQR() но она корень вычесляет из всего подряд, а мне нужно чтоб он извлекал из тех чисел из которых корень извлекается целым!!!
Пробовал так
Dis=101
Kv = Sqr(Dis)
If Int(Kv) <> Kv Then
Kv = Dis
End If
SQR() извлекает не целое число а потом сразу округляет его
Может есть кака ето другая функа
Заранее спасиб
Пробовал так
Dis=101
Kv = Sqr(Dis)
If Int(Kv) <> Kv Then
Kv = Dis
End If
SQR() извлекает не целое число а потом сразу округляет его
Может есть кака ето другая функа
Заранее спасиб
- RayShade
- Scarmarked
-
- Сообщения: 5511
- Зарегистрирован: 02.12.2002 (Пн) 17:11
- Откуда: Russia, Saint-Petersburg
RayShade » 14.10.2003 (Вт) 15:48
А вот так не попробовать?
- Код: Выделить всё
src = 101
resut = sqr(src)
if result*result<>src then result = src
- Mikle
- Изобретатель велосипедов
-
- Сообщения: 4158
- Зарегистрирован: 25.03.2003 (Вт) 14:02
- Откуда: Туапсе
Mikle » 14.10.2003 (Вт) 16:05
Так тоже не пойдет. SQR вычисляется не точно. Может получиться типа sqr(4)=1.999999999.
Нужно добавить
ну или integer
Нужно добавить
- Код: Выделить всё
dim res as long, src as long
ну или integer
- RayShade
- Scarmarked
-
- Сообщения: 5511
- Зарегистрирован: 02.12.2002 (Пн) 17:11
- Откуда: Russia, Saint-Petersburg
Сообщений: 6
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5