VB编程练习PPT 输入任意三位数：A1, A2, A3,求它们最大公约数和最小公倍数. .pptVIP

输入任意三位数：A1, A2, A3，求它们的最大公约数和最小公倍数.思路： 对于最大公约数，先找出M=min{Ai}，然后让j从M到1逐步递减穷举，判断所有的Ai除以j的 余数是否为0，第一个满足的j值即为最大公约数;对于最小公倍数：取M=max{Ai},然后让j从1开始逐渐递增穷举，判断M*j除以所有Ai的余数是否为0，第一个满足的即为解。 %% 最大公约数 程序代码A1=input(‘输入第一个数’);A2=input(‘输入第二个数’);A3=input(‘输入第三个数’);M=min([A1,A2,A3]) ;for j=M:-1:1 if rem(A1,j)==0 rem(A2,j)==0 rem(A3,j)==0 fprintf(‘%d,%d,%d的最大公约数为 %d\n,A1,A2,A3,j)  break endend 程序结果： 输入第一个数3 输入第二个数4 输入第三个数6 3,4,6的最大公约数为1 程序结果： 输入第一个数8 输入第二个数16 输入第三个数32 8,16,32的最大公约数为8 %% 最小公倍数 程序代码 A1=input(输入第一个数); A2=input(输入第二个数); A3=input(输入第三个数); M=max([A1,A2,A3]) ; for j=1:A1*A2*A3 if rem(M*j,A1)==0 rem(M*j,A2)==0rem(M*j,A3)==0 fprintf(%d,%d,%d的最小公倍数为%d\n,A1,A2,A3,j*M) break end end 程序结果： 输入第一个数10 输入第二个数15 输入第三个数20 10,15,20的最小公倍数为60 程序结果： 输入第一个数2 输入第二个数3 输入第三个数5 2,3,5的最小公倍数为30 3 4 5 6 8 10 5 12 13 8 15 17 12 16 20 7 24 25 10 24 26 20 21 29 16 30 34 9 40 41 12 35 37 24 32 40 27 36 45 14 48 50 问题 ： 输入任意n个自然数：A1, A2,...,An，求它们的最小公倍数 思路： 最小公倍数：取M=max{Ai},然后让j从1开始逐渐递增穷举，判断M*j除以A的所有自然数是否为0，第一个满足的即为解。 提示： 使用向量存储这n个自然数，使用prod(A)计算A中元素的乘积。 最小公倍数 程序代码 A=input(输入任意个自然数向量A:=); M=max(A) ; %计算A中元素的最大值 for j=1:prod(A) flag=0; % 用于判断是否能整除的符号 for t=1:length(A) %遍历A中所有元素 if rem(M*j,A(t))==0 flag=1; else flag=0 ; % 如果存在不能整除的自然数，跳出循环 break end end if flag==1 % 此时表示所有的自然数都能整除M*j fprintf(向量A中元素的最小公倍数为%d\n,j*M) break; % 跳出 end end 尼科梅彻斯定理 任何一个自然数的立方都能写成一串连续奇数之和.比如： 编程输入N，输出N3是那些连续奇数之和。 本题的归纳方法如下： 1）N3是N个奇数之和。 2）组成13的1个奇数是奇数序列中的第1个奇数； 组成23的2个奇数是奇数序列中的第1+2=3个奇 数及其前n-1=2-1=1个奇数。 组成33的3个奇数是奇数序列中的第1+2+3=6个奇数及其前n-1=3-1=2个奇数。 组成43的3个奇数是奇数序列中的第1+2+3+4=10个奇数及其前n-1=4-1=3个奇数。 归纳得组成N3的N个奇数中，最大的奇数是奇数序列中的第K个，K=1+2+3+……+N。然后