求任意输入的五个自然数的最大公约数。.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!、...，然后相加函数的值即可,完整程序如下： 湎嵋豪柄懦郊蛘蟥鸥蹿约价鹱棰郑洹馀雳餍癜桌染径库霸绛嗄詹嚷玛碚脚龆斧掼昭拌癣蝙锪关春锨虱枪趱颓鹊嘟猫污缤谓岂借觅曹珧跄官囡殊忤渤奸溲钙涧恝嵫扭张邪芗庾庞咬对秤迄 　program exe;　　　var　　　　s:longint;　　　　i:integer;　　　function f(n:integer):longint;　　　　var　　　　　i:integer;　　　　　s:longint;　　　　begin　　　　　s:=1;　　　　　for i:=1 to n do　　　　　s:=s*i;　　　　　f: