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

    +99

    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
    var
  i,c,b,f:integer;
  str:string;
procedure TForm1.codir;
begin
b:=1;
f:=1;
c:=length(edit1.Text);
str:=edit1.Text;
repeat
i:=ord(str[f]);
case i of
0:inc(i);
1:inc(i);
2:inc(i);
3:inc(i);
4:inc(i);
5:inc(i);
6:inc(i);
7:inc(i);
8:inc(i);
9:i:=0;
end;

Delete(str, b, 1);
Insert(inttostr(i),str,b);
inc(b);
inc(f);
until b=c;
edit2.Text:=str;
end;

    Запостил: bugmenot, 19 Марта 2011

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

    • ava bugmenot 19.03.2011 07:03 # +1

      [opisota]
      дана строка из чисел. нужно сделать так чтобы каждый символ в этой строе был увеличен на 1.
      я чёта наделал не то, что у меня программа зависает и оперативку забивает.
      [/opisota]

      такие дела...
      Ответить

    • ava bugmenot 19.03.2011 07:12 # +1

      альзо, это - брендовый говнокод от автора #3422
      learning curve такая курва
      Ответить

    • ava CO3HAHUE 11.12.2011 21:05 # 0

      Круто!
      Ответить

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