1. Куча / Говнокод #2893

    +123.2

    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
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    96. 96
    97. 97
    98. 98
    99. 99
    uses windos, crt;
label code1;
var start: char;
    pr: shortint;
    code: integer;
    z, k, p, c, x: longint;
    h, m, s, hund: word;
    st: string;
    i:comp;
function time(w : word) : string;
var s : string;
begin
 str(w:0, s);
 if length(s) = 1 then s:='0'+s;
 time:=s;
end;
procedure rdtsc(var tsc:comp); assembler;
asm
db $0f, $31
les di, tsc
mov [es:di+0], ax
db $66, $c1, $e8, $16
mov [es:di+2], ax
mov [es:di+4], dx
db $66, $c1, $ea, $16
mov [es:di+6], dx
end;
begin
textcolor(white);
write ('Start?(y/n) '); readln (start);
if start<>'y' then halt;
code1:
z:=14000005; c:=round(z/100); p:=c; pr:=0; k:=0; textcolor(10);
gettime(h, m, s, hund);
st:=time(h)+time(m)+time(s)+time(hund);
val(st, x, code);
        if code<>0 then
        begin
        clrscr;
        textcolor(12);
        writeln ('CODE=', code);
        writeln (h, m, s, hund);
        goto code1;
        end;
rdtsc(i); i:=i+x*41+x+5;

   while z<>k do
   begin
   str(i, st);
   st:=copy(st, 6, 4);
   val(st, i, code);
                if code<>0 then
                begin
                clrscr;
                textcolor(12);
                writeln ('CODE=', code);
                writeln ('ST=', st);
                goto code1;
                end;
   i:=i*i+h*104+hund*73+x;
                if i=0 then
                begin
                textcolor(12);
                writeln ('K=', k);
                delay(50000);
                goto code1;
                end;
   k:=k+1;
          if k=p then
          begin
          p:=p+c;
          pr:=pr+1;
          clrscr;
          writeln ('STATUS: ', pr, '%');
          end;
   end;
x:=round(i); textcolor(white); writeln ('Result X=', x); textcolor(yellow);
                  while x>=10 do
                  begin
                  str(x, st);
                  z:=length(st);
                  x:=0;
                       for k:=1 to z do
                       begin
                       start:=st[k];
                       val(start, pr, code);
                                  if code<>0 then
                                  begin
                                  clrscr;
                                  textcolor(12);
                                  writeln ('CODE=', code);
                                  write ('START=', start);
                                  goto code1;
                                  end;
                       x:=x+pr;
                       end;
                  end;
write ('Result=', x); readln
end.

    Генерация случайного числа от 1 до 9 на Turbo Pascal. Свистоперделки прилагаются. Спешите поблевать! Делал сам. Такое вот задание попалось мне в лаб. работе на 4-м курсе. Хотя паскаль изучал лишь в школе, позиция препода уникальна: "Вы должны уметь всё!", хотя дрочим лишь C#, Java и асм.

    Запостил: killerman_yar, 29 Марта 2010

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

    • ava guest 29.03.2010 23:11 # 0

      "уметь всё" это писать на полумёртвом языке для школьников будучи в анальном рабстве интела?

      да, а вдруг и содомия пригодится?
      Ответить

      • ava killerman_yar 30.03.2010 00:33 # +0.8

        Вот и я о том же. Хотя, скорее всего, он дал мне этот вариант из-за личной неприязни, т.к. я не в ладах с ним еще со 2-го курса. В общем, наглядный пример маразма преподавателей.
        Ответить

    • ava guest 30.03.2010 08:14 # −0.8

      Школота.
      Ответить

      • ava guest 31.03.2010 13:14 # −1.2

        Опять школота разбушевалась. Снова минусует!
        Ответить

    • ava guest 30.03.2010 15:53 # +1.2

      Тут есть раздел по дельфям - постите туда.
      Ответить

    • ava guest 30.03.2010 17:20 # 0

      спасибо, поржал
      Ответить

    • ava TarasB 02.04.2010 21:05 # +0.2

      "asm ... db" тут очень в тему, да.
      Ответить

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