1. 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) RSS

    • Баян.
      http://govnokod.ru/17434
      Ответить
    • лаба не нужна
      Ответить
    • Чему, блядь, студентоту учат? Говнопаскалю? Принимать аргументы через readln?
      А вот пограничным случаям не учат нихуя. Навскидку, в домах часто квартиры не с первой начинаются. Первый этаж (а то и второй тоже) может не иметь квартир. Некоторые дома строят лесенкой, в разных подъездах разная этажность. На некоторых этажах нумерация сбивается за счёт объединения квартирт.
      Сферических коней в вакууме учат считать.
      Ответить
      • Ты не нужин
        Ответить
      • > введите серию дома
        >> 600.11

        Problem solved!
        Ответить
        • Умно. Плюс. Но факт таков что простой программой это не посчитать.

          >На некоторых этажах нумерация сбивается за счёт объединения квартирт.

          А еще первый этаж часто r&dуют под офисы/магазины. Причём (из опыта своего дома) то у нас нумерация не поплыла, просто на первой площадке нет номеров, одна дверь а всё остальное замуровано.

          И потому 314dar прав - задача учебная. В реале проще и надёжнее забить при сделке/приватизации планировку с фамилиями владельцев и номером в базу и заебца.
          Ответить
      • Ну и квартир-на-этаж в крайних подъездах часто больше, чем в средних...
        Ответить
      • Блядь, кого это ебет, дыбил? Это учебная задача, которая должна отрабатывать какие-то умения. За бабки ее продавать никто не будет.
        Ответить
        • Dude, noone needs u here
          Ответить
        • Я пидара забыл спросить, да?
          Ясен хуй, что учебная. Ну и какие умения тут отрабатываются, скажи? Математика за третий класс?
          Ответить
          • > какие умения
            Умение составлять алгоритм по условию же. Поэтому и такое упрощение и оторванность от жизни (чтобы задача не стала непосильной для учащегося и её можно было решить за отведённое под самостоятельную работу время).

            Или ты думаешь, что человек может с первого раза сесть и составить алгоритм по готовому условию? И что лабы не нужны, пусть сразу в продакшен хуярят?
            Ответить
            • > лабы не нужны, пусть сразу в продакшен хуярят?
              Они и так после инста приходят на работу и хуярят в продакшен. Точно так же хуярят... Реальные задачки их не учили решать.
              Да пусть для обучения будут простые задачки. Ну хоть не такие дебильные.
              Ответить
              • Ты понимаешь разницу между "хуёво пишет код" (только-только начал работать) и "вообще не умеет писать код" (только-только начал учиться)?

                > будут простые задачки
                Ну составь. Вот только боюсь, что получится точно такой же уровень "дебильности".

                З.Ы. Ты бы ещё до школьных задачек про яблоки доебался. Типа: "яблоки никто поштучно не продаёт, платят за вес бла-бла-бла, нереалистичная хуйня, сферических коней в вакууме учат считать".
                Ответить
                • Нужно яблоки заменить на сигареты поштучно в деревне. И про самогон что-нибудь. Пусть учат то, что им в жизни пригодится.
                  Ответить
                  • Раньше самогоном можно было оплатить работу тракториста. А теперь тракториста днём с огнём не сыщешь, потому что колхозы разворованы, а деревни выглядят хуже, чем Пальмира после бомбёжки.
                    Ответить
                  • Сигареты дорожают со скоростью X процентов в год, а водка - y. алкаголик С. получает
                    эпсилон рублей в месяц, рост з\п сотавляет z процентов в год. Возраст С. - А лет. средняя продолжительность жизни алкоголиков - B лет. Вопрос - придется ли С. устраиваться на вторую работу, при условии что водка и сигареты составляют 70% его расходов, или он сдохнет раньше?
                    Ответить
                    • Бггг. Гениальная задачка!
                      Только тут либо эпсилон лишний (или не нужен), либо нужно указать стоимость бухла и сигарет, но убрать процент от расходов.
                      Ладно, я - зануда
                      Ответить
                      • Эпсилон нужен для того. что бы показать, что зарплата алкаша стремится к нулю
                        Ответить
                        • Не нужен. Он тут в стандартный икс превращается. Должен же быть икс, в конце концов?

                          > зарплата алкаша стремится к нулю
                          Ну так и будет стремиться после составления уравнения.
                          Ответить
                • > Ты понимаешь разницу между "хуёво пишет код" (только-только начал работать) и "вообще не умеет писать код" (только-только начал учиться)?

                  Ну так, блядь, надо задачки такие давать, чтобы было сразу видно толк от программирования. Хуле толку от задач в стиле "полтора землекома"? Такую задачу проще решить на калькуляторе или даже в уме, чем запускать программу и вводить параметры. Человек просто не поймёт реальную отдачу от применения программирования.

                  > Ну составь. Вот только боюсь, что получится точно такой же уровень "дебильности".
                  Я бы упростил бы задачку до "напишите функцию, принимающую на вход..."
                  А потом бы сделал программу, которая рисует здания с подстановкой метода студентов. Чтобы наглядно каждому показать, что у него получилось.

                  > школьных задачек про яблоки доебался
                  И доебусь.
                  http://s.fishki.net/upload/post/201505/28/1547908/16536460-r3l8t8d-600-66.jpg
                  Ответить
                  • > У ёжика Федьки
                    У зайца Федьки был ручной ёжик. Ёжика звали Колючка. Однажды Федькин ёжик нашёл три яблока и отдал одно зайцу...
                    Ответить
                    • А зайца Федьку поймали и вытащили из жопы утку. А из утки яйцо, но не простое, а волосатое. А в том яйце была игла, но не простая, а та самая, которой кололся ёжик Колючка, когда пиздил яблоки.
                      Сколько яиц осталось у зайца Федьки, если он был самкой?
                      Ответить
                      • Отвечать будет господин Друзь
                        Ответить
                        • http://turboportal.ru/uploads/posts/2014-03/1395055301__.jpg

                          Я думаю, что все знают, что по ссылке
                          Ответить
                          • Error 1011
                            Внезапно. браузеры передают реферер даже если ссылка не кликабельна.
                            Ответить
                            • Блядь. Это просто ссылка. Набор букв. Скопируй и вставь в адресную строку, раз у тебя браузер такой долбоёб. Картинка открывается, я проверял.
                              Ответить
                              • > Я проверял
                                В другом браузере/приватном просмотре?
                                Ответить
                                • В том же браузере. На десктопе и планшете. Отдельно, ессно. В другом тоже пробовал открыть, тоже работает.
                                  Ответить
                                  • Если выделить ссылку и нажать "Открыть в новой вкладке" - CF покажет хуй.
                                    Если скопировать и вставить в адресную строку - покажет картинку.
                                    UPD: теперь работает даже с "Открыть в новой вкладке". Говно какое-то. Cloudflare не нужен.
                                    Ответить
                                    • > Если выделить ссылку и нажать "Открыть в новой вкладке"
                                      Ну как пидар правильно написал выше - браузер (фф) зачем-то передаёт реферер даже если делаешь "открыть в приватной вкладке".
                                      Ответить
                                      • Мда, знатное говнецо.
                                        Ответить
                                        • Надо бы отдельный тред запилить про браузероговнецо. Сюда же и то, что сайт может не дать закрыть его окно.
                                          Ответить
                                    • Зелёный цвет не нужен:
                                      https://tjournal.ru/p/block-school-for-nothing

                                      Cloudflare и вправду не нужен.
                                      Ответить
                                      • Какой замечательный сайт. Сколько нового узнал после одного перехода.
                                        https://tjournal.ru/26824-polzovateli-dvacha-deanonimizirovali-rossiiskih-pornoaktris-s-pomoshu-findface
                                        Ответить
                                        • Василий, ты женат.
                                          Ответить
                                          • Если я на диете это не значит, что я не могу просматривать все меню :)
                                            Ответить
                                        • Блядь, ты только узнал?

                                          Я этих мудаков все пытался спросить - мальчики, ну ебутся люди, вам что, завидно? Они пытались тгавить какую-то блядь, которая в сортире на дискотеке еблась. Ну вам не похуй ли?

                                          Ну а если отойти от этого - насколько хорошо работает этот findface? сука, так ведь могут и с камер наблюдения ебальники распознавать.
                                          Ответить
                                          • А друзяшки мало того, что твою фотку выложат во вконтактик, так ещё и заботливо подпишут...
                                            Ответить
              • че тебе не нравится?
                Хорошая задача, простая, для школьнега норм
                Ответить
                • Для школьнега уровень норм. Только не надо неокрепший ум травить паскалем. Я так понял, что это лаба, для лабы это ппц.
                  Ответить
                  • Ну а на чем учить кодить?
                    Ответить
                    • На PHP. Чтобы ум вырабатывал иммунитет к яду.
                      Ответить
                      • Что бы он так и кодил на пхп и никогда не стал программистом?
                        Ответить
                        • вот да

                          а то развелось тут программеров
                          Ответить
                          • Вспомнил анекдот. В роддом приезжает инспекция. Просят показать помещение, в которое попадают новорождённые. Открывают дверь, а там санитар каждого третьего ребёнка роняет головой на кафельный пол. Инспектор:
                            — Зачем вы это делаете?
                            — Понимаете, стране не хватает прапорщиков!
                            Ответить
                    • Фортран, язык Ада, OCaml, Matlab/Octave, R.

                      Провинившихся заставлять учить APL или его производные.
                      Ответить
                      • На j кодить не научишься, ьно как дополнение очен ь неплохо залетает
                        Ответить
                        • > ьно
                          > очен ь
                          Ты так сильно бил по клаве, когда программировал на J, что она сломалась?
                          Ответить
                  • А есть уверенность, что это не школьная лаба? Ну и как бы есть неайтишные специальности, где умение программировать составлять простые алгоритмы - просто бонус, как для айтишника какая-нибудь психология.
                    Ответить
              • Далеко не все школьники станут программистами же.
                Ответить
            • Ага, с тонким клиентом, возможность сохранения в бд, файле специального формата, с комплексным покрытием юниттестами, развитой системой классов, DI, доступом через REST, с клиентом на родной платформе, и WSDL для возможности написания левых клиентов. Самое то для чувака, вчера написавшего свой первый хеллоу ворд на си

              наверное где то на середине вы поняли, что я нихера не понимаю что пишу
              Ответить
              • Я думаю, Вы правы, коллега. Клиент для родной платформы крайне важен. Решение этой задачи не составит труда для среднестатистического программиста при соответственном уровне госурегулирования под небольшие проценты от затрат на инспекцию. Тестирование позволит выявить высокий стандарт создания уникальной платформы, настроив команду на стремление к инновационным результатам во всех современных отраслях науки кроме биохимии и астрономии. В качестве базы данных рекомендую выбрать современный продукт, рассчитанный на высокие нагрузки и низкое время отклика, желательно выбрать небольшую риал-тайм систему с активным логированием актуальных транзакций. По возможности, рекомендую закладывать в сроки время обучения, а также знакомство участников проекта с используемыми парадигмами и обсуждение проблемы с иностранными коллегами для обмена инновационным опытом построения систем подобного класса и вторичного контроля соответствия требований международным нормам утилизации эффективных ресурсов. Не автогенератор.
                Ответить
                • Ого, ты как такой генератор написал?
                  Ответить
                  • Мне кажется он текст написал
                    Ответить
                    • Да, именно так.

                      Я же не просветлённый как Пи, который провёл два года на вершине горы Ворец в медитациях, от недостатка кислорода начал видеть суть вещей и написал идеальный генератор, который сам занял место Пи и теперь пишет комментарии вместо него, собирается сам взойти на священный Ворец и провести там два года в медитациях, от недостатка кислорода начать видеть суть вещей и написать идеальный генератор, который сам займёт его место и будет писать комментарии вместо него, собираться взойти на священный Ворец и провести там два года в медитациях, от недостатка кислорода начать видеть суть вещей и написать идеальный генератор, который сам займёт его место и будет писать комментарии вместо него, собираться взойти на священный Ворец и провести там два года в медитациях, от недостатка кислорода начать видеть суть вещей и написать идеальный генератор, который сам займёт его место и будет писать комментарии вместо него, собираться взойти на священный Ворец и провести там два года в медитациях, от недостатка кислорода начать видеть суть вещей и написать идеальный генератор, который сам займёт его место и будет писать комментарии вместо него, собираться взойти на священный Ворец и провести там два года в медитациях, от недостатка кислорода начать видеть суть вещей и написать идеальный генератор, который сам займёт его место и будет писать комментарии вместо него, собираться взойти на священный Ворец и провести там два года в медитациях, от недостатка кислорода начать видеть суть вещей и написать идеальный генератор, который сам займёт его место и будет писать комментарии вместо него.
                      Ответить
                      • Ты такими охуительными историям женщин клеить не пробовал?
                        Ответить
                        • Не пробовал. Иначе может и не сидел бы сейчас на ГК
                          Ответить
                          • ... а в тюрьме
                            Ответить
                            • Ну это разве что если малолеток клеить...
                              Ответить
                              • ...
                                ...
                                пугают меня эти многоточия, как будто ты бы был не против, если не тюрьма
                                Ответить
                                • > был не против
                                  Послушать дядю, рассказывающего про ворцов и генереции, если был бы малолеткой?
                                  Ответить
                      • Станислав Лем--, "ворециада"
                        Ответить
            • Дело не в том, станет она непосильной или нет, просто это никому нахуй не нужные усложнения; задача не об этом
              Ответить
          • Математика отрабатывается на математике. А тут отрабатывается другое.
            Ответить
          • Так кто тебе виноват, что тебе какой-то 3_14dar вынужден мозги вправлять?
            Ответить
        • Конкретно за это решение нужно бить по пизде лопаткой. Что блять за etag? Пиши, сука, по-английски, ты учил его в школе, у тебя в аттестате написано. Не хочешь? Пиздуй в ПТУ, там тебя кое-как научат в 1С. Алгоритмы можно выучить, но если в команде кто-то кладёт на code style и код не проходит аудит, то это гораздо хуже неоптимальной сортировки.
          Ответить
          • > Что блять за etag?

            http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.19
            Ответить
            • Именно поэтому я и выбрал конкретно это наименование.
              Ответить
              • Сейчас найдём глубинный смысл.

                Количество этажей в доме можно считать неким хэшем его характеристик, позволяющим расставить дома в некотором списке. Список всех домов района можно превратить в hashmap, в котором перечислены четырёхэтажки, пятиэтажки, девятиэтажки, двенадцатиэтажки, шестнадцатиэтажки, семнадцатиэтажки и т. п.

                Во время строительства дома количество построенных этажей можно считать критерием состояния. Если оно изменилось, значит, очередной этап стройки завершён. Если количество этажей сравнялось с номинальным по проекту, значит, почти закончили и можно переходить к финальной отделке.

                Ну и чем количество этажей не entity tag?
                Ответить
                • Вот если бы студент, защищая вышеприведённую лабу, использовал такие же рассуждения, да и ещё с той же заточкой, что была у inkanus-gray на момент написания его комментария... так ведь вряд ли.
                  Ответить
                • Алсо, внутреннюю отделку зачастую начинают когда ещё не все этажи выгнаны.
                  Ответить
                  • Ну тогда тем более почти закончили.
                    Ответить
                    • Так это вореции в etag, весь RFC по пизде, половина стройнета упала, на половине - хуи дрочены, куда сам сядешь... гм, кажется не туда пишу.
                      Ответить
                      • Ну вот половина и упала, потому что хуи дрочили вместо того, чтобы работать. И после этого какие-то дураки говорят о безвредности онанизма.
                        Ответить
          • Тебе не кажется, что нехуй требовать от щкольника то, что требуют от программиста? Вот поэтому лабы сюда постить и не надо.
            Ответить
            • Если это школа, то все вопросы снимаются. Если это ВУЗ, то всё написанное в силе.
              Ответить
              • А если у студентов специальность не программирование, а другая? Может быть, студент — будущий инженер-строитель или вообще микробиолог?
                Ответить
                • Ну дык оно уже студент, с аттестатом, с английским, с вот этим всем.
                  Ответить
                  • Ты за пределы своей комнаты и факультета в вузе вообще выходил куда-то?
                    Ответить
                    • Выходил только к девкам в общагу меда, а чо, надо было?
                      Оставим этот спор.
                      Ответить
                      • Пидар спрашивает бродил ли ты по мусоркам как бродил он. А вообще он тебя клеит походу.
                        Ответить
                        • Пидарас, тебе мужской ласки мало? Шамилю надоел?
                          Ответить
                      • Так а хуле ты за всех пиздишь? Сиди в своей комнате без окон и конпеляй себе.
                        Ответить
    • find =: (([>.@%(1&{*{:)@]),({:@]>.@%~ [|~(1&{*{:)@]),>:@(<:@[|~{:@]))
         71 find 2 5 10
      2 3 1
         42 find 2 5 10
      1 5 2
      Ответить
    • goto, label - расстрелять нахуй!
      Ответить
    • Пакакаль мертв уже джвадцать лет
      Ответить
    • - А кто хочет пососать чупа-чупс? - обращаясь, как к маленькому, подначиваю его. - Егорка, хочет. Да?
      Ответить

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