Maths £Kiii Stage Of Life------> q; TOO 1AJ1 Pearls 0/ pauNerdtipi / математика :: график :: взросление :: наука

Так то однохуйственно - VBScript

Можно находить с помощью рекурсии. На каждом шаге перебираются все возможные варианты для одной ячейки. Если появляется ячейка в которую нельзя вписать цифру, то выходим из текущего шага.

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

в общем сделал так: массив 9х9 забил 511 во все неизвестные (двоичное 111 111 111), в известных единичка только в одном бите (например если в клетке изначально 5, то Sud(Row,Col)=(000 010 000)=2^(5-1)=16 )

For Each cell In Field
If cell.Value = "" Then Sud(cell.Row - 5, cell.Column - 1) = 511 Else Sud(cell.Row - 5, cell.Column - 1) = 2 ^ (cell.Value - 1)
cell.Font.ColorIndex = 1
Next cell

потом каждую проверяем "если в том же ряду Х, то такой цифры быть здесь не может, гасим соотв.единичку"

prohodresult = 0

For Each cell In Field
If cell.Value = "" Then
If Lonenum(Sud(cell.Row - 5, cell.Column - 1)) 0 Then cell.Value = Lonenum(Sud(cell.Row - 5, cell.Column - 1)): cell.Font.ColorIndex = 44: prohodresult = 1

For Col = 1 To 9
If Col cell.Column - 1 And Field.Cells(cell.Row - 5, Col).Value "" Then
If Hasnumber(Sud(cell.Row - 5, cell.Column - 1), Field.Cells(cell.Row - 5, Col).Value) = True Then Sud(cell.Row - 5, cell.Column - 1) = Sud(cell.Row - 5, cell.Column - 1) - 2 ^ (Field.Cells(cell.Row - 5, Col).Value - 1): prohodresult = 1
End If
Next Col

то же по рядам и зонам 3х3
в итоге, если в клетке остается лишь один возможный вариант цифры, пишем его.

соответственно, после каждого такого прохода по 9х9 что-то меняется. в итоге либо решение либо дошли до момента когда ничего не меняется

тогда применяем второй вариант. "если в первом ряду цифра 1 не может быть ни здесь ни здесь, а только здесь, то пишем ее"
перебираем для всех цифр.
(да, я знаю, что Goto это стыдно, но без него нужно было так извернуться что я бы не потянул умственно)

For Row = 1 To 9
For Count = 1 To 9
Exhod(Count, 1) = 0
Exhod(Count, 2) = 0
Next Count
For Col = 1 To 9
If Lonenum(Sud(Row, Col)) = 0 Then
For Count = 1 To 9
If Hasnumber(Sud(Row, Col), Count) = True Then Exhod(Count, 1) = Exhod(Count, 1) + 1: Exhod(Count, 2) = Col
Next Count
End If
Next Col
For Count = 1 To 9
If Exhod(Count, 1) = 1 Then Field.Cells(Row, Exhod(Count, 2)).Value = Count: Sud(Row, Exhod(Count, 2)) = 2 ^ (Count - 1): Field.Cells(Row, Exhod(Count, 2)).Font.ColorIndex = 42: GoTo prohod
Next Count
Next Row

это же все для всех рядов, для всех колонок и для всех зон
ну и там уже комбинация 1 и 2 вариантов - либо решили, либо неверные данные либо стопорнулись (но такого почти никогда не было - изначально проверка что минимум 22 клетки, не знаю почему именно это число, давно это было)

(В ролях:
Dim Sud(9, 9) As Integer
Dim Exhod(9, 2) As Integer
Dim Count, Row, Col, sektorX, sektorY As Integer
Dim Field As Range
....
Function Hasnumber(osnova As Integer, Numer As Variant) As Boolean
...
Function Lonenum(osnova2 As Integer) As Integer...)

Так никто и не спорит. ЕГЭ - абсолютно ненужная и дебильная вещь. Мало того, что отвлекает от учебы, потому что на подготовку уходит минимум год (весь 11 класс), а то и два-три, так ещё и абсолютно не отображает реальной картины знаний. Я написал математику на 48 баллов всего (чуть выше минимального)! Хотя часть С (самая сложная) была решена полностью и были лишь небольшие ошибки в вычислениях (т.к. торопился), либо в записи, либо ещё в какой-нибудь мелочи. И я бы понял, если бы меня штрафовали на треть-половину баллов, но сняли ВСЁ! И по результату я - дурачёк, который может максимум 2 и 2 сложить