Школоло / Говнокод #27 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
  Деньга = record
    Достоинство:integer;
    Количество:integer;
  end;

var
  Лопатник: array of Деньга;

procedure ПоложитьНаЛопату(Купюра:Integer);
var
  I: Integer;
  УжеПоложили:Boolean;
begin
  if Купюра=0 then
    Exit;
  УжеПоложили:=False;
  for I := low(Лопатник) to High(Лопатник) do
    if Лопатник[i].Достоинство=Купюра then
      begin
        inc(Лопатник[i].Количество);
        УжеПоложили:=True;
      end;
  if not(УжеПоложили) then
    begin
      SetLength(Лопатник,Length(Лопатник)+1);
      Лопатник[High(Лопатник)].Достоинство:=Купюра;
      Лопатник[High(Лопатник)].Количество:=1;
    end;
end;

var
  Купюра:integer;
  i:integer;
  ВсегоНаЛопате:integer;
begin
  repeat
    Readln(Купюра);
    ПоложитьНаЛопату(Купюра);
  until Купюра=0;
  ВсегоНаЛопате:=0;
  for I := low(Лопатник) to High(Лопатник) do
    begin
      WriteLn(Format('Cost = %d Count - %d',[Лопатник[i].Достоинство,Лопатник[i].Количество]));
      inc(ВсегоНаЛопате,Лопатник[i].Достоинство*Лопатник[i].Количество);
    end;
  WriteLn(Format('All money - %d',[ВсегоНаЛопате]));
  ReadLn;
end.

Вообще-то это Delphi, но его в списке не было ;)
Задача была такая:
пользователь вводит достоинства купюры в произвольном порядке, ввод прекращ

Запостил: guest guest, (Updated )

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

  • ava guest # Ссылка на оригинал 0

    Kerk:
    Именно тот случай, когда смеяться надо после слова "лопата"? Мда, херня.
    Ответить

    • ava guest # 0 ⇈

      Хелло, здесь кто-то спрашивал, современные методы мужская импотенция лечения.
      https://www.northwestpharmacy.com/
      Popular Prescription Drugs In Canada And Worldwide
      =*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=V*
      Ответить

      • ava ropuJIJIa # Ссылка на оригинал 0 ⇈ 

                                                                          ▄                                                                                                                 
██   ██                                                      ▄▄▄▄█▀              ▀██                                                ▀██                        ▄▄ ▄▄          ▄██▄  
██  ▄██  ▄▄▄▄▄           ▄▄▄▄▄   ▄▄▄▄        ▄▄▄▄▄▄  ▄▄▄▄▄  ██       ▄▄▄▄▄▄       ██▄▄    ▄▄▄▄▄  ▄▄ ▄▄▄  ▄▄▄ ▄▄   ▄▄▄▄   ▄▄ ▄▄▄    ▄▄██       ▄▄   ▄▄ ▄▄ ▄ ▄▄  ▄▄▄▄▄     ▄▄▄▄ ████  
██▄█▀██ ▀▀   ██ ▄▄▄▄▄▄▄ ▀▀   ██  ▄▄▄██       ▀ ██ ▀ ██   ██ ██▀▀▀█▄ ██   ██       ██ ▀█▄ ██   ██  ██▀ ██ ██▀█▀██  ▄▄▄██   ██  ██ ▄█▀ ██       ██   ██ ██ █ ██ ██   ██  ▄█▀ ██  ██   
██▀  ██   ▀▀▀█▄           ▀▀▀█▄ ██  ██         ██   ██▀▀▀▀▀ ██   ██  ▀██▀██       ██  ██ ██   ██  ██     ██ █ ██ ██  ██   ██  ██ ██  ██       ██   ██ ██ █ ██ ██▀▀▀▀   ██  ██  ▀▀   
██   ██ ▀█▄▄▄█▀         ▀█▄▄▄█▀ ▀█▄▄▀█▄       ▄██▄  ▀█▄▄▄█▀ ▀█▄▄▄█▀ ▄██  ██       ██▄▄█▀ ▀█▄▄▄█▀ ▄██▄    ██ ▀ ██ ▀█▄▄▀█▄  ██  ██ ▀█▄▄▀█▄       ▀▀▀▀██ ██▄█▄██ ▀█▄▄▄█▀ ▄██  ██  ██   
                                                                                                                                              ▄▄   ██                               
                                                                                                                                               ▀▀▀▀▀                                
        Ответить

        • ava guest # 0 ⇈

          Путешествия: Туристические Агенства

          TRAVELMIR/GREEN LIGHT TOURS TRAVELMIR/GREEN LIGHT TOURS
          Агентство, которое Вы искали
          http://www.travelmir.com

          1811 Avenue P.
          Brooklyn, NY 11229 (карта)
          Телефон: (718) 234-0787

          ALLIstanbulTours.com ALLIstanbulTours.com
          Одна нация Туристическое агентство здесь, чтобы служить своей поездки все через Турцию. Мы специализируемся на всех Турции Туры по ОАЭ, Эфес туры, туры Галлиполи, Анзак Однодневные экскурсии, туры ...
          http://www.allistanbultours.com

          255 West 36th Street, Suite 800 New York
          New York, NY 10018 (карта)
          Телефон: (800) 961-5117 Факс: 19175917556

          Ancore Transportation Services
          Транспортная компания , предоставляет 2013 года спринтер Мерседес ( 14 пассажиров ) для локальных и дальних экскурсий , туров , а так же , другие услуги ( свадьбы , дни рождения и тд. ) Мерседес ...

          12303 Runnymede st. #3
          North Hollywood, CA 91605 (карта)
          Телефон: (818) 326-9246 Факс: 818-760-8480

          EIH Travel Inc.
          Путешествия по Америке. Индивидуальные экскурсии (по ценам групповых) на машине от 2 до 12 человек. Не лежите на диване.Отправляйтесь с нами в путь. Что б забыть про все заботы и душою отдохнуть. ...
          http://www.usatravelru.com

          1821 Creekview Ln
          Jamison, PA 18929 (карта)
          Телефон: (267) 483-5289

          Hawaii with Russian Guide
          Звоните на Гаваи, говорим по русски телефон (808) 384-2076

          1255 Nuuanu
          Honolulu, HI 96817 (карта)
          Телефон: (808) 384-2076

          NEW TOURS USA NEW TOURS USA
          22 года в бизнесе. Принимающий тур оператор, все штаты США и Канада. Русские туры с ...
          http://www.newtours.us



          ____________________
          Ответить

          • ava guest # 0 ⇈

            Путешествия: Туристические Агенства

            TRAVELMIR/GREEN LIGHT TOURS TRAVELMIR/GREEN LIGHT TOURS
            Агентство, которое Вы искали
            http://www.travelmir.com

            1811 Avenue P.
            Brooklyn, NY 11229 (карта)
            Телефон: (718) 234-0787

            ALLIstanbulTours.com ALLIstanbulTours.com
            Одна нация Туристическое агентство здесь, чтобы служить своей поездки все через Турцию. Мы специализируемся на всех Турции Туры по ОАЭ, Эфес туры, туры Галлиполи, Анзак Однодневные экскурсии, туры ...
            http://www.allistanbultours.com

            255 West 36th Street, Suite 800 New York
            New York, NY 10018 (карта)
            Телефон: (800) 961-5117 Факс: 19175917556

            Ancore Transportation Services
            Транспортная компания , предоставляет 2013 года спринтер Мерседес ( 14 пассажиров ) для локальных и дальних экскурсий , туров , а так же , другие услуги ( свадьбы , дни рождения и тд. ) Мерседес ...

            12303 Runnymede st. #3
            North Hollywood, CA 91605 (карта)
            Телефон: (818) 326-9246 Факс: 818-760-8480

            EIH Travel Inc.
            Путешествия по Америке. Индивидуальные экскурсии (по ценам групповых) на машине от 2 до 12 человек. Не лежите на диване.Отправляйтесь с нами в путь. Что б забыть про все заботы и душою отдохнуть. ...
            http://www.usatravelru.com

            1821 Creekview Ln
            Jamison, PA 18929 (карта)
            Телефон: (267) 483-5289

            Hawaii with Russian Guide
            Звоните на Гаваи, говорим по русски телефон (808) 384-2076

            1255 Nuuanu
            Honolulu, HI 96817 (карта)
            Телефон: (808) 384-2076

            NEW TOURS USA NEW TOURS USA
            22 года в бизнесе. Принимающий тур оператор, все штаты США и Канада. Русские туры с ...
            http://www.newtours.us



            ________________
            Ответить

            • ava guest # 0 ⇈

              Привет, ваш регион представляется как Краснодар.
              Купить лекарства в Краснодар: шишки, гидропонуку, гашиш, скорость, ск, кристаллы, амфетамин, MDMA, экстази, героин и метадон, кокаин (кокс). Мефедрон в кристаллах, мяу-мяу, меф. Всегда можно купить готовые закладки марихуаны и спайса. Реагент 1к40 и LSD.
              Оператор Telegram: @clubdrugs
              ОСТОРОЖНЕЕ! В сети появилось много фейков с нашем именем. Для того что бы не попасть на фейк оператора telegram, переходите на наш ник строго по ссылке выше!


              http://drugsclub.site/catalog/krasnodar

              ________________________
              Ответить

  • ava guest # Ссылка на оригинал 0

    Эмм... я чего-то не знаю?? каким образом названия кириллицей??
    Ответить

    • ava guest # 0 ⇈

      Хелло, здесь кто-то спрашивал, современные методы мужская импотенция лечения.
      https://www.northwestpharmacy.com/
      Popular Prescription Drugs In Canada And WorldwideJ
      Ответить

    • ava kegdan # Ссылка на оригинал 0 ⇈

      Все думают, что я пишу хуевый код потому что я хуевый программист, а я специально учусь писать его хуево!
      Ответить

      • ava bormand # Ссылка на оригинал 0 ⇈

        > Все думают, что я пишу хуевый код потому что я хуевый программист
        Но, если мы вспомним про утиную типизацию...
        Ответить

          • ava bormand # Ссылка на оригинал 0 ⇈

            Если ты пишешь хуёвый код, то ты неотличим от хуёвого программиста. А то, что ты это делаешь специально - просто деталь реализации.
            Ответить

            • ava kegdan # Ссылка на оригинал 0 ⇈

              >> Если ты пишешь хуёвый код, то ты неотличим от хуёвого программиста. А то, что ты это делаешь специально - просто деталь реализации.

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

              • ava guest # 0 ⇈

                Хелло, здесь кто-то спрашивал, современные методы мужская импотенция лечения.
                https://www.northwestpharmacy.com/
                Popular Prescription Drugs In Canada And Worldwide
                =*=*=*=*=*=*=*=*=*=*=B*
                Ответить

            • ava guest # 0 ⇈

              Хелло, здесь кто-то спрашивал, современные методы мужская импотенция лечения.
              https://www.northwestpharmacy.com/
              Popular Prescription Drugs In Canada And Worldwide
              =*=*=*=*=*=*=*=*=*=*=*=*=L*
              Ответить

          • ava guest # 0 ⇈

            Хелло, здесь кто-то спрашивал, современные методы мужская импотенция лечения.
            https://www.northwestpharmacy.com/
            Popular Prescription Drugs In Canada And Worldwide
            =*=*=U*
            Ответить

        • ava guest # 0 ⇈

          Хелло, здесь кто-то спрашивал, современные методы мужская импотенция лечения.
          https://www.northwestpharmacy.com/
          Popular Prescription Drugs In Canada And Worldwide
          =*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=S*
          Ответить

      • ava guest # 0 ⇈

        Хелло, здесь кто-то спрашивал, современные методы мужская импотенция лечения.
        https://www.northwestpharmacy.com/
        Popular Prescription Drugs In Canada And Worldwide
        =*=*=*=*=*=*=*=*=*=*=*=*=*=*=L*
        Ответить

    • ava guest # 0 ⇈

      Хелло, здесь кто-то спрашивал, современные методы мужская импотенция лечения.
      https://www.northwestpharmacy.com/
      Popular Prescription Drugs In Canada And Worldwide
      =*=*=*=*=*=*=*=X*
      Ответить

  • ava JloJle4Ka # Ссылка на оригинал 0

    Эх, 2008...В те годы подразумевалось, что у каждого белый адрес и открытые порты. Децентрализация действительно была — кто угодно мог поднять свою ноду (web, mail, jabber) и разместить нужный контент именно на ней. Не учли только четыре вещи: 1) при масштабировании в Интернете будет много людей без знания ИТ; 2) адресов скоро не хватит; 3) начнут намеренно мешать децентрализации, закрывая порты и блокируя протоколы; 4) люди начнут привязываться к (полу-) закрытым сервисам.
    Ответить

    • ava rotoeb # Ссылка на оригинал 0 ⇈

      >>>"адресов скоро не хватит"

      А КАК ЖЕ ИПЭВЭШЕСТЬ?!?!?!?!
      Ответить

    • ava guest # 0 ⇈

      По моему 2008 это расцвет DSLя и всяких провайдерских НАТов (еще не CGNAT).
      Вот какой-нить 2001-й -- таки да. У всех дайлап, дайлап с белым IP, порты отрыты, файрвола нет
      Ответить

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

Семь раз отмерь — один отрежь, guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓