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

    +128.5

    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
    program kot;
    
    var r,i,j, z : integer ;
     famnom: array[1..11,1..26] of char;
    Label lb1, lb2;
    
        begin
    
    Assign(input, 'c:\pascal\kot.txt');
    Reset(input);
     Assign(output, 'c:\pascal\tok.txt');
    Rewrite(output);
    for j:=1 to 10 do
    for i:=1 to 26 do           (*каждому символу присваивается свой номер в массиве*)
    
     begin
     read(input,famnom[j,i]);
     write(famnom[j,i]);        (*исходные данные копируются в файл*)
     end;
    
    writeln('');
    writeln('');
    close(input);
    
    Assign(input, 'c:\pascal\kot.txt');
    Reset(input);
    begin
    
    
    lb1 :   for j:=1 to 10 do
    begin
          i:= 16;                            
    while famnom[j,i]=famnom[j+1,i] do      
    i:=i+1;                               (*блабла*)
    if  famnom[j,i]<famnom[j+1,i] then    
    begin
    for i := 1 to 26 do
    begin
    famnom[11,i]:=famnom[j,i];            (*сравниваются символы короч*)
    famnom[j,i]:=famnom[j+1,i];
    famnom[j+1,i]:=famnom[11,i];
    
    
    end;
    goto lb1;
    end;
    end;
    end;
    
    for j:=1 to 10 do                
    for i:= 1 to 26 do
    begin
    write(famnom[j,i]);
    
    end;
    close(input);
    close(output);
    end.

    Ужас какойто

    Запостил: guest, 23 Июля 2009

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

    • И что ужасного? обычный пасцаль...
      Ответить
    • автор бил себя в грудь что написал рекурсивный метод считывания массива, и его было сложно переубедить
      Ответить
    • проделки школоты?
      Ответить
    • Ничего конкретного, но все как-то через жопу.
      Например, зачем два раза считывать вводные данные?
      Ответить
    • Напоминает лабораторные по Паскалю с первого курса института.
      Ответить
    • Большая часть программистов (язык - любой) продолжают какать в таком стиле перманентно.
      Это сейчас - ужас. Потом привыкнете. Как паталогоанатомы к трупам.
      Ответить
    • output файл остался пустым)
      Ответить
    • Переработка кота в ток
      Ответить

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