没有合适的资源?快使用搜索试试~ 我知道了~
十进制转换K进制 K进制转换十进制 欧几里得算法 求最小公倍数 判断质数 生成质数表 ...
资源推荐
资源详情
资源评论
十进制转换K进制
function dectok(x,k:longint):string;
const alph='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var st:string;
begin
st:='';
while x<>0 do
begin
st:=alph[x mod k+1]+st;
x:=x div k;
end;
exit(st);
end;
K进制转换十进制
function ktodec(st:string; k:longint):longint;
const alph='012456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var i,j,ans:longint;
begin
ans:=0;
j:=1;
for i:=length(st) downto 1 do
begin
inc(ans,j*(pos(st[i],alph)-1));
j:=j*k;
end;
exit(ans);
end;
欧几里得算法
function dectok(x,k:longint):string;
const alph='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var st:string;
begin
st:='';
while x<>0 do
begin
st:=alph[x mod k+1]+st;
x:=x div k;
end;
exit(st);
end;
K进制转换十进制
function ktodec(st:string; k:longint):longint;
const alph='012456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var i,j,ans:longint;
begin
ans:=0;
j:=1;
for i:=length(st) downto 1 do
begin
inc(ans,j*(pos(st[i],alph)-1));
j:=j*k;
end;
exit(ans);
end;
欧几里得算法
function gcd(a,b:longint):longint;
begin
if b=0 then exit(a)
else exit(gcd(b,a mod b));
end;
求最小公倍数
function lcm(a,b:longint):longint;
begin
exit(a div gcd(a,b) *b);
end;
判断质数
function judgeprime(x:longint);
var i:longint;
begin
if x=1 then exit(false);
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then
exit(false);
exit(true);
end;
生成质数表
procedure makeprime;
var i,j:longint;
begin
fillchar(f,sizeof(f),0);
f[1]:=true;
for i:=2 to n do
begin
if b=0 then exit(a)
else exit(gcd(b,a mod b));
end;
求最小公倍数
function lcm(a,b:longint):longint;
begin
exit(a div gcd(a,b) *b);
end;
判断质数
function judgeprime(x:longint);
var i:longint;
begin
if x=1 then exit(false);
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then
exit(false);
exit(true);
end;
生成质数表
procedure makeprime;
var i,j:longint;
begin
fillchar(f,sizeof(f),0);
f[1]:=true;
for i:=2 to n do
剩余9页未读,继续阅读
资源评论
skyfisherman
- 粉丝: 7
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功