Скачать: CL | DM;

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]

:D

---

← →
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 можно придумать!
:)

---

← →
Anatoly Podgoretsky ©   (2008-03-04 01:18) [9]

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

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

---

← →
korneley ©   (2008-03-04 13:16) [10]

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

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

---

← →
Anatoly Podgoretsky ©   (2008-03-04 16:33) [11]

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

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

---

← →
korneley ©   (2008-03-04 19:20) [12]

> Anatoly Podgoretsky ©   (04.03.08 16:33) [11]

Итак, дубель третий: И я, в [6] и [10], о том же.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.034 c