Abs

← →
Resident (2008-03-03 22:30) [0]

Нород, помогите решить проблему. Короче сказали сделать функцию типа Abs но работающую только с данными типа integer (так называемая AbsI).
я пока новичок в програмухе так что не могу понять как это сделать.

← →
Loginov Dmitry © (2008-03-03 22:33) [1]

function AbsI(I: Integer): Integer; begin Result := Abs(I); ebd;

← →
DVM © (2008-03-03 22:34) [2]

function AbsI(n: integer): integer;
begin
result := Abs(n);
end;

← →
Resident (2008-03-03 22:36) [3]

Большое спасибо

← →
Loginov Dmitry © (2008-03-03 22:37) [4]

← →
DVM © (2008-03-03 22:38) [5]

> Loginov Dmitry ©

у нас туда не только Integer можно подсунуть.

← →
korneley © (2008-03-03 23:52) [6]

тут вполне можно ожидать "правильного" решения от преподавателя. Например такого
function AbsI(Value: integer): integer; begin if Value < 0 then Result := -1 * Value else Result := value; end;
или вообще
if Value < 0 then Result := (Value xor $FFFFFFFF) and $7FFFFFFF + 1 else Result := value;

← →
korneley © (2008-03-04 00:10) [7]

and $7FFFFFFF лишнее, погорячился... :(

← →
Германн © (2008-03-04 00:48) [8]

> korneley © (03.03.08 23:52) [6]
>
> тут вполне можно ожидать "правильного" решения от преподавателя.
>

Смотря какой преподаватель. Тут много всяких IncDay можно придумать!
:)

> korneley (03.03.2008 23:52:06) [6]

А почему не +1 * Value
А минус разрешено использовать

> Anatoly Podgoretsky © (04.03.08 01:18) [9]

да можно и := -Value я ж про то, что неизвестно какое "правильно" преподаватель хочет видеть.

> korneley (04.03.2008 13:16:10) [10]

Так может стоит сначала предподавателя спросить, чем ерунду писать?

Abs Найти похожие ветки