Programming Battle [Конкурс]

Discussion in 'Болталка' started by OnlyOn, 21 Feb 2011.

?
  1. _Logger_

    1 vote(s)
    3.4%
  2. RoboNet

    1 vote(s)
    3.4%
  3. decaf200

    0 vote(s)
    0.0%
  4. realcoder

    0 vote(s)
    0.0%
  5. rudi

    2 vote(s)
    6.9%
  6. FewG

    0 vote(s)
    0.0%
  7. X-rus

    2 vote(s)
    6.9%
  8. Mr.Replica

    2 vote(s)
    6.9%
  9. j-prof

    0 vote(s)
    0.0%
  10. GhostOnline

    2 vote(s)
    6.9%
  11. Shadow67

    0 vote(s)
    0.0%
  12. PabloPicasso

    0 vote(s)
    0.0%
  13. AnGeI

    9 vote(s)
    31.0%
  14. fl00der

    0 vote(s)
    0.0%
  15. waik

    0 vote(s)
    0.0%
  16. LStr1ke

    1 vote(s)
    3.4%
  17. агерон

    0 vote(s)
    0.0%
  18. MaTpOc

    0 vote(s)
    0.0%
  19. Ins3t

    1 vote(s)
    3.4%
  20. Другие

    8 vote(s)
    27.6%
  1. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    Ins3t ыыы если честно я думал об этом, но не добавил потому что перевод на английский фразы "фапать на ..." застал меня врасплох
     
  2. waik

    waik Elder - Старейшина

    Joined:
    2 Nov 2008
    Messages:
    405
    Likes Received:
    163
    Reputations:
    12
    Code:
    d:integer;
    for i:=1 to d do d:=d+1;
    
     
  3. OnlyOn

    OnlyOn Banned

    Joined:
    18 Oct 2010
    Messages:
    252
    Likes Received:
    89
    Reputations:
    36
    Убило) У меня сразу ассоциация с вирем hello world пошла и тут-же упал со стула :D
     
  4. LStr1ke

    LStr1ke Elder - Старейшина

    Joined:
    29 Jul 2009
    Messages:
    800
    Likes Received:
    145
    Reputations:
    73
    PHP:
    <?php
    include('/antichat/class/engine.class.php');
    $system = new engine();
    $users $system->getUsersFromTopicId(260610);

    if(
    $users[0]['status'] == 'Лох') {
     echo 
    'Ok'
    } else {
     echo 
    'Bad';
    }
    ?>
    // Гыгы блять
     
  5. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Жестко блядь)))))))))
     
  6. OnlyOn

    OnlyOn Banned

    Joined:
    18 Oct 2010
    Messages:
    252
    Likes Received:
    89
    Reputations:
    36
    да ну тя нах)
     
  7. xtrema

    xtrema New Member

    Joined:
    30 Aug 2009
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    Code:
    ++++++++++[>+++++++>++++++++++>+++>+<<<<-]>   ++ .>+.+++++++..+++.>++.<<+++++++++++++++.>.+   ++. ------.--------.>+.>.
    brain fuck
     
  8. rudik777

    rudik777 Active Member

    Joined:
    24 May 2009
    Messages:
    0
    Likes Received:
    142
    Reputations:
    2
    :D :D отмочил
     
  9. .::f-duck::.

    .::f-duck::. Member

    Joined:
    30 May 2009
    Messages:
    343
    Likes Received:
    32
    Reputations:
    7
    Не установлено начальное значение d :confused:
     
  10. sn0w

    sn0w Статус пользователя:

    Joined:
    26 Jul 2005
    Messages:
    1,021
    Likes Received:
    1,189
    Reputations:
    327
  11. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    var
    p: Pointer;
    ....................
    while (true <> false) and (1 <> 0) and (High(Cardinal) - High(integer) > High(Byte)) do
    p := GetMemory(1);
    Sleep(INFINITE);
     
  12. Shadow67

    Shadow67 Banned

    Joined:
    21 Jul 2009
    Messages:
    0
    Likes Received:
    2
    Reputations:
    0
    Code:
    procedure i_am_win ;
    begin
    ShowMessage('Йа выиграл  :)  ');
    end;
    

    Code:
    procedure xz;
    var x:integer;
    begin
    while true do
     begin
     if messagedlg('Новая версия Windows  10 установлена на ваш компьютер. Запустить?',mtconfirmation,[mbyes,mbno],0)=mrno
      then break;
    
    textout(getdc(0),screen.width div 2,screen.Height div 2,
    'Загрузка..',10);
    application.ProcessMessages;
    sleep(2000);
    
    for x:=1 to 1000 do
    begin
     SendMessage(application.Handle,
    WM_SYSCOMMAND,SC_MONITORPOWER,2);
     sleep(200);
    end;
    
     messagedlg('Завершение работы виндоус. '#10' Уничтожить компьютер?',mtconfirmation,[mbyes],0);
    
    end;
    
    end;
    
     
  13. realcoder

    realcoder Member

    Joined:
    9 Dec 2010
    Messages:
    226
    Likes Received:
    11
    Reputations:
    4
    Code:
    uses mmsytem;
    ....
    procedure hochu_pechenku;
    begin
    mciSendString('Set cdaudio door open wait', nil, 0, 0);
    if messageBox(0,'Печенькой угостиш?)','',MB_ICONQUESTION+MB_YESNO)=MRYES
    then
    begin
    mciSendString('Set cdaudio door closed wait', nil, 0,0);
    MEssageBox(0,'ням-ням спасибоi!','',MB_ICONINFORMATION+MB_OK);
    end else
    begin
    mciSendString('Set cdaudio door closed wait', nil, 0, 0);
    MEssageBox(0,'жмот((','',MB_ICONERROR+MB_OK);
    end;
    end;
    
     
  14. PabloPicasso

    PabloPicasso Banned

    Joined:
    2 Jan 2010
    Messages:
    88
    Likes Received:
    32
    Reputations:
    16
    думал как зарегить касперского 2011 по файлоключу, читал манулы, листал форумы
    короче, сегодня написал
    одно строчный проГ для реГ касперского из файла лицухи .key :)
    язык PBasic
     
    #34 PabloPicasso, 24 Feb 2011
    Last edited: 24 Feb 2011
  15. Problems?

    Problems? Member

    Joined:
    13 Jan 2011
    Messages:
    14
    Likes Received:
    9
    Reputations:
    5
    Delphi

     
    #35 Problems?, 24 Feb 2011
    Last edited: 24 Feb 2011
  16. fl00der

    fl00der Moderator

    Joined:
    17 Dec 2008
    Messages:
    1,028
    Likes Received:
    306
    Reputations:
    86
    PHP:
    <?php echo '<h1 align="center"><b><big><font color="red">XУЙ</font></big></b>'?>
     
    _________________________
  17. waik

    waik Elder - Старейшина

    Joined:
    2 Nov 2008
    Messages:
    405
    Likes Received:
    163
    Reputations:
    12
    Не помню я этот паскаль.
    Code:
     
    program xxx;
    var
     d,i:integer;
    Begin
      for i:=1 to d do
        d:=d+1;
    end.
    
     
  18. realcoder

    realcoder Member

    Joined:
    9 Dec 2010
    Messages:
    226
    Likes Received:
    11
    Reputations:
    4
    программа для решения любой проблемы:
    Code:
    program Problem;
    
    uses
    Windows, Messages, Controls, Dialogs;
    label o;
    begin
    if MessageDlg('Есть проблемы?',mtConfirmation,[mbYes,mbNo],0)= mrNo then
    Begin
    ShowMessage('Ну и не парься!');
    ShowMessage('НЕТ ПРОБЛЕМ!');
    End
    else Begin
    if MessageDlg('Ты тут замешан?',mtConfirmation,[mbYes,mbNo],0)= mrNo then
    Begin
    if MessageDlg('На тебя это повесили?',mtConfirmation,[mbYes,mbNo],0)= mrNo then
    Begin
    ShowMessage('Сиди тихо');
    ShowMessage('НЕТ ПРОБЛЕМ!');
    End Else Begin
    o: ShowMessage('Ты ТРИЖДЫ идиот!!!');
    if MessageDlg('Можешь на кого-нибудь это свалить?',mtConfirmation,[mbYes,mbNo],0)= mrYes then ShowMessage('НЕТ ПРОБЛЕМ!') Else GoTo o;
    End end
    else Begin
    ShowMessage('Ты идиот!');
    if MessageDlg('Об этом кто-нибудь знает?',mtConfirmation,[mbYes,mbNo],0)= mrNo then
    Begin
    ShowMessage('Концы в воду');
    ShowMessage('НЕТ ПРОБЛЕМ!')
    End else GoTo o;
    end end
    end.
    
     
  19. rudi

    rudi Active Member

    Joined:
    3 Jun 2010
    Messages:
    487
    Likes Received:
    184
    Reputations:
    5
    PHP:
    <?php
    while( "8==>" && "(.)_(.)" )
       
    $Fuck ++;
    ?>
     
  20. FewG

    FewG Member

    Joined:
    25 Dec 2009
    Messages:
    136
    Likes Received:
    12
    Reputations:
    0
    Ответ на главный вопрос Вселенной и всего прочего:

    Code:
    from random import randint
    
    def main(n = 1):
    
        if n > 0:
            question = "В чем смысл жизни, %username%?"
    
        else:
            question = input("\nВаш новый вопрос: ")
    
        cpu, ram = randint(90, 100), randint(90, 100)
    
        print("\n" + question + "\n\nДумаю... CPU-usage: {}%, RAM-usage: {}%\n\nОтвет: 42".format(str(cpu), str(ram)))
    
        while True:
    
            s = input("\n\nСпросить ещё? o_0 ")
    
            if (s.upper() == "Y"):
    
                main(0)
    
            elif (s.upper() == "N"):
    
                exit()
    
    if __name__ == "__main__": main()
     
Loading...