Чужди мисли от деня

Днес това ми хареса много:
==================================
В “Денят не си личи от заранта” на Б.Райнов има един интересен пасаж. Полицески офицер съветва демонстрантка против войната: „ Тази война ще свърши, но не защото вие го искате, а защото няма такава война, която е започнала и не е свършила. И ще свърши не когато ти го искаш… а когато шефовете решат.”
Ако го перифразираме това ще звучи така: „Тази криза ще свърши, защото няма такава криза която е започнала и не е свършила. Но не защото вие го анализирате и предричате. Кризата ще свърши когато шефовете решат.”
Очевидно, докато не изтече водата…криза ще има.
===================================

Демократична ли е демокрацията, след като е управление на управляваните

"Най-големият български парадокс е, че нарочваме управляващите за виновни, когато нещо не е наред с демокрацията ни. Ние сме виновните. Защото тя е управление на управляваните, наше управление. И не ни обещава нищо повече от това, което сами си извоюваме да имаме. За съжаление – нищо повече от това, което заслужаваме."

Веселина Седларска

14.01.2012

Прости числа - генератор на прости числа

Макроса по-долу генерира всички прости числа по-малки или равни на числото написано в клетка А1

Sub PrimeUpToA1()
'генерира всички прости числа по-малки или равни на числото написано в клетка А1
'резултатът се записва в колона 8 H като започва от ред 1, т.е. от клетка H1 надолу
Dim S() As Boolean
n = Sheet1.Cells(1, 1)
ReDim S(2 To n) As Boolean
For i = 2 To n
S(i) = True
Next i
For i = 2 To n / 2
If S(i) Then
k = 2
j = k * i
While j <= n
S(j) = False
k = k + 1
j = k * i
Wend
End If
Next i
m = 1
For k = 2 To n
If S(k) Then
Sheet1.Cells(m, 8) = k
m = m + 1
End If
Next k

End Sub

Прости числа - проверка дали едно число е просто

Функция в exsel показваща дали едно число е просто или не:

Function IsPrimeNumber(n)
'резултатът е true ако числото n е просто и false в противен случай
Dim S() As Boolean
ReDim S(2 To n) As Boolean
For i = 2 To n
S(i) = True
Next i
For i = 2 To n / 2
If S(i) Then
k = 2
j = k * i
While j <= n
S(j) = False
k = k + 1
j = k * i
Wend
End If
Next i
IsPrimeNumber = S(n)
End Function

11.11.11 - !!!!

АПОФЕНИЯ - това е човешки дефект на мисленето, който се състои в намирането на връзка между несвързани събития.
Някои обичат да го наричат поличба, но е мозъчен бъг.

Проблем с boot-ване след използване на windows loader

Windows 7 не се стартира след използване на windows 7 loader.

Виж това

или директно използвай bootsect /nt60 all от инсталационен диск с windows 7 през command prompt.

Извод: ИЗПОЛЗВАЙТЕ ЛИЦЕНЗИРАН СОФТУЕР.

Управление на правата в регистрите на windows 7 64 bit

Управление на правата в регистрите на windows 7 64 bit

При мен се чупят правата върху ключове от HKEY_CLASSES_ROOT\TypeLib и по точно върху HKEY_CLASSES_ROOT\TypeLib\{0002E157-0000-0000-C000-000000000046}
За това примерите по-долу са дадени за тези ключове, но нещото трябва да работи за всички ключове от registry. Номерът е да знаеш кои са тези ключове.

1. Сваляме това
2. Използваме някоя (или всички) от следните команди за счупените ключове в регистъра:
Присвочване на собствеността върху ключовете:
setacl -on "HKEY_CLASSES_ROOT\TypeLib" -ot reg -rec yes -actn setowner -ownr "n:Administrators"
Даване на пълни права на администраторите:
setacl -on "HKEY_CLASSES_ROOT\TypeLib" -ot reg -rec yes -actn ace -ace "n:Administrators;p:full"
Даване на права за четене на обикновените потребители:
setacl -on "HKEY_CLASSES_ROOT\TypeLib" -ot reg -rec yes -actn ace -ace "n:users;p:read"