Текущий архив: 2007.10.14;
Скачать: CL | DM;
Вниз
Проверка числа на симметричность Найти похожие ветки
← →
NickEr (2007-09-21 03:44) [0]Имеется выходное значение, например: res равное какому-то числу в двоичной системе счисления. Как определить симметричную ли последовательность цифр составляет данное число?
← →
MBo © (2007-09-21 05:32) [1]проверять в цикле биты слева и справа
← →
Slym © (2007-09-21 06:24) [2]NickEr (21.09.07 3:44)
симметричность - относится к строковому (символьному) представлению числа...
11100111 - симетрично, тоже число в деситичной системе - 231 нет, как и E7 (16"ричной)
← →
Slym © (2007-09-21 06:34) [3]
uses StrUtils;
function IsSymetricString(const Str:string):boolean;
var
Str1,Str2:string;
c:integer;
begin
result:=false;
if (length(Str) mod 2)<>0 then
exit;
c:=length(Str) div 2;
Str1:=copy(Str,1,c);
Str2:=copy(Str,c+1,c);
Str2:=ReverseString(Str2);
result:=(Str1=Str2);
end;
Usage:
if not IsSymetricString("11100111") then raise Exception.Create("Sorry...");
Страницы: 1 вся ветка
Текущий архив: 2007.10.14;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.022 c