oneTwoThree()

one_two_three()

--------------
Перем МассивСтупенек;

Процедура КнопкаВыполнитьНажатие(Кнопка)
    
    МассивСтупенек = Новый Массив;
    МассивСтупенек.Добавить(1);
    МассивСтупенек.Добавить(0);
    МассивСтупенек.Добавить(1);
    МассивСтупенек.Добавить(1);
    МассивСтупенек.Добавить(0);
    МассивСтупенек.Добавить(1);
    
    
    Сообщить(ПодсчетВариантов(0));
    
КонецПроцедуры

Функция ПодсчетВариантов(Ступенька)
    
    
    Если Ступенька + 1 = МассивСтупенек.Количество() Тогда
        Возврат 1;
    ИначеЕсли Ступенька >= МассивСтупенек.Количество() Тогда
        Возврат 0;
    КонецЕсли;
    
    ПравильныхХодов = 0;
    
    Если Ступенька+2 >= МассивСтупенек.Количество() Тогда
        Возврат ПравильныхХодов;
    КонецЕсли;
    
    Если МассивСтупенек[Ступенька+2] = 1 Тогда
        ПравильныхХодов = ПравильныхХодов + ПодсчетВариантов(Ступенька+2);
    КонецЕсли;
    
    Если Ступенька+3 >= МассивСтупенек.Количество() Тогда
        Возврат ПравильныхХодов;
    КонецЕсли;
    
    Если МассивСтупенек[Ступенька+3] = 1 Тогда
        ПравильныхХодов = ПравильныхХодов + ПодсчетВариантов(Ступенька+3);
    КонецЕсли;
    
    
    Возврат ПравильныхХодов;
    
КонецФункции
--------------

Это какой темой?

Шутка дня от человека, который только из под одного своего профиля оставил на форуме больше 30ти тыс. сообщений.

#pragma comment (lib, "Uuid.Lib")

Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long

Private Const WM_CHANGEUISTATE As Long = &H127

Private Const UIS_SET As Long = 1
Private Const UIS_CLEAR As Long = 2
Private Const UIS_INITIALIZE As Long = 3
Private Const UISF_HIDEFOCUS As Long = 1
Private Const UISF_HIDEACCEL As Long = 2
Private Const UISF_ACTIVE As Long = 4

Private Sub Form_Load()
SendMessage Me.hWnd, WM_CHANGEUISTATE, UIS_SET Or ((UISF_HIDEACCEL Or UISF_HIDEFOCUS) * (2 ^ 16)), 0&
End Sub

CMyObject M;
try {
   ...
}catch(...)
{
}

try {
   CMyObject M;
   ...
}catch(...)
{
}

Цитата (D_KEY @ 12.03.10, 01:06)

Гуманизм уходит корнями в античность, а активно развиваться стал в эпоху возрождения.

И вообще интересно, убийца, убившей десять человек, должен учить гуманности профессионального киллера, убившего сотню?

    pCLHH=reinterpret_cast<HOOKPROC>(GetProcAddress(hLib,"CLHH@12"));

Цитата

Жертв РПЦ на порядок меньше, чем католической.

Это к вопросу кому и кого учить гуманности.

extern "C" __declspec(dllexport)LRESULT CALLBACK CLHH(int nCode, WPARAM wParam, LPARAM lParam); 
BOOL APIENTRY DllMain( HMODULE hModule,
                       DWORD  ul_reason_for_call,
                       LPVOID lpReserved
                     )
{
    switch (ul_reason_for_call)
    {
    case DLL_PROCESS_ATTACH:
    case DLL_THREAD_ATTACH:
    case DLL_THREAD_DETACH:
    case DLL_PROCESS_DETACH:
        break;
    }
    return TRUE;
}

LRESULT CALLBACK CLHH(int nCode, WPARAM wParam, LPARAM lParam)
{
    if(wParam==WM_CHAR)
    {
        MessageBox(0,(char*)lParam,"",MB_OK);
    }
    return CallNextHookEx(NULL, nCode, wParam, lParam);
}

Цитата (_nic @ 11.03.10, 21:54)

по разговору лет 16,

char URL[] = "http://forum.sources.ru";
URLDownloadToFile(0,URL,"C:/1.txt",0,0);

<p><font color="Red" size="+1">Ошибка РїСЂРё РґРѕР±Р°РІР»РµРЅРёРё Р·Р°РєР°С‡РєРё.

WebBrowser1.Navigate('c:.doc');

то есть на видео подается напряжение 12вольт?

Хотя вот только что попробовал на другой материнке - Gigabyte GA-K8NF-9/ В итоге комп с 5670 опять не стал грузиться

- бандюки (различных национальностей), которым сей инстрУмент нужен 'для работы': запугивания и т.п.

- сынки шишек и прочие чмыри, которые любят кичиться своей избранностью и безнаказанностью.

- люди с идеальной биографией и лишними бабками. при этом условия будут такие, что им страшнее будет выстрелить, чем не стрелять.