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

    +101

    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
    //деление задачи на потоки
  uTemp := 0;
  while uTemp < uHTemp do
  begin
    case uTemp of
      0 :uTipArr[uHTemp - 1].p2 := StrToInt(Edit1.Text);
      //делим интегер :)
      1 :uTipArr[1].p1 := uTipArr[uHTemp - 1].p2 shr Trunc(log2(StrToFloat(Edit1.Text)));
      else //если не первая и не вторая
        uTipArr[uTemp].p1 := uTipArr[1].p1 * uTemp;
    end;
    Inc(uTemp);
  end;

    Запостил: Ufo28, 16 Декабря 2011

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

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