| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Abs

Resident ©   (2008-03-03 22:30:00) 

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

---

korneley   (2008-03-04 19:20:00) [1]

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

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

---

Anatoly Podgoretsky   (2008-03-04 16:33:00) [2]

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

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

---

korneley   (2008-03-04 13:16:00) [3]

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

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

---

Anatoly Podgoretsky   (2008-03-04 01:18:00) [4]

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

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

---

Германн   (2008-03-04 00:48:00) [5]

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

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

---

korneley   (2008-03-04 00:10:00) [6]

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

---

korneley   (2008-03-03 23:52:00) [7]

тут вполне можно ожидать "правильного" решения от преподавателя. Например такого

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;


---

DVM   (2008-03-03 22:38:00) [8]

> Loginov Dmitry ©

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

---

Loginov Dmitry   (2008-03-03 22:37:00) [9]

:D

---

Resident   (2008-03-03 22:36:00) [10]

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

---

DVM   (2008-03-03 22:34:00) [11]

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

---

Loginov Dmitry   (2008-03-03 22:33:00) [12]

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

---

Наверх