VPF::перевод в десятичную систему исчисления

Agentum

Дата 11.12.2008, 16:13 (ссылка)

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

Загрузка ...

Новичок

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

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

Блин еще вопрос.Как правильно обратиться к функции upcase?напишите пожалуйста правильно для данной программы.

Agentum

Дата 11.12.2008, 18:36 (ссылка)

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

Загрузка ...

Новичок

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

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

Все,спасибо.Разобрался с апкейс.только еще один вопрос...проверка правильности ввода числа не совсем работает:(она не проверяет число на лишние буквы...

Montr

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

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

Загрузка ...

Новичок

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

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

Попробуй заменить

Цитата

digit: string[36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';

на

Цитата

digit: string[16] = '0123456789ABCDEF';

volvo877

Дата 12.12.2008, 13:07 (ссылка)

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

Загрузка ...

Эксперт

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

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

Montr, очень умный, да? Я специально заменил на полную строку, чтобы можно было работать с системами счисления до 36...

Agentum, мне надоело заниматься телепатией: это у тебя не работает, то у тебя не работает... Все работает. Есть проблемы - приводи программу полностью и показывай при каких данных есть ошибка! Все.

Agentum

Дата 12.12.2008, 16:41 (ссылка)

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

Загрузка ...

Новичок

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

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

Хорошо,извини пожалуйста,спешу просто.Сегодня выложу код и покажу,что она делает неправильно(ну или я напортачил)

Agentum

Дата 13.12.2008, 15:48 (ссылка)

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

Загрузка ...

Новичок

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

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

Так...с проверками я разобрался.Возник вопрос при переводе чисел с точкой...как переделать функцию,чтобы она переводила дробные части чисел,то есть часть строки после точки?

volvo877

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

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

Загрузка ...

Эксперт

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

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

Цитата(Agentum @ 13.12.2008, 14:48

)

Возник вопрос при переводе чисел с точкой...как переделать функцию,чтобы она переводила дробные части чисел,то есть часть строки после точки?

У меня в профиле зайди по второй ссылке из списка "Любимые места в сети", там есть решение этой задачи...

Agentum

Дата 13.12.2008, 18:02 (ссылка)

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

Загрузка ...

Новичок

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

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

По второй ссылке нет ничего.:(

Agentum

Дата 13.12.2008, 18:27 (ссылка)

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

Загрузка ...

Новичок

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

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

Вот нашел по первой ссылке
2. перевод X radix-> X 10

Код

function to_dec(n: string; radix: longint): real;
var
 _int, stepen: longint;
 _frac: real;
  s: string;
 i, p: byte;
begin
 p := pos('.', n);
 if p = 0 then s := n
 else s := copy(n, 1, p - 1);
 {
  В вышеприведенных строках в строку s записывается либо целая часть числа,
  либо все число, если у него нет дробной части
 }
  _int := todec(s, radix); { Переводим целую часть в 10 систему счисления }
 _frac := 0.0;
  {
  Если есть вещественная часть - то выполняем ее перевод
  в систему с основанием radix
 }
 if (p <> 0) and (p < length(n)) then begin
   s := copy(n, p + 1, 255); { Копируем в s только дробную часть, безо всяких точек }
   { Удаляем лишние ведомые нули (справа) }
  while s[length(s)] = '0' do delete(s, length(s), 1);
   {
   по алгоритму нужно последовательно умножать цифры на числа,
   являющиеся обратными соответствующей степени системы счисления
  }
  stepen := 1; { Здесь будет храниться текущая степень системы счисления }
  for i := 1 to length(s) do begin
   stepen := stepen * radix;
    {
    собственно, алгоритм -умножаем цифру на обратное число
    и добавляем в аккумулятор
   }
   _frac := _frac + pred(pos(upcase(s[i]), digit)) / stepen;
  end;
  end;
 { собираем из двух частей результат: }
 to_dec := _int + _frac;
end;

Это сообщение отредактировал(а) volvo877 - 14.12.2008, 09:28

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