1. Список говнокодов пользователя karl

    Всего: 2

  2. Pascal / Говнокод #19869

    −46

    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
    uses crt;
begin
  
gotoxy (34,12);
write ('*'); {Центр}

{шагаем линию от центра в лево на 6 позиций, меняется только ось Х в - 6}
gotoxy (33,12);
write ('*');
gotoxy (32,12);
write ('*');
gotoxy (31,12);
write ('*');
gotoxy (30,12);
write ('*');
gotoxy (29,12);
write ('*');
gotoxy (28,12);
write ('*'); 

{шагаем линию от центра в право на 6 позиций, меняется только ось Х в + 6}
gotoxy (35,12);
write ('*');
gotoxy (36,12);
write ('*');
gotoxy (37,12);
write ('*');
gotoxy (38,12);
write ('*');
gotoxy (39,12);
write ('*');
gotoxy (40,12);
write ('*');

{шагаем верх линию от центра на 6 позиций, меняется только ось У на - 6}
gotoxy (34,11);
write ('*');
gotoxy (34,10);
write ('*');
gotoxy (34,9);
write ('*');
gotoxy (34,8);
write ('*');
gotoxy (34,7);
write ('*');
gotoxy (34,6);
write ('*');

{шагаем диагональ лево верхнее крыло на 6 позиций меняются все оси}

gotoxy (29,11);
write ('*');
gotoxy (30,10);
write ('*');
gotoxy (31,9);
write ('*');
gotoxy (32,8);
write ('*');
gotoxy (33,7);
write ('*');
gotoxy (34,6);
write ('*');

{шагаем диагональ право верхнее крыло на 6 позиций меняются все оси}
gotoxy (35,7);
write ('*');
gotoxy (36,8);
write ('*');
gotoxy (37,9);
write ('*');
gotoxy (38,10);
write ('*');
gotoxy (39,11);
write ('*');
gotoxy (40,12);
write ('*');

{шагаем вниз линию от центра на 6 позиций, меняется только ось У на + 6}
gotoxy (34,13);
write ('*');
gotoxy (34,14);
write ('*');
gotoxy (34,15);
write ('*');
gotoxy (34,16);
write ('*');
gotoxy (34,17);
write ('*');
gotoxy (34,18);
write ('*');

{шагаем диагональ право нижнее крыло на 6 позиций меняются все оси}
gotoxy (35,17);
write ('*');
gotoxy (36,16);

    Вот такая вот еботина

    karl, 23 Апреля 2016

    Комментарии (21)

  3. Pascal / Говнокод #19866

    −52

    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
    {Программа позволяющая найти номер квартиры в любом доме, введите данные конструкции. количество подъездов количесвто этажей, количество квартир на этаж. 
 Вводим номер квартиры и получаем результат.}
uses crt;
label l1,l2,l3;
var
i,i1,m,kv,numkv,etag,searhkv,numetag,pod,numpod,sey,error:integer;

  begin
  l1:
  ClrScr;
  write ('Введите количество подъездов: ');
  readln (pod);
  write ('Введите количество этажей: ');
  readln (etag);
  write ('Введите количество квартир на этаж: ');
  readln (kv);
 
 error:=(etag*kv)*pod; {некорректный ввод пользователя}
         
     writeln;
            writeln('Возможный вариант квартир ',error);
            writeln;
 
 l3:
 write ('Введите искомый номер квартиры: ');
  readln (searhkv);
   writeln;
  
          if searhkv>error then
                begin
                
                 writeln; 
                 textcolor(4);
         writeln ('некорректный ввод номера квартиры');
         writeln;
                  textcolor(7);
         writeln ('повторить ввод номера       - 1');           
         writeln ('повторить ввод всех данных  - 2');  
         writeln ('выход                       - 3');  
         writeln;
         write ('Введите номер нужного вам пункта: ');
         readln (sey);

            case sey of
            1: goto l3;
            2: goto l1;
            3: goto l2;
            end; {case}
                end; {if error}
                
          
                
for m:=1 to pod do
   begin
   
   numpod:=m; {Номера подъезда}
  
  for i:=1 to etag do
     begin
      
       numetag:=i;  {Номера этажей}
      
       for i1:=1 to kv do
         begin 
          numkv:=numkv+1; {Номера квартир}
          if searhkv = numkv then 
       writeln (numetag,' ','этаж','   ',numpod,' ','подеъзд')
          
          
           end; {for kv}
           
    
            end; {for etag}
             
              end; {for pod}
        
   l2:
    writeln;
    readln;
   writeln ('Удачи');
         
     end.

    karl, 22 Апреля 2016

    Комментарии (99)