ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Уравнение с 2 неизвестными
14 сообщений из 14, страница 1 из 1
Уравнение с 2 неизвестными
    #37069629
Firazim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Firazim
Гость
мне для липовой отчетности нужно чтоб автоматически считалось количество, исходя из общей суммы.
Смысл таков:
x*2.9=2.9x грн
y*2.5=2.5y грн
y*2.1=2.1y грн
сумма без НДС 2.9x+2.5y+2.1y грн
НДС 2.9x+2.5y+2.1y*0.2 грн
общая сумма (2.9x+2.5y+2.1y)+(2.9x+2.5y+2.1y*0.2)
Вот, мне известно только общая сумма. мне нужно чтоб методом перебора программа подставляла сама х(от1000до4000) и у(от200до390).

P.S. х,у это количество.)

более детально, вернее смысл программы в приложении
количество должно быть целое понятно что такое может и не подобраться, потому есть лимит +-2 грн.
мне приходиться постоянно сидеть и подбирать вручную количество, чтоб сошлась сумма.

вот я пытался что то сварганить но в программировании я 0, потому основным для меня на форме было реализовать подсчет количества, т.е. я ввожу количество он мне рендомом показывает х и у

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Option Explicit
Dim a As Integer
Dim b As Integer
Dim c As Integer
Function test()
a = Int(Rnd *  100 )
b = Int(Rnd *  100 )
end.


Private Sub Command1_Click()
c = textbox1.text
if a*b=c then
label1.caption = a
label2.caption = b
else
test
end if
End Sub
я понимаю что сдесь не правильно реализации процедуры, потому что он считает только раз и нужно все время клацать на кнопке

может не стоит изобретать велосипед и есть все намного роще обычными формулами Excel? Прошу подсказать.
...
Рейтинг: 0 / 0
20.01.2011, 16:23
| Ответить | Цитировать | Написать  
Уравнение с 2 неизвестными
    #37069643
Firazim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Firazim
Гость
Firazim,

Вложение забыл
...
Рейтинг: 0 / 0
20.01.2011, 16:28
| Ответить | Цитировать | Написать  
Уравнение с 2 неизвестными
    #37069713
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Firazim,

надстройка "поиск решения" она же slover
...
Рейтинг: 0 / 0
20.01.2011, 16:52
| Ответить | Цитировать | Написать  
Уравнение с 2 неизвестными
    #37070013
Firazim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Firazim
Гость
Shamanus,

этот метод не подходит, обгладывал его вдоль и поперек, когда вставляешь сумму количество выставляет с десятыми а то и сотыми(правда не всегда, закон подлости сами понимаете). условие целое было поставлено.
...
Рейтинг: 0 / 0
20.01.2011, 19:08
| Ответить | Цитировать | Написать  
Уравнение с 2 неизвестными
    #37071252
Firazim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Firazim
Гость
Была идея выводить в ячейку случайное значение одного из количеств, а второе значение подсчитываться само. Но наверно неправильно у меня руки растут или чего то не знаю!
1) при клацанье по листе, он все время меняет значение
2) 2 количество т.е. у получается не целое.

можно ли как то организовать чтоб значение выбрасывало автоматически постоянно, пока не будет у целое? При этом чтоб больше оно не изменялось!
Я понимаю что обычными формулами EXCELя этого не сделать! может кто то хоть может с элементарной программкой только для количества? чтоб она в цикле выбрасывало значение пока их сумма не получиться N. Дольше попробую саменький)))
...
Рейтинг: 0 / 0
21.01.2011, 13:28
| Ответить | Цитировать | Написать  
Уравнение с 2 неизвестными
    #37071265
Serg_77m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg_77m
Участник
Firazim,

Перебрать все возможные значения y , для каждого y по известной сумме вычислить x , округлить его до целого, проверить, попадает ли в допустимый интервал, затем по найденным x и y заново вычислить сумму, если вписывается в границу - выдать результат. Можно стандартными формулами на Excel'е сделать.
...
Рейтинг: 0 / 0
21.01.2011, 13:30
| Ответить | Цитировать | Написать  
Уравнение с 2 неизвестными
    #37071398
Firazim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Firazim
Гость
Serg_77m,

если не сложно!
название формулы для перебора? или в строку их предлагает загнать?
...
Рейтинг: 0 / 0
21.01.2011, 14:07
| Ответить | Цитировать | Написать  
Уравнение с 2 неизвестными
    #37071675
Serg_77m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg_77m
Участник
Firazim,

Ну это уже как бы не бейсик.
Для поиска решения выделяешь отдельный лист.
В первой колонке сверху вниз пишешь возможные значения y последовательно от 200 до 390
Вот второй колонке - формулу для расчёта x по заданной сумме и y
В третьей колонке - округлить x до целого (собственно, это можно и сразу сделать)
В следующей - проверку на попадание x в интервал 1000..4000, там где попадает повторить значение x , на остальных чтобы пусто было.
В следующей колонке по известным x и y вычислить сумму
В следующей - отклонение вычисленной суммы от требуемой (по модулю)
Затем найти минимальное отклонение, найти строку в которой этот минимум встретился, и достать из этой строки искомые x и y
...
Рейтинг: 0 / 0
21.01.2011, 15:21
| Ответить | Цитировать | Написать  
Уравнение с 2 неизвестными
    #37071698
Serg_77m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg_77m
Участник
Firazim,

А если всё же на бейсике, то будет цикл вроде:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
mindelta = summa
x1 =  0 
y1 =  0 
for y =  200  to  390 
  x = round(чего_то_там(summa, y),  0 )
  if x >=  1000  and x <=  4000  then
    s = вычислить_сумму(x, y)
    if abs(s - summa) < mindelta then
      mindelta = abs(s - summa)
      x1 = x
      y1 = y
    endif
  endif
next
' решение (если оно вообще существует) - в x1 и y1
...
Рейтинг: 0 / 0
21.01.2011, 15:28
| Ответить | Цитировать | Написать  
Уравнение с 2 неизвестными
    #37071987
Firazim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Firazim
Гость
Serg_77m,

Огромное спасибо! проверю отпишусь!
...
Рейтинг: 0 / 0
21.01.2011, 16:55
| Ответить | Цитировать | Написать  
Уравнение с 2 неизвестными
    #37077075
Firazim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Firazim
Гость
Firazim,

к сожалению не разобрался. как то это все не то!

Светлые умы, помогите пожалуйста!
...
Рейтинг: 0 / 0
25.01.2011, 11:41
| Ответить | Цитировать | Написать  
Уравнение с 2 неизвестными
    #37077192
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Firazim,

naimedkol cena summaновая ценаРозвантажувальні / перевантажувальні роботипалета348 200до39019,567862.9Розвантажувальні / перевантажувальні роботикороб2665 от1000до40005,0113351,652.5Переборка коробівкороб2665 от1000до40004,9913298,352.1Разом:33436ПДВ (20%):6687,2Всього:40123,240123.2
...
Рейтинг: 0 / 0
25.01.2011, 12:11
| Ответить | Цитировать | Написать  
Уравнение с 2 неизвестными
    #37077327
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Firazim,

при новой средней цене=3(с ндс)

суммарное число х+у+у=40123.3=13400 штук

-ваши границы не корректны
-смотри пример с макросом м110125_1254
...
Рейтинг: 0 / 0
25.01.2011, 13:03
| Ответить | Цитировать | Написать  
Уравнение с 2 неизвестными
    #37079250
Firazim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Firazim
Гость
ПЕНСИОНЕРКА,

Спасибо!
...
Рейтинг: 0 / 0
26.01.2011, 12:24
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Уравнение с 2 неизвестными
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37069713&tid=2159023]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 36ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 14ms
total:  142ms
созд. / загр.: 142ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]