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

    +84

    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
    procedure TForm1.Button1Click(Sender: TObject);
var i,i2,p,g,gg3: integer;
gg:string;
gg2: Real;
begin
g:=0;
gg:=intTOstr((Length(Memo1.Lines.Text)));
gg2:=StrToFloat(gg)/4;
gg3:=Trunc(gg2);
gg:=Memo1.Lines.Text;
for i2:=1 to gg3 do begin
  p:=pos('котэ',gg);
  if p>0 then begin
  Delete(gg,p,4);
  g:=g+1;
  Label1.Caption:=IntToStr(g);
  end;
  end;
end;

    Алгоритм поиска слова - "котэ" в Memo1.
    УжОс...

    Запостил: firerap, 09 Января 2011

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

    • ava firerap 09.01.2011 23:08 # 0

      Пользоваться div видимо не учили...
      Ответить

    • ava bugmenot 09.01.2011 23:52 # 0

      * всех слов, но алгорифмъ благополучно забывает и помнит только последнее
      Ответить

      • ava TarasB 10.01.2011 12:52 # 0

        За использование delete при работе с длинной строкой надо долго пиздить ногами!
        Ответить

    • ava 3.14159265 10.01.2011 18:42 # +1

      быдлостуденты пишут лабы на делфи. снова.
      Ответить

      • ava guest 11.01.2011 03:11 # +2

        >быдлостуденты
        Все когда-то были студентами... Не все, среди них, такие...

        В любом случае говнокод на лабе - это нормально. Чем быстрее написал и отмахнулся - тем лучше. Поддерживать этот код потом всё равно не нужно. Даже ошибки все исправлять не нужно. Главное что-бы их не заметил преподаватель. И самое главное, что-бы человек, действительно, умел писать программы нормально.

        Задача, эксплуатировать которую будут лишь 10 секунд - должна быть стольже экономичной по трудозатратам.
        Ответить

    • ava 1291 24.08.2011 23:20 # 0

      Такое всегда радует:
      gg:=intTOstr((Length(Memo1.Lines.Text))) ;
      gg2:=StrToFloat(gg)/4;
      gg3:=Trunc(gg2);
      Это как удаление гланд через известно что
      Ответить

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