求任意输入五个自然数最大公约数.pptVIP

学而不思则罔●▂●思而不学则殆 持续更新，欢迎收藏 函 数 练习1、求任意输入的五个自然数的最大公约数。 Program Exam42; Var a1,a2,a3,a4,a5: integder; function GCD(x,y: integer): integer;???????? {自定义函数 } Var n:integer; begin ? While? x mod y ＜＞0? do ? begin ??? n:=x; x:=y; y:=n?? mod?? y end; ? GCD:=y end; ? Begin??????????????????????????????? ? {主程序 } Write(input 5 Numper:); ? readln(a1,a2,a3,a4,a5);?? ???????????????????｛输入五个数｝ ? Write((,a1,,,a2,,,a3,,,a4,,,a5,)=); a1:＝GCD(a1,a2);? ?????????????????????????????｛调用函数GCD ｝ ? a1:＝GCD(a1,a3); ? a1:＝GCD(a1,a4); ? a1:＝GCD(a1,a5); ? Writeln(a1); ? readln End. 练习3:求：S=1!+2!+...+10!的值 * * 学而不思则罔●▂●思而不学则殆 持续更新，欢迎收藏 学而不思则罔●▂●思而不学则殆 持续更新，欢迎收藏 ⑴自定义一个专门求两自然数的最大公约数的函数GCD; ⑵调用自定义函数,第一次求前两个数的最大公约数;从第二次开始,用每次求得的最大公约数与下一个数再求两个数最大公约数,直到最后。本题共四次“求两个数的最大公约数”， 设输入的五个自然数分别是a1,a2,a3,a4,a5,采用如下步骤： ①求a1, a2两个数的最大公约数 →? 存入a1； ②求a1, a3两个数的最大公约数 →? 存入a1； ③求a1, a4两个数的最大公约数 →? 存入a1； ④求a1, a5两个数的最大公约数 →? 存入a1； ⑤ 输出 a1，此时的a1已是五个数的最大公约数。 学而不思则罔●▂●思而不学则殆 持续更新，欢迎收藏 学而不思则罔●▂●思而不学则殆 持续更新，欢迎收藏 　练习2:求2~1000中的完全数。 分析：所谓完全数是指它的小于该数本身的因子之和等于它本身，如6＝1＋2＋3，6即是一个完全数。 因此我们可定义一个布尔型函数perfect(x),若x是完全数,其值为TURE,否则为FALSE。整个程序算法如下： 学而不思则罔●▂●思而不学则殆 持续更新，欢迎收藏 program exe;　　　var　　　　i:integer;　　　function perfect(x:integer):boolean;　　　　var　　　　　k,s:integer;　　　　begin　　　　　s:=1;　　　　　for k:=2 to x div 2 do　　　　　if x mod k =0 then s;=s+k;　　　　　perfect:=x=s;　　　　end;　　　begin　　　　for i:=2 to 1000 do　　　　if perfect(i) then write(i:5);　　　end. 学而不思则罔●▂●思而不学则殆 持续更新，欢迎收藏 分析：我们可以自定义一个函函数，来求出1!、2!、...，然后相加函数的值即可,完整程序如下： *