HexToInt - Форум

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

Форум » Программирование на Delphi » Общие вопросы по Delphi. » HexToInt

HexToInt

VintProg

Дата: Четверг, 10.06.2010, 18:05 | Сообщение # 1

Рядовой

Группа: Администраторы

Сообщений: 4

Репутация: 9

Статус: Offline

Вот код функции, которая конвертирует hex в Int.

Code

function HexToInt(Str : string): integer;
var i, r : integer;
begin
      val('$'+Trim(Str),r, i);
      if i<>0 then HexToInt := 0 {была ошибка в написании числа}
      else HexToInt := r;
end;

Ridicul

Дата: Воскресенье, 19.06.2011, 04:10 | Сообщение # 2

Рядовой

Группа: Пользователи

Сообщений: 3

Репутация: 0

Статус: Offline

Ну ОК

Вычисление факториала:

Code

    long factorial (int n)
    {
        long res = 1;
        int count = 0;

        while(count < n)
        {
            res  *=  count + 1;
            count++;
        }

         return res;
    }

Сообщение отредактировал Ridicul - Воскресенье, 19.06.2011, 04:11

Форум » Программирование на Delphi » Общие вопросы по Delphi. » HexToInt

Страница 1 из 1
1

Мир программирования