主题：pascal新手求教各位大虾高手关于最小公倍数和最大公约数
dqzhangwei
[专家分：0] 发布于 2009-03-15 14:49:00
从键盘读入两个数，编程计算它们的最小公倍数和最大公约数，求教大虾们指点，谢谢了！！！
回复列表 （共3个回复）
沙发
angwuy [专家分：2280] 发布于 2009-03-15 19:06:00
辗转相除法
板凳
dqzhangwei [专家分：0] 发布于 2009-03-16 08:36:00
大虾，能给个示例吗？我实在是没想出来，谢谢了！
3 楼
w75317 [专家分：530] 发布于 2009-04-08 21:37:00
辗转相除法：
File Edit Search Run Compile Debug Tools Options Window Help 21:40:34
╔═[■]════════════════════════════ D:\dsah.pas ═══════════════════════════2═[↕]═╗
║program EXE1; ▲
║var ▓
║m,n,r,t,a,b:integer; ▓
║begin ▓
║readln(m,n); ▓
║if (n<=0)or(m<=0)then ▓
║begin ▓
║writeln('error'); ▓
║end; ▓
║a:=m; ▓
║b:=n; ▓
║if m<n then begin t:=m;m:=n;n:=t;end;r:=m mod n; ▓
║while r<>0 do ▓
║begin ▓
║m:=n;n:=r;r:=m mod n;end; ▓
║t:=(a*b)div n; ▓
║writeln('zui da gong yue shu:',n,'zui xiao gong bei shu:',t); ▓
║end. ▓
║ ▓
║ ▓
║ ▼
╚══════ 17:56 ◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►┘
F1 Help F2 Save F3 Open Alt+F9 Compile F9 Make Alt+F10 Local menu
给我加分
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — pascal新手求教各位大虾高手关于最小公倍数和最大公约数