VPF::Странный результат работы алгоритма

Алина

Дата 20.12.2005, 13:21 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 60
Регистрация: 14.5.2005

Репутация: нет
Всего: нет

две программки:

Код


var e: extended;
      i: longint;
begin
e:=1;
while(e>0)
  begin
  inc(i);
  e:=e/10;
  end;
showmessage(inttostr(i));

Код


var e: extended;
      i: longint;
begin
e:=1;
while(e+1>1) // изменили условие e>0 на e+1>1
  begin
  inc(i);
  e:=e/10;
  end;
showmessage(inttostr(i));

выдают результаты: первая - 20, вторая - 4950.
Что есть правильное значение и почему такой результат?

Snowy

Дата 20.12.2005, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Никакой. И то и другое - неправильно.
Правильный ответ - бесконечность.
Разница лишь в погрешности округления.

~FoX~

Дата 20.12.2005, 13:47 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Все верно, как только значение E вылазит за 20 символов (10 байт) последующие цифры не беруться в расчет.....У меня она вываливеат первая i=12732847 вторая i=12727916

--------------------

…множественность никогда не следует полагать без необходимости…

Alcohol

Дата 20.12.2005, 20:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 28.11.2005

Репутация: нет
Всего: нет

Если это прога для определения машинного эпсилон как я понял, то все вабще в корне не так,
а вот так. Не знаю зачем там правда этот счетчик.

Код


var eps:extended;

begin
eps:=1;
while (eps/2+1)>1 do
eps:=eps/2;
Showmessage('Машинное эпсилон='+Floattostr(eps));
end;

Это сообщение отредактировал(а) Alcohol - 20.12.2005, 20:33

Гость_Алина

Дата 21.12.2005, 11:12 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Эта прога для определения числа значащих знаков после запятой. Взята из учебника Ландау, Липшица, проверенного временем.

Пусть даже алгоритм и сомнителен, но почему поменяв условие, получили диаметрально разные результаты?

У меня получается ровно 20 и 4 тысячи с хвостиком...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »