Форум: "Основная";
Текущий архив: 2005.07.18;
Скачать: [xml.tar.bz2];

Вниз

Маленький баг...   Найти похожие ветки 

← →
n0p   (2005-07-02 22:47) [0]

procedure TClass.Bug();
var
 O: Integer;
 X: Real;
begin
 O := mX - Trunc(mX);
 X := X + O;
end;

Где баг? Проца должна прибавлять к иксу дробную часть переменной mX, которая обьявленна в классе.

 mX: Real;

Incomaptible types: "Integer" and "Extended"

---

← →
Eraser ©   (2005-07-02 22:49) [1]

n0p   (02.07.05 22:47)
Где баг?

O := mX - Trunc(mX);

---

← →
ferr ©   (2005-07-02 22:50) [2]

Frac

---

← →
n0p   (2005-07-02 23:04) [3]

Пасиб! Правда алгоритм не заработал :(

---

← →
Eraser ©   (2005-07-02 23:11) [4]

n0p   (02.07.05 23:04) [3]

Ну дык ferr © же подсказал как надо.

---

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

Форум: "Основная";
Текущий архив: 2005.07.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.032 c