Question

pascal语言翻译

const
num = 5;
var
n: integer;
function r(n : integer) : integer;
var
i : integer;
begin
if n <= num then
begin
r := n;
exit;
end;
for i :=1 to num do
if r(n-i) < 0 then
begin
r:=i;
exit;
end;
r:=-1;
end;
begin
readln(n);
writeln(r(n));
end.
帮忙翻译下，每句是干什么，什么意思，特别是函数调用部分，谢谢

Answer 1

const num = 5; {这是个类型定义}
var n: integer;{全程变量定义，这里n定义为整型}
function r(n : integer) : integer;{函数，r为函数名}
var i : integer;{函数内部变量定义}
①begin {开始的意思，当分隔符用}
if n <= num then {如果n小于或等于num，就执行下面的（②begin。。end）语句，否则不执行}
②begin
r := n; {将n赋值给r}
exit; {过程终止,跳回主程序}
end; {结束的意思，回应②begin}
for i :=1 to num do {这是个循环语句，从i=1到num（加1递增）执行下面的if语句}
if r(n-i) < 0 then {判断r（n-i）是否小于0，如果是则执行下面的（③begin。。end）语句，否则不执行}
③begin
r:=i;{将i赋值给r}
exit; {过程终止,跳回主程序}
end;{回应③begin}
r:=-1;{将-1赋值给r}
end; {回应①begin}
begin {主程序}
readln(n); {读取n的值}
writeln(r(n)); {输出r（n），这里r（n）是函数，最终输出的是相应的函数值}
end.

总的过程就是：读取数据n（需要你输入），然后输出r（n），因为r（n）是函数，所以执行r函数。如果n小于或等于5，则r=n，然后终止函数并输出函数值；如果n大于5，就跳到for循环。下面的你应该也懂得了。。。。

嘻嘻嘻嘻嘻，，，够详细不？？？？

Answer 2

买本书看看就知道了
num是个常数，永远等于10；
function是函数；
for···to···do是循环；
if是判断；
readln是写入；
writeln是输出；
begin开始；
end结束。