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

    −1

    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
    uses crt;
    var i,pc2,vc2,tc2,chc2,q,pc,vc,tc,chc,kvt,k,a,b,c,d,t1,t2,t3:integer;
    pc1,vc1,tc1,chc1,n,n1,n2:string;
    begin
    clrscr;
    read (n);
    n1:=n;
    n2:=n;
    a:=pos('.',n)+1;{a-nachalo vtorogo chisla}
    t1:=pos('.',n);
    delete (n,a-1,1);{ybrali iz IP pervuu tochky}
    b:=pos('.',n)+2;{b-nachalo tret'ego chisla}
    t2:=pos('.',n);
    delete (n,b-2,1);{ybrali iz IP vtoruu tochky}
    c:=pos('.',n)+3;{c-nachalo chetvertogo chisla}
    t3:=pos('.',n);
    delete (n,c-3,1);{ybr III tochky}
    pc1:=copy(n2,1,a-2);{str chislo 1}
    vc1:=copy(n2,a,((t2)-(length(pc1)+1))); {str chislo 2}
    q:=t3-length(pc1)-length(vc1)-1;
    tc1:=copy(n2,b,q);
    q:=length(n2)-length(pc1)-length(vc1)-length(tc1);
    chc1:=copy(n2,c,q);
    val (pc1,pc2,d);
    val (vc1,vc2,d);
    val (tc1,tc2,d);
    val (chc1,chc2,d);
    for i:=1 to length(n) do
    begin
    if n2[i]='.' then kvt:=kvt+1;
    if La-La-La
    then
    write ('1')
    else
    write ('0');
    repeat until keypressed;
    end.

    Определяем правильный ли IP-адрес...

    Запостил: Verenick, 28 Мая 2018

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

    • Это аналог bat-файла, а не программа. Отсутствие процедур/функций, всё в глобальном пространстве, ничего не значащие имена переменных, отстойный ввод-вывод (clrscr, после которого не выводится никакого приглашения для ввода; keypressed, после которого забыли извлечь коды клавиш из буфера).

      Слишком банально.
      Ответить
      • Ещё предложи переписать это на "Java", разбить на классы, инерфейсы и представления, и т.д.
        Ответить
      • >> Отсутствие процедур/функций, всё в глобальном пространстве, ничего не значащие имена переменных, отстойный ввод-вывод

        типичная программа, кмк
        Ответить
        • А никого не смущает, что алкоритм кавно, куча нинужных переменных, и хуйня в 31 строчке?
          Ответить
          • Да смущает конечно, просто понятно что это школьник писал
            Ответить
            • Я даже в школе так не писал, потому что не знал про pos, copy и пр., нам про них не говорили. Я всегда хуярид циклы. А ещё моя училка информатики была кручи преподов в коллиджи, она бы меня за такую программу убила.
              Ответить
    • > if La-La-La
      Laa-la-la-la-laa-la-laa
      Vertitsa bistrey zemlya
      Ответить
    • >ybr
      Ответить
      • > йбрали из ИП первуу тоцхкй
        Ответить
        • Ту милхинс мхери
          ту свдианоб
          маинца вмхери

          Ме ра мамхерибс
          вардебис сунтква
          какачос пери

          Албат симхер
          ту даманатребс
          хода мец вмхери

          Чито гврито
          чито маргалито да
          Чито гврито
          чито маргалито да
          Ответить
      • Yamaha YBR 125 (в просторечии — ёбрик) — малокубатурный мотоцикл.
        Ответить
        • Странно. А я считал, что Yamana выпускает фортепьяны.
          Ответить
          • Они чего только не выпускали. Даже поставляли свои компьютеры в советские школы:
            https://ru.wikipedia.org/wiki/Ямаха_КУВТ
            Ответить
    • > if La-La-La
      Это заклинание какое-то?

      Ты свой код запостил, или своего одноклассника?
      Ответить

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