Question

翻译pascal语言

2、var
a, b: integer;
functionwork(a, b: integer): integer;
begin
if a mod b <> 0 then
work := work(b, a mod b)
else
work := b;
end;

begin
read(a, b);
writeln(work(a, b));
end.
输入：2012
输出：___4____
给我逐字逐句地翻译
另外帮我解释这道题中work的意思 read的意思

Answer 1

var
a, b: integer;
function work(a, b: integer): integer; //求a和b的最大公约数
begin
if a mod b <> 0 then //如a不能被b整除
work := work(b, a mod b) //a和b的最大公约数等于b和a mod b 的最大公约数
else
work := b; //如a能被b整除,a和b的最大公约数就等于b
end;

begin
read(a, b); //读入a和b的值
writeln(work(a, b)); //work是自定义函数名（自己取的名字），它的功能在上面已作详细介绍
end.
输入：20 12
输出：___4____

追问

最大公因数是哪句话

追答

求最大公因数不是一句话的事。那是一个函数"function work(a, b: integer)"-----整体所完成的功能。

鉴于本人水平比较有限，不能进一步深入浅出了。请你饶了我吧，如要再进一步解释的话，只好另请高明了。

追问

希望你进一步解释

追答

鉴于本人水平比较有限，不能进一步深入浅出了。请你饶了我吧，如要再进一步解释的话，只好另请高明了。

追问

选你，希望你帮我解释read在句子中的作用

追答

为你作过的回答,希望能仔细阅读：
read(a, b); //读入a和b的值

Answer 2

智商低就别学OI了，这玩意不适合你。
还逐字逐句翻译，真tmd搞笑。
还要翻译“read”，真sb。

追问

老婆嘴
你整天都在钻研怎样骂更爽吗

追答

你有学过编程么？work()是函数你可能没学到很正常。read你不知道什么意思？那你告诉我你写程序的时候怎么读入数据？

你不秀智商下限我会骂你？你当pascal和外语一样还能逐字逐句的翻译？学编程不自己多看书多推敲还来贴吧问这种问题？

你要是问一道题怎么做或者找代码的错误，我当然会帮你。但你这样犯sb，13级的那位已经解释很清楚了你还不懂，那就是你自己的问题了。多看书少犯sb。

追问

我还是小学六年级。read有什么作用

追答

read(a,b);//读入a和b的值
13级那位已经说得很清楚了

Answer 3

这个程序是求最大公约数的，这个怎么逐字翻译？？？
var（定义变量）
a, b: integer;（a，b变量属于整型integer）
functionwork(a, b: integer): integer;（自定义函数work求最大公约数）
begin
if a mod b <> 0 then（如果a 除以b不余零，那么）
work := work(b, a mod b)（将b,a mod b再做为变量用work求他们俩的公约数）
else（否则）
work := b;（最大公约数为b）
end;

begin
read(a, b);（读入a，b）
writeln(work(a, b));（输出（a,b调用函数后求得的最大公约数））
end.

追问

work什么意思，最大公因数是哪句话

答答的好的话选你

追答

work只是自定义函数的名称，这个用什么都可以，大部分用gcd
额，整个函数就是用来求最大公约数的，其实就是辗转相除法，不断调用函数，不明白的话可以搜一下辗转相除法（欧几里得算法），你应该就明白了