登录
立即注册
找回密码
搜索
搜索
本版
文章
帖子
群组
用户
快捷导航
首页
平台介绍
赛事专栏
考级专栏
资源下载
科技前沿
华未云科普平台
»
升学互动
›
竞赛专区
›
信息奥赛专区
›
加速叠代法
返回列表
发帖
加速叠代法
[复制链接]
发表于 2023-12-30 09:39:36
|
显示全部楼层
|
阅读模式
算法9:加速叠代法
functionf(a,b,n:longint):longint;
vard,t:longint;
begin
d:=1;t:=a;
whileb>0 do
begin
if t=1 thenbegin
f:=d;exitend ;
if b mod 2 =1then d:=d*t mod n;
b:=b div 2;
t:=t*t mod n;
end;
f:=d
end;
练习:
回复
使用道具
举报
返回列表
发帖
高级模式
B
Color
Image
Link
Quote
Code
Smilies
您需要登录后才可以回帖
登录
|
立即注册
本版积分规则
发表回复
回帖并转播
回帖后跳转到最后一页
快速回复
返回顶部
返回列表