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

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
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 Verenick, (Updated )

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

  • ava guest # 0

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

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

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

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

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

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

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

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

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

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

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

      • ava guest # 0 ⇈

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

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

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

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

    • ava guest # 0 ⇈

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

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

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

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

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

Где здесь C++, guest?!

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

    ↑
    8
    ↓