作业帮 > 综合 > 作业

pascal问题1.利用自定义函数求任意两个整数N~M(0

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/04/29 03:53:06
pascal问题
1.利用自定义函数求任意两个整数N~M(0
pascal问题1.利用自定义函数求任意两个整数N~M(0
想了想...
1--
var
n,m:integer;
function f(n,m:integer):longint;
var
i,s:longint;{因为总和可能很大 所以用longint}
begin
for i:=n to m do inc(s,i); {inc(i,x)的意思是i:=i+x}
f:=s;{值赋给函数f}
end;
begin
readln(n,m);
write(f(n,m));{直接调用函数f 得到结果}
end.
2--
var
i:integer;
check:array[10..99]of boolean;{在这里定义布尔型数组来记录符不符合条件}
begin
for i:=10 to 99 do begin{因为是两位数 所以10~99}
for j:=2 to i-1 do if i mod j=0 then check[i]:=false;
{如果可以被非1和他本身的数整除就记录为false}
k:=(i div 10)+(i mod 10)*10;{k代表倒序i}
for j:=2 to j-1 do if j mod k=0 then check[i]:=false;{同上,若可被整除就记录false}
end;
for i:=10 to 99 do if check[i] then write(i,' ');{如果正确则输出i 这里用' '实现空格}
end.
想了半天呐...望采纳!
刚才没看到追问...把注解写上了.
再问: 辛苦你了!but 我昨天就写好了。不过再问一下,形式参数到底是写什么的,我总是搞不清楚要写什么进去,怎么办啊~~
再答: 在这里,函数的参数n,m是一个接口参数,说得更明确点时入口参数。如果我们调用函数:f(5,10),那么在程序里所有n和m的地方都被替代成5和10来计算。在这里,5和10就被称为实参。又如:sqrt(4),ln(5),这里4,5叫实参。而sqrt(x),ln(y)中的x,y叫形参。形式参数就是指你调用的入口变量名。一般为了方便,函数定义里就用主程序里的变量来表示。 {注:函数中的形参可以不用在主程序var处说明,如定义了函数f(n),可以不用在主程序的var里定义n。} 纯手打...