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

    +119

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    Function F1(z: Byte): Real;  {Функция возведения (-1) в степень "к"}

  Begin

    If z=1

      Then F1:=-1

      Else F1:=F1(z-1)*-1;

  End;

    Нашел в лабораторной по вычмату 2-х годичной давности)

    Запостил: 1_and_0, 15 Марта 2011

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

    • ava Lure Of Chaos 15.03.2011 21:30 # +4

      а что не так? все логично ) и математика, и рекурсия ) молодец! ))))
      Ответить

    • ava 3.14159265 16.03.2011 01:25 # 0

      Вот кто его знает, может при достаточно большом к - степень не будет равна +-1
      А возведение нуля? или не было?
      Ответить

      • ava StriderMan 18.03.2011 17:51 # 0

        Это из серии "В военное время время значение синуса может достигать четырёх и даже пяти!" ?
        Ответить

    • ava StriderMan 18.03.2011 17:59 # 0

      Так что-ли?

      Function F1(z: Byte): Real;
begin
  Result := -1 * ((z mod 2) * 2 - 1);
end;
      Ответить

      • ava 1_and_0 18.03.2011 18:18 # 0

        Лучше бы конечно тернарным оператором сделать,
        f1=z%2==0?1:-1;

        ну раз его нет в паскале, то читабельней будет через if-else
        Ответить

      • ava bugmenot 18.03.2011 18:58 # +2

        if Odd(z) then Result := -1 else Result := 1;
        Ответить

    • ava guest 12.04.2011 12:22 # 0

      молодец возьми печеньку
      Ответить

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