VPF::Очередная трудноразрешимая задача..

IwantToBeProgrammer

Дата 1.10.2007, 16:53 (ссылка)

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

Загрузка ...

Новичок

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

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

Задача заключается в следующем: перевести дробные числа из троичной с/с в двоичную. вероятно нужно сначала перевести дробные троичной в десятичную - впринципе не сложно алгоритм этой части приблизительно знаком, но из десятичной в двоичную при этом дробные - никак((

volvo877

Дата 1.10.2007, 17:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Цитата(IwantToBeProgrammer @ 1.10.2007, 15:53

)

но из десятичной в двоичную при этом дробные - никак((

В чем проблема? Алгоритм не понятен? Вот тут прочти: Перевод из десятичной системы в произвольную

IwantToBeProgrammer

Дата 1.10.2007, 17:27 (ссылка)

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

Загрузка ...

Новичок

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

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

не понятно как записать это в цикл на паскале, как именно..

volvo877

Дата 1.10.2007, 17:58 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Вот так, например:

Код


const
  radix = 2;

var
  n: real;
  s: string;

begin
  n := 0.626;
  s := '0.';

  repeat
    n := n * radix;
    s := s + chr(ord('0') + trunc(n));
    n := frac(n);
  until (n = 0) or (length(s) > 15); { <--- 15 - это точность}
  writeln(s);
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »