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

    −49

    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
    dep_id:=-1;
next_day:=1;
cds.First;
while not (cds.Eof) do
begin
  if (dep_id <> cds.FieldByName('DEP_ID').AsInteger) then
  begin
    dep_id := cds.FieldByName('DEP_ID').AsInteger;
    //переходим на новую страницу, печатаем шапку
    //...
    
    row:=7;
    next_day :=1;
  end;
  if (DS_Parametes.FieldByName('DATE').AsString <> FieldByName('RS_DATE').AsString) and (next_day <> 5) then
         next_day := 2;
  if (next_day < 3) then
  begin
    //Печатаем шапку дня 
    //...
    if (DS_Parametes.FieldByName('DATE').AsString <> cds.FieldByName('RS_DATE').AsString)  then
    begin
      WS.Cells[Row,01]:= 'Завтра, '+ cds.FieldByName('RS_DATE').AsString;
      next_day :=5;
    end
    else
    begin
      WS.Cells[Row,01]:= cds.FieldByName('RS_DATE').AsString;
      next_day :=4;
    end;
    inc(row);
  end;
  //Ну и дальше печатаем строчки таблицы
  //...
  inc(row);
  cds.next;
  
end;

    next_day := 4

    Запостил: tucvbif, 22 Декабря 2016

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

    • ava beldiv 22.12.2016 14:17 # +2

      Что ни строкка, то криповый смайл.
      :=4
      :=5
      :=1
      :=7
      Не хватает их предводителя /|\(;,,;)/|\
      Ответить

      • ava Analotolievich 22.12.2016 16:28 # +1

        Предводителя нет, но вы там держитесь. Хорошего вам настроения!
        Ответить

      • ava Steve_Brown 22.12.2016 17:07 # +3

        Зато есть заместители:
        ]:=
        Ответить

        • ava inkanus-gray 22.12.2016 17:12 # +1

          Ещё можно пригласить товарищей :={} и :=@
          Ответить

          • ava bayan 22.12.2016 17:14 # 0

            как назывались те чудесные трехсимвольные конструкции в ANSI C 89 для тех, у кого нету фигурной скобочки?
            Ответить

            • ava subaru 22.12.2016 17:15 # +3

              триграфы
              Ответить

            • ava inkanus-gray 22.12.2016 17:17 # +6

              Кстати, в Паскале есть диграфы. Например, (* и *) заменяют фигурные скобки, а (. и .) заменяют квадратные скобки.
              Ответить

              • ava guest 23.12.2016 17:14 # −2

                растопырил тебе очко квадратными скобками, проверь
                Ответить

                • ava guest 23.12.2016 23:04 # −1

                  Проверил. Вроде норм, но почему говно валится у тебя из штанины понять не могу?
                  Ответить

    • ava ncuxuamp 23.12.2016 23:08 # 0

      Повадились галитозники заходить на наш сайт.
      Ответить

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