pascal 题,输入5个正整数求它们的最大公约数.

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/17 06:28:48

pascal 题,输入5个正整数求它们的最大公约数.
另外,解决的方法最好用函数!

主要有三个问题,一个是你的YUSHU函数应该用值参而不是用形参,就是说要把VAR去掉；还有就是你的循环体里A:=B是不对的,想一下,如果这样赋值,一进循环体,A,B就相等了,显然不对,应该定义一个中间变量T,先把a的值赋给T,再处理,防止A的值被覆盖；还有就是不知为什么突然冒出一个X.
修改如下
function gcd(a,b:longint):longint;
var
t:longint;
begin
repeat
t:=a;
a:=b;
b:=t mod b;
until b=0;
exit(a);
end;
还有一种递归的写法
function gcd(a,b:longint):longint;
begin
if b=0 then exit(a)
else exit(gcd(b,a mod b));
end;

pascal 题,输入5个正整数求它们的最大公约数. pascal 输入30个正整数,计算它们的和,平方和 VB编程,输入n个整数,求它们的最大公约数. 用Free Pascal 做求两个正整数的最大公约数 C语言编程：输入两个正整数m和n,求它们的最大公约数. 输入两个正整数m和n,求它们的最大公约数和最小公倍数.(习题6.1) C语言编写函数:输入两个正整数m,n,求它们的最大公约数和最小公倍数编写函数:输入两个正整数m,n,求它们的最大公约数和最小公... pascal语言求n个自然数的最大公约数和最小公倍数输入两个正整数m和n,求它们的最大公约数和最小公倍数（本题要求用辗转相除法实现）输入n个正整数,先求出它们的平均值x,然后求出所有数据与x的差的平方和S用pascal 编程提示用户输入两个正整数,并求出它们的最大公约数,分别实现下面三种算法：