Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [VBA] Число в периоде 
:(
    Опции темы
STRIKER221
Дата 6.12.2008, 02:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 2.11.2006
Где: Belarus

Репутация: нет
Всего: нет
 По этим формулам считаются некоторые корни уравнения X,Y,Z
Код

    Z = b3_1 / a33_1
    Y = (b2_1 - a23_1 * Z) / a22_1
    X = (b1 - a13 * Z - a12 * Y) / a11

 А здесь эти корни выводятся в TextBoxы, с некоторым округлением.
Код

    Load UserForm2
    UserForm2.TextBox1 = Round(X, TextBox13)
    UserForm2.TextBox2 = Round(Y, TextBox13)
    UserForm2.TextBox3 = Round(Z, TextBox13)
    Unload UserForm1
    UserForm2.Show


Вопрос в следующем: Как сделать, чтобы если величина X или Y или Z является числом в периоде ответ выводился не, допустим, 3,3333333333333 а 3,3(3) ?

Это сообщение отредактировал(а) STRIKER221 - 6.12.2008, 03:14
PM MAIL ICQ   Вверх
Akina
Дата 7.12.2008, 21:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454
Проанализировать строку (именно строку!) на предмет повторов.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
STRIKER221
Дата 8.12.2008, 00:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 2.11.2006
Где: Belarus

Репутация: нет
Всего: нет
Akina, И как это сделать?
PM MAIL ICQ   Вверх
kapbepucm
Дата 8.12.2008, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12
Akina, а если период состоит из 13 цифр?


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
Akina
Дата 8.12.2008, 12:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454
Цитата(kapbepucm @  8.12.2008,  13:12 Найти цитируемый пост)
а если период состоит из 13 цифр?

Поставлена не задача именно нахождения периода...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
kapbepucm
Дата 8.12.2008, 14:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12
Akina, какже его записАть, если его не знаешь smile


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
STRIKER221
Дата 8.12.2008, 22:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 2.11.2006
Где: Belarus

Репутация: нет
Всего: нет
Никто что-ли не встречался с такой задачей? :-(
PM MAIL ICQ   Вверх
FINANSIST
Дата 8.12.2008, 23:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Статус: Жив
**


Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 3
Всего: 23
Код

Public Sub test_val()
Dim vl As String: Dim MidVal As String: Dim MidVal2 As String: Dim x As Integer: Dim flag As Boolean
Let vl = 456.3333333
10: For x = InStr(1, vl, ",", vbTextCompare) + 1 To Len(vl) Step 1
If x = Len(vl) Then Exit For
MidVal = Mid(vl, x, 1)
MidVal2 = Mid(vl, x + 1, 1)
If MidVal = MidVal2 Then flag = True Else flag = False
If flag = False Then Exit For
Next x
Select Case flag
Case True
vl = Fix(vl) & "." & MidVal2 & "(" & MidVal2 & ")"
Case False
vl = vl
End Select
MsgBox "value = " & Chr(9) & vl & Chr(9), vbInformation
If flag = False Then Exit Sub
Let vl = -0.123456
GoTo 10:
End Sub

ОНО???

Это сообщение отредактировал(а) FINANSIST - 8.12.2008, 23:01


--------------------
“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”
PM MAIL ICQ   Вверх
Akina
Дата 9.12.2008, 00:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454
Код

vl = 2 / 3
  smile 



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
source777
Дата 9.12.2008, 00:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1878
Регистрация: 12.3.2007

Репутация: 5
Всего: 56
А если v1 = 5/101 = 0,(0495) ?


--------------------
Если бы программистам платили за то, чтобы убирать код из программы вместо того, чтобы добавлять его, программы были бы намного лучше © Николас Негропонте
PM MAIL   Вверх
FINANSIST
Дата 9.12.2008, 13:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Статус: Жив
**


Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 3
Всего: 23
Цитата

А если v1 = 5/101 = 0,(0495) ?


Цитата(STRIKER221 @  6.12.2008,  02:58 Найти цитируемый пост)
Вопрос в следующем: Как сделать, чтобы если величина X или Y или Z является числом в периоде ответ выводился не, допустим, 3,3333333333333 а 3,3(3) ?


Видимо человека интересуют именно форматирование дублей цифр в периоде
исходя из этого код и лепил...

Это сообщение отредактировал(а) FINANSIST - 9.12.2008, 13:05


--------------------
“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”
PM MAIL ICQ   Вверх
kapbepucm
Дата 9.12.2008, 14:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12
Всё-таки для начала надо наити период...

Добавлено через 57 секунд
Где-то у меня была реализация, найду- отпишусь.


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
STRIKER221
Дата 9.12.2008, 18:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 2.11.2006
Где: Belarus

Репутация: нет
Всего: нет
FINANSIST, Мне нужно чтобы определялся период, не важно из скольки чисел он состоит
PM MAIL ICQ   Вверх
source777
Дата 9.12.2008, 23:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1878
Регистрация: 12.3.2007

Репутация: 5
Всего: 56
Цитата(STRIKER221 @  9.12.2008,  18:19 Найти цитируемый пост)
Мне нужно чтобы определялся период, не важно из скольки чисел он состоит 
Для этого тебе нужно привести десятичную дробь к нормальной, умножай последовательно на целые числа(при делении дающие периоды, такие как 3*m, 11*m,  37*m, 41*m, 73*m, 101*m, 137*m), и если результат получится близким к целому числу: дробная_часть(v1*n) < 0.001, то считай что нашёл период, надо только иметь в виду, что в связи с ограничениями хранения дробных чисел в компьютере, период более чем из 5 цифр найти навряд ли получится...


Это сообщение отредактировал(а) source777 - 9.12.2008, 23:15


--------------------
Если бы программистам платили за то, чтобы убирать код из программы вместо того, чтобы добавлять его, программы были бы намного лучше © Николас Негропонте
PM MAIL   Вверх
Akina
Дата 9.12.2008, 23:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454
Цитата(source777 @  10.12.2008,  00:04 Найти цитируемый пост)
тебе нужно привести десятичную дробь к нормальной

ну-ну...

Цитата(STRIKER221 @  9.12.2008,  19:19 Найти цитируемый пост)
Мне нужно чтобы определялся период, не важно из скольки чисел он состоит 

Именно это и есть самое важное - определить, сколько цифр в периоде.
А для этого надо прост о начать делить на делимое единичку... программно, но в столбик. Ожидая либо завершения деления (тогда периода нет), либо появления периодичности.
А зная длину периода, найти его самого - задача тривиальная.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0592 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.