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

来源：学生作业帮助网编辑：六六作业网时间：2024/12/29 04:21:55

pascal问题1.利用自定义函数求任意两个整数N～M（0pascal问题1.利用自定义函数求任意两个整数N～M（0pascal问题1.利用自定义函数求任意两个整数N～M（0想了想...1--varn

pascal问题1.利用自定义函数求任意两个整数N～M（0
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.
想了半天呐...望采纳!
刚才没看到追问...把注解写上了.

pascal问题1.利用自定义函数求任意两个整数N～M（0 vfp自定义一个求n!的函数,并利用该自定义函数计算:s=1!+3!+5!+7!+9! 求任意五个自然数的最小公倍数 pascal 自定义函数,求一元二次方程的解. c语言编程,输入一个数组,利用自定义函数求数组的平均数(用数组做参数). pascal求定义一函数fz3,求1—n之间3的倍数之和.定义一函数fz5,求任意自然数n的各位数字之和. 任意给定半径用自定义函数计算球体积,设计函数部分,vf语言 C语言,自定义函数,求一元二次方程的解. 数学利用函数连续性求函数极限部分一个问题. 怎样利用ZEMAX自定义棱镜, 几道MATLAB题,1.利用循环结构编程创建4阶pascal矩阵.2.利用分支结构编程创建符号函数.3.求Fibonacci数列：1)大于4000的最小项 2)5000之内的项数4.产生函数g(x)={e^x/2 (a1,2,3,4,5题已经自行解决求6题的函 pascal语言编程问题（free pascal求1—N中的素数的个数.(1 几道关于pascal的题目题目分别如下：1.用字符输出一个“王”字.2.从键盘上读入小写的pascal,利用CHR（）和ORD（）函数,输出大写的PASCAL.3. 从键盘上读入一个实数,利用ROUND（）和TRUNC（）函求PASCAL背包问题和无限背包思路和程序如何利用MATLAB求任意一函数的不定积分,有没有相应的程序 C语言题目,利用自定义函数编写程序,求下面的式子：Y=1*1/2*1/3……*1/n （n的数值由键盘输入,n Free Pascal问题,用函数和过程解.1.找出由键盘任意输入三个整数中的最大数的过程.2.输入三个不同的整数,按由小到大排列,用过程编程.3.用不带参数的过程和带参数的过程分别编写一个程序,实 c++,输入a,b,c,自定义函数,求二元一次方程ax^2+bx+c=0的解要详细的步骤,代码 ,要自定义函数,自定义函数 ,要写c++代码啊