От 0000 до 9999

Discussion in 'Болталка' started by хoхa99, 12 Jul 2011.

  1. DooD

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

    Joined:
    30 Sep 2010
    Messages:
    1,168
    Likes Received:
    442
    Reputations:
    288
    турбо паскаль
    Code:
     
    uses crt;
    var i:integer;
    f:text;
    begin
    assign(f,'123.txt');
    rewrite(f);
    for i:=0 to 9999 do
    writeln(f,i);
    close(f);
    end.
    
     
    #21 DooD, 13 Jul 2011
    Last edited: 13 Jul 2011
  2. mailbrush

    mailbrush Well-Known Member

    Joined:
    24 Jun 2008
    Messages:
    1,997
    Likes Received:
    996
    Reputations:
    155
    DooD, твоя программа будет писать от 0...50...100...9999, а надо 0000...0050...0100...9999

    JavaScript :D
    PHP:
    <script>
    for(var 
    0<= 9999i++)
    {
     
    num i.toString();
     
    zeros = new Array(num.length);
     
    document.write(zeros.join("0") + num "<br>");
    }
    </script>
    Ins3t, fixed :)
     
    #22 mailbrush, 13 Jul 2011
    Last edited: 13 Jul 2011
  3. Ins3t

    Ins3t Харьковчанин

    Joined:
    18 Jul 2009
    Messages:
    939
    Likes Received:
    429
    Reputations:
    139
    а почему открывающий тег script, а закрывающий php? =))
     
  4. sn0w

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

    Joined:
    26 Jul 2005
    Messages:
    1,023
    Likes Received:
    1,309
    Reputations:
    327
    ххахах, ждем спеца по брейнфаку :D:D:D
     
  5. heks

    heks Banned

    Joined:
    24 Aug 2007
    Messages:
    713
    Likes Received:
    95
    Reputations:
    12
    пер в студию
     
  6. SeNaP

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

    Joined:
    7 Aug 2008
    Messages:
    378
    Likes Received:
    69
    Reputations:
    20
    Мой первый скрипт на перл :D
    PHP:
    open FILE'>>file.txt';
    for(
    $i 0$i<=9999$i++)
    {
        
    $str sprintf "%04d\n",$i;
        print  
    FILE $str;
    }
    close FILE;
    UDP: Ой оказывается уже был пост от krypt3r :(
     
    #26 SeNaP, 13 Jul 2011
    Last edited: 13 Jul 2011
  7. RexTiam

    RexTiam Member

    Joined:
    2 Nov 2009
    Messages:
    117
    Likes Received:
    45
    Reputations:
    5
    Code:
    							
    тут был код на брейфаке...пытаюсь решить проблему
    брейнфак заказывали? :D

    блин, ошибка...выводит 1...50...100....
     
    #27 RexTiam, 13 Jul 2011
    Last edited: 13 Jul 2011