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

    • ava guest8 28.05.2018 15:41 # −1

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

      Слишком банально.
      Ответить

      • ava anal_herpes 28.05.2018 16:07 # 0

        Ещё предложи переписать это на "Java", разбить на классы, инерфейсы и представления, и т.д.
        Ответить

      • ava roskomgovno 29.05.2018 21:11 # 0

        >> Отсутствие процедур/функций, всё в глобальном пространстве, ничего не значащие имена переменных, отстойный ввод-вывод

        типичная программа, кмк
        Ответить

        • ava 666_N33D135 29.05.2018 21:14 # 0

          А никого не смущает, что алкоритм кавно, куча нинужных переменных, и хуйня в 31 строчке?
          Ответить

          • ava roskomgovno 29.05.2018 21:15 # 0

            Да смущает конечно, просто понятно что это школьник писал
            Ответить

            • ava 666_N33D135 29.05.2018 21:31 # 0

              Я даже в школе так не писал, потому что не знал про pos, copy и пр., нам про них не говорили. Я всегда хуярид циклы. А ещё моя училка информатики была кручи преподов в коллиджи, она бы меня за такую программу убила.
              Ответить

    • ava 666_N33D135 28.05.2018 21:47 # 0

      > if La-La-La
      Laa-la-la-la-laa-la-laa
      Vertitsa bistrey zemlya
      Ответить

    • ava Steve_Brown 29.05.2018 13:44 # 0

      >ybr
      Ответить

      • ava 666_N33D135 29.05.2018 14:37 # 0

        > йбрали из ИП первуу тоцхкй
        Ответить

        • ava guest8 29.05.2018 14:43 # 0

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

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

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

          Чито гврито
          чито маргалито да
          Чито гврито
          чито маргалито да
          Ответить

      • ava guest8 29.05.2018 14:41 # 0

        Yamaha YBR 125 (в просторечии — ёбрик) — малокубатурный мотоцикл.
        Ответить

        • ava Doctor_Who 30.05.2018 20:36 # 0

          Странно. А я считал, что Yamana выпускает фортепьяны.
          Ответить

          • ava guest8 30.05.2018 21:29 # 0

            Они чего только не выпускали. Даже поставляли свои компьютеры в советские школы:
            https://ru.wikipedia.org/wiki/Ямаха_КУВТ
            Ответить

    • ava 666_N33D135 29.05.2018 14:48 # 0

      > if La-La-La
      Это заклинание какое-то?

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

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