как переводить в паскал

'0'..'9': Inc(r, Ord(c) - Ord('0'));

function HexToInt(s: string): Longword;

else IntToHex:= b[(ds shr 4) + 1] + b[(ds and $F) + 1];

if (b[(ds shr 4) + 1] = '0') then

b: string = '0123456789ABCDEF';

function IntToHex(ds: byte): string;

if (count > 1) then CheckDotCount := false

if (s[i] = '.') then inc(count);

function CheckDotCount(s: string): boolean; // Проверка количества точек в числе

base_out : integer; // Основание выходной системы счисления

base_in : integer; // Основание входной системы счисления

s, s1,s2 : string; // число для перевода

Исходный код (FreePascal):

Ограничение во FreePascal: числа в 16-ричной системе можно вводить только большими буквами. Нет функции UpperCase, писать было лень :)

К сожалению, точность вычислений здесь меньше, чем была на си — всего один знак после запятой точен.

В прошлом году Теперь потребовалось на Pascal.Функций стало больше. Некоторые пришлось просто копировать с других сайтов (да простят меня авторы)

Опубликовано автором

Pascal: Калькулятор для перевода из одной системы счисления в другую

Навигация по записям

Pascal: Калькулятор для перевода из одной системы счисления в другую | Pyatnitsev Home