1. Pascal / Говнокод #8221

    +148

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    program analize_methods;
    uses dos,crt;
    const amax=10000;
    type ar=array [1..amax] of integer;
    ar3=array [1..3] of ar;
    var a:ar3;b:^ar3;
    time:array [1..2,1..3] of real;
    hour,min,sec,sec100:word;
    r,r1,r2:real;
    ns,i,k:integer;
    f:text;
    
    {ЊҐв®¤ б®авЁа®ўЄЁ vyborom)}
    procedure vybor(var m:ar);
    var i,j,x,p:integer;
    begin
    for i:=1 to amax-1 do
    begin
    p:=i;
    x:=m[i];
    for j:=i+1 to amax do
    if x>m[j] then
    begin
    p:=j;
    x:=m[j];
    end;
    m[p]:=m[i];
    m[i]:=x;
    end;
    end;
    
    { б®авЁа®ўЄ  ўбв ўЄ®© }
    procedure Inser(var item:ar; count:integer);
    var
    i,x,j: integer;
    begin
    for i := 2 to count do
    begin
    x := item[i];
    j := i-1;
    while (x<item[j]) and (j>0) do
    begin
    item[j+1] := item[j];
    j := j-1;
    end;
    item[j+1] := x;
    end;
    end;  { Є®­Ґж б®авЁа®ўЄЁ ўбв ўЄ®© }

    Это человек на собеседовании написал. Задача была - реализовать асинхронный ввод в 1С

    Запостил: alexoy, 17 Октября 2011

    Комментарии (25) RSS

    • что за брет о_О
      Ответить
    • Є®­Ґж б®авЁа®ўЄЁ ўбв ўЄ®© alexoy, ЊҐв®¤ б®авЁа®ўЄЁ vyborom), блять, б®авЁа®ўЄ ўбв ўЄ®©
      Ответить
    • а может, ну его в баню?
      Ответить
    • > асинхронный ввод в 1С
      Node.1c Bsod.1c
      Ответить
    • Overlaped IO?
      Ответить
    • >uses dos,crt;
      Где здесь 1С, турбо паскалист?
      Ответить
    • алехуй даже не умеет копировать русский текст из дельфы
      в бан
      Ответить
      • ты паскаль от дельфи уже не отличаешь?
        фуу, тарасег. не ожидал я от тебя такого...
        >uses dos,crt
        Ответить
        • Ой, кодировочка-то досовская.
          Всё равно, алехуй, иди в бан учиться пользоваться ФАРом.
          Ответить
    • AlҐxг© - вл Њг¤aЄ.
      Ответить
      • Что это?
        Ответить
        • два стека
          Ответить
        • показать все, что скрытоБ̸͓̱̥̺̜͓̗̗͉̰̺̥̽̌ͧ̅͛ͪ͊̊̌ͪ́͜͟͜О̷̸̨͖̙ͣ͌ͧͫ͛͠ ͈͙͈͚Л̡̮͕̗̠̺̺͕̩́̇ͦ̿̄̚ͅЬ͗̉ͣ̑ͧ̔̔̏ͯ̔̈́̍̈́̎̔͒̒͠ ̸̢̺͚̜̭͍̻̞̭̟͙͙͕ͅШ̵͈̪͚̦̉͆ͪ͒͛ͬ̎̔̈̈̊͘̕͠Е̏̿́̌ ̩͔͎̼̲̠̰̠̼̞͗̍ͭͩͭ̚͢͡͡ͅ ̢̼͉̲ͦͮ̉ͣ̍ͭ̔ͮͥ̌̽ͫ̓ͯ̀͟͞К̧ͭ́̎̑̈̿̄̑͛̉͐̂̇ͮ͡͡͏ ̶͉͚̹̞̣͙͖̬̘̪͚͍̦ͅР̢̤̝̻̠̳͖̫̩͕͎̗̱͙ͪͪ̈́̏̒̏̈́͘͝͞ ͚͈О̜̩̻̯̠̥̬̟̠͍̓̊ͥͣ̊ͧ̄̓ͭ̏̀̕͜В̈ͥ͆ͥ͑̓̈̓͌̊̾͢͠ ҉͏̳̱̩̫͇̞̲̹̟̝͕̼̖͖̪͓͙̗И̧̎ͮ̈́̊ͣ̍ͦ̂̃ͯͦ̀̔̓̃͛̀͜ ̴̦͖͓̮̲̣̥̝̱͍̳̬̪͙ ̷̛̥̳̞̰͕̯͔̣̤̞̼̝͓͆ͦ̿̇̓ͨ̚͘Д̧̨̛̞̬̟̱̬̠̌̋͂ͬ͂ͮ̚ ͖̠̳͉͚͚̗͚̗Л̵̸̝̤̜͇̦̪͎̞̹ͮ̐̎̓̈̌̀Я̑̓ͯ̅̿̎̂͐̓̔̅ ̱̺̫̼̻̘̝͍͎̣̩͕̹̓̎͘ ̸̶̻̮̘̙̤͚̣̰͍̗̏̎́͑͌́ͅБ̢͉̞̥͇̝̫̙̰̩͉̔͑ͮ̉̒̿͒́͟ ̪̗̺̟О̸̢̛͚̣͈͎̻͐̿̐ͮͩ̍͟Г̛̳̥̗͍̥̻̫̗̟̾̉ͧ̾̽ͪ̾͘͞ ̝А̊̇̽͏̸̺͖͔͉̬͕̼̥̱̤͠ ̵̧̟͉̭̣̫̳͖̼̲̙̭̭̮̱͇̪̯̏̈́̅͂̓̆͆ͬ͑̏̆̀̔ͦ͝͠͡Zͣͮ̐ ̶̡͔͚͉̺̖ͦ̑̊͜ͅA̸̘̖̻̯̮̭̝̥̫͚͈̯̩̥̲̿̂̽̒̉͌̓͂͝L͒ ̯̟̹̩̺̻̓ͤ͛̌̒̓͋̌͆̈́͑̆ͯ͗ͭͣ́͢͢͡Ǵ̴̡̫͙̫̼͙͇̙̋ͪ͌ ̹̹̣̻̰O̶̻̜̟͙̟̠͍̰͍͍̺̫̼̮͖ͪ̽ͪ̎̒̏͝
          Ответить
        • показать все, что скрытоты слишком тупой для виртуала
          Ответить
    • р)C:O.A?BK!G R,A!D$P"I:Y)J?G:E.I,K"J.Y$R(V(G L"C)W:P.N:U!Y?V$CU!L(S)V,Y.Q!B,R.JR$K H)K"U:C!G)W"A"ZD$U:S$U!J B(K)Q!J)A G)S"X.W(Q!K!Y$Q R,H$X?Q?B.F(S?X,B"V"C:G)M:X"P(Y(O.C$I!D: H)N,M I$YP(B!M?S W?B?S?I"G?J,L(L.E!A?VN,H L!I.J"U"F(M!U"W R:D.I"W(K.E(H WL)A!Y?P MYZN(E.MM!P!O,R?KZ:P:X(A?Z"J:GT(P(Z.O?H. R.B:W"P.S!KT.C$R.H!I!W?D?S.P:P(F)I$K!J R?X.C!P I"S.V(BU:WЫUVTTEWFFGAJAKKNONWMSIZEEFTXLE WGKBHXPBPTPFJGELDGHLAPAVWWEMTDYTFVJVYHJT HMJAVNMEILSWMYHEPVPQYNPSCLCNDPLHQCT
      Ответить

    Добавить комментарий