查人人中国名人网守望先锋rtt是什么:有关PASCAL的题目.!请大家帮帮忙,谢谢!
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/04 15:05:38
1.E=1+1/2!+1/3!+……+1/n!
S=1*2+2*3+3*4+……+n*(n+1)
2. 输入10个学生成绩，分别统计成绩在85—100分，60—85分，60分以下，各分数段中的人数。
3. 求10个数中的最大值和最小值。
(请用PASCAL的FOR循环语句来做.最好在比较难理解的步骤后写上批注...
谢谢了!!!)
inc这个函数我闷尚未学习...!
S=1*2+2*3+3*4+……+n*(n+1)
2. 输入10个学生成绩，分别统计成绩在85—100分，60—85分，60分以下，各分数段中的人数。
3. 求10个数中的最大值和最小值。
(请用PASCAL的FOR循环语句来做.最好在比较难理解的步骤后写上批注...
谢谢了!!!)
inc这个函数我闷尚未学习...!
1
Var e,m:real;
i,j,n:longint;
Begin
readln(n);
m:=1;e:=0;
for i:=1 to n do
begin
m:=m/i;
e:=e+m;
end;
writeln(e);
End.
Var n,s,i:longint;
Begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+i*(i+1)
End.
2
Var a:array[1..3] of integer;
i,j:integer;
Begin
for i:=1 to 10 do
begin
readln(j);
if (j>=85) and (j<=100) then inc(a[1]);
if (j>=60) and (j<=85) then inc(a[2]);
if (j<60) then inc(a[3]);
end;
for i:=1 to 3 do
writeln(a[i]);
End.
3
Var max,min,i,j:integer;
Begin
max:=-maxint;
min:=maxin;
for i:=1 to 10 do
begin
readln(j);
if j>max then max:=j;
if j<min then min:=j;
End;
writeln(max);
writeln(min);
End.