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

    +23

    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
    Program L_121;
    uses crt;
    Var N : integer;
    b,z : string;
    f1 : text;
    
    Begin
         assign(f1,'Единица измерения.txt');
         writeln('1 Соотношение конкретной единицы измерения длины');
         writeln('2 Соотношение единиц измерения длины');
         writeln('3 Обозначение единиц измерения длины');
         writeln('4 Назначение единиц измерения длины');
         read(N);clrscr;
         reset(f1);
         case N of
         
         1:begin
                write('Введите единицу измерения : ');
                read(b);clrscr;
                readln(f1,z);writeln(z);
                if b='миллиметр' then begin readln(f1,z);writeln(z); end;
                if b='сантиметр' then begin readln(f1,z);readln(f1,z);writeln(z); end;
                if b='дециметр'  then begin readln(f1,z);readln(f1,z);readln(f1,z);writeln(z);end;
                if b='метр'      then begin readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);writeln(z);end;
                if b='километр'  then begin readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);writeln(z); end;
           end;
         2:begin
                readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);
           end;
         3:begin
                readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);
                writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);
           end;
         4:begin
                readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);readln(f1,z);
                readln(f1,z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);readln(f1,z);writeln(z);
           end;
         end;
    End.

    4 года назад я так писал код)

    Запостил: Genome, 07 Сентября 2016

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

    • показать все, что скрытовьебал минус.
      Ответить
    • два минуса за мой счёт
      Ответить
    • Метр, метр, километр...
      Ответить
    • Длина моей единицы измерения 21 см.
      Ответить
      • показать все, что скрытоБедная твоя баба
        Ответить
      • Астрофизик?
        Ответить
        • Хм, а что это за магическая константа в астрофизике? Длина волны инфрабагрового излучения?
          Ответить
          • Радиолиния водорода. Спиновый переход между пара- и ортосостояними - переворот одного ядерного спина.

            Астрофизики эту линию очень любят, потому что по ней можно как красное смещение исследовать, так и плотность водорода в облаках измерять.
            Ответить
            • Спасибо. Я боялся это искать, ибо гугл может вычислить по айпи и начнёт упорно предлагать увеличить член.
              Ответить
              • Там потрясающая картина. На запросы от 4 до 20 см гугл выдаёт кучу вопросов про член от всяких школьников. С 22 и дальше - оно же. А 21 см - это именно радиолиния водорода.
                Ответить
          • Кстати, если то, что находится за длинноволновой границей видимой области спектра, мы называем инфрабагровым, то как будем называть то, что находится за коротковолновой границей?
            Ответить
            • Предлагаю варианты: ультралиловый, ультрапурпурный, ультраиндиго, ультрааметистовый, ультралавандовый, ультрабаклажановый.
              Ответить
          • Внезапно:
            Переход через эту Дверь разительно отличался от перехода через Дверь предыдущую. Зоров ощутил, как его мгновенно и умело разобрали на мельчайшие праатомы и тут же собрали вновь; ощущение это было не то чтобы болезненным, но крайне неприятным, что-то вроде падения в бесконечную темную пропасть в ночном кошмаре. И еще он почувствовал удар по глазам от мощной красно-черной вспышки... смешение цветов было поистине невероятное: жуткий, как и все абсолютное, черный цвет, и красный всех мыслимых и немыслимых оттенков, от инфрабагрового до ультраалого...

            Александр Соболь, Валерий Шпаков. Все цвета радуги (Оракул Вселенной - 3).
            Ответить
          • Ещё одна вореция:
            Полный ярости Голос вырвавшегося:
            — Жругр! Не лукавь! С демиургом нет торга!
            Ты мне ответишь за все головой!

            Голос Жругра:
            — Знаю! Борюсь! Но ток демиурга
            Парализует мне центр волевой.

            Голоса раруггов:
            — Круча Небесной России извергла
            Целую рать просветленных на бой.

            Возглас Великого Игвы:
            — Вижу, как грады других демиургов
            Сонмы Синклита сзывают трубой.

            Голоса ангелов мрака:
            Инфрабагровое пламя померкло!
            Даймоны, ангелы стали стеной!


            Д. Л. Андреев. Железная мистерия.
            Ответить
          • И ещё один источник:
            Фиолетовое свечение повсюду, сполохами, похожими на солнечные протуберанцы. Инфралиловый очень темный и очень яркий одновременно, воспринимается густым и насыщенным. Инфрабагровый выглядит как черный, но однозначно понимаешь, что это красный. Цвета окружения - красные, желтые, оранжевого много. Кирпичный цвет повсеместно. Кстати, местами красиво даже. Зелени и синевы нет в принципе, хотя холодный серый иногда на контрасте воспринимается как болотно-зеленый.

            Отсюда: http://great-igva.livejournal.com/10151.html
            Ответить
          • Продолжим.

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

            Но лишь направлю к небу взгляд
            Два солнца с Солнцем говорят.


            Феликс Комаров: http://www.stihi.ru/2005/11/15-1520
            Ответить
          • И ещё одна вореция инфрабагрового (похоже на машинный перевод): http://bioinstinct.ru/yekologij/a5979/

            P.S. Почему Гугл нашёл только один источник (в предыдущем комментарии ссылка на ЖЖ), а Бинг вообще молчит? Большинство примеров найдены Яндексом и тупым поисковиком go.mail.ru.
            Ответить
    • показать все, что скрытоА в этом гтду ты ужк зауончил школц?
      Ответить

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