波浪數是在一對數字之間交替轉換的數，如1010101(2進制下)、37373(8進制下)、1C1C1C(16進制下)等。
基本介紹
- 中文名：波浪數
- 解釋：在一對數字之間交替轉換的數
- 如：1010101
- 注意：少於三位不是波浪數
複雜波浪數,簡單波浪數程式代碼,
複雜波浪數
雙重波浪數則是指在兩種進制下都是波浪數的數，如十進制數191919是一個十進制下的波浪數，它對應的十一進制數121212也是一個波浪數，所以十進制數191919是一個雙重波浪數。
類似的可以定義三重波浪數，三重波浪數在三種不同的進制中都是波浪數，甚至還有四重波浪數，如十進制300=606（七進制）=363（九進制）=454（八進制）=1A1（十三進制）。
注意：如果一個數字少於三位，那么在該進制下不是波浪數。如：12、13、1、5、AB等。
簡單波浪數程式代碼
簡單波浪數的pascal程式代碼：
var q,z,i,s:longint;
function bls(x:longint):boolean;
var i:longint;
s:string;
n,m:char;
begin
str(x,s);
if length(s)=1
thenexit(false);
n:=s[1];
m:=s[2];
for i:=3 to length(s) do
if ((odd(i)) and (s[i]<>n)) or ((i mod 2=0) and (s[i]<>m))
thenexit(false);
exit(true);
end;
begin
read(q,z);
s:=0;
for i:=q to z do
if bls(i)
then begin writeln(i);inc(s);end;
writeln(s);
end.
function bls(x:longint):boolean;
var i:longint;
s:string;
n,m:char;
begin
str(x,s);
if length(s)=1
thenexit(false);
n:=s[1];
m:=s[2];
for i:=3 to length(s) do
if ((odd(i)) and (s[i]<>n)) or ((i mod 2=0) and (s[i]<>m))
thenexit(false);
exit(true);
end;
begin
read(q,z);
s:=0;
for i:=q to z do
if bls(i)
then begin writeln(i);inc(s);end;
writeln(s);
end.
