подскажите возможно написать программу ?

[3fx]

для ввода данных для сложения можно и до 10 луч. больше
вводить данные
x+1+2+y+3=13
с мин. 2 неизвестными
получать ответ
x=1 y=6
x=2 y=5
x=3 y=4
x=5 y=2
x=6 y=1
x=7 y=0
x=0 y=7
если да на чем ? куда копать ? поподробнее если можно пж.

[p51x]

Прочитайте свой пост и еще раз сформулируйте задачу. Т.к. 1 + 1 + 2 + 3 + 6 != 10

[Аватар]

подскажите возможно написать программу ?

Конечно. Вот вводная страшилка - линейные диофантовы уравнения )

[kvitaliy]

Сообщение от 3fx

если да на чем ?

Конечно да. И на чем угодно.
Задача сводится к обычному перебору решений.
1 x+1+2+3+y=10
2 x+6+y=10
3 x+y=4
мы узнали сумму неизвестных, теперь программа покажет все ответы

Sum = InputBox("Сумма неизвестных x+y ", "", "")
For x = 0 To Sum
y = Sum - x
Ans = Ans &  x  & " - " &   y  & vbCrLf
Next
MsgBox Ans

Этот код нужно сохранить в виде файла с любым именем и расширением vbs,
например uravn.vbs
Запустить и увидеть решение.
123.png

[3fx]

ошибся, исправил, из последних сил писал, перед сном

[3fx]

Сообщение от kvitaliy

Конечно да. И на чем угодно.
Задача сводится к обычному перебору решений.
1 x+1+2+3+y=10
2 x+6+y=10
3 x+y=4
мы узнали сумму неизвестных, теперь программа покажет все ответы

Sum = InputBox("Сумма неизвестных x+y ", "", "")
For x = 0 To Sum
y = Sum - x
Ans = Ans &  x  & " - " &   y  & vbCrLf
Next
MsgBox Ans

Этот код нужно сохранить в виде файла с любым именем и расширением vbs,
например uravn.vbs
Запустить и увидеть решение.
Вложение 96512

спс, поможет, говори номер скину на пивасик) а возможно вывод ответов иметь более 93 или 104- тут значения скачут ?

[kvitaliy]

Сообщение от 3fx

говори номер скину на пивасик)

Не, это не мой бизнес

Сообщение от 3fx

а возможно вывод ответов иметь более 93 или 104

У меня на экране умещается не более 40 ответов. Но то что остальные не видно, это не значит, что их нет (про суслика знаешь?). Все можно посмотреть, если скопировать ctrl + C, а потом вставить в редактор, хоть в Блокнот Ctrl+V

[Serge_Bliznykov]

Сообщение от kvitaliy

меня на экране умещается не более 40 ответов. Но то что остальные не видно, это не значит, что их нет (про суслика знаешь?). Все можно посмотреть, если скопировать ctrl + C, а потом вставить в редактор, хоть в Блокнот Ctrl+V

а можно и сразу в текстовый файл ответы записать.

Например, так:

Sum = InputBox("Сумма неизвестных x+y ", "", "")
For x = 0 To Sum
y = Sum - x
Ans = Ans &  x  & " - " &   y  & vbCrLf
Next

Set objFSO=CreateObject("Scripting.FileSystemObject")
outFile="solutions.txt"
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write Ans
objFile.Close

MsgBox "Файл solutions.txt создан"

[3fx]

Сообщение от kvitaliy

Не, это не мой бизнес


У меня на экране умещается не более 40 ответов. Но то что остальные не видно, это не значит, что их нет (про суслика знаешь?). Все можно посмотреть, если скопировать ctrl + C, а потом вставить в редактор, хоть в Блокнот Ctrl+V

так и сделал, но всего 102 мах

[3fx]

Сообщение от Serge_Bliznykov

а можно и сразу в текстовый файл ответы записать.

Например, так:

Sum = InputBox("Сумма неизвестных x+y ", "", "")
For x = 0 To Sum
y = Sum - x
Ans = Ans &  x  & " - " &   y  & vbCrLf
Next

Set objFSO=CreateObject("Scripting.FileSystemObject")
outFile="solutions.txt"
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write Ans
objFile.Close

MsgBox "Файл solutions.txt создан"

оооо а если в txt писать то вроде любое количество пишет, спс, вопрос решен