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

    • ava guest 23.07.2009 13:11 # −3

      И что ужасного? обычный пасцаль...
      Ответить

    • ava guest 23.07.2009 13:19 # 0

      автор бил себя в грудь что написал рекурсивный метод считывания массива, и его было сложно переубедить
      Ответить

    • ava guest 24.07.2009 08:09 # 0

      проделки школоты?
      Ответить

    • ava guest 05.08.2009 12:43 # 0

      Ничего конкретного, но все как-то через жопу.
      Например, зачем два раза считывать вводные данные?
      Ответить

    • ava guest 11.08.2009 09:20 # 0

      Напоминает лабораторные по Паскалю с первого курса института.
      Ответить

    • ava labutinpa 14.08.2009 01:14 # 0

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

    • ava guest 24.12.2009 14:42 # 0

      output файл остался пустым)
      Ответить

    • ava bugmenot 02.06.2010 12:05 # 0

      Переработка кота в ток
      Ответить

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