用pascal求s=1-2+3-4+5-6+7-8+...+99-100的值

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 21:04:00
用pascal求s=1-2+3-4+5-6+7-8+...+99-100的值用pascal求s=1-2+3-4+5-6+7-8+...+99-100的值用pascal求s=1-2+3-4+5-6+7-

用pascal求s=1-2+3-4+5-6+7-8+...+99-100的值
用pascal求s=1-2+3-4+5-6+7-8+...+99-100的值

用pascal求s=1-2+3-4+5-6+7-8+...+99-100的值
program Sum;
var T,i:longint;
begin
T:=0;
for i:=1 to 100 do
if odd(i) then T:=T+i
else T:=T-i;
writeln(T);
end.

用pascal求s=1-2+3-4+5-6+7-8+...+99-100的值 pascal用高精度方法求s=1+2+3+……+n的精确值 pascal用高精度方法求s=1+2+3+……+n的精确值 pascal编程s=1+2/1+3/1+4/1+5/1.+100/1 pascal程序设计:s:=1*2*3+2*3*4+3*4*5+.+n*(n+1)*(n+2). pascal编程 s=1*2+2*3+3*4+.n*(n+1) pascal编程求1+3+5+...+n一定要是自己是过的,要用pascal! pascal编程s=1+3+5+...+n,求s.var s,n,i:integer;beginreadln(n);for i:=1 to ______ doif ______________then s:=s+i;writeln(s);end. 计算S=1+3+5……+97+99 pascal pascal问题,请用while语句做出,1.某登山队员第一天登上山峰高度的一半又24米; 第二天登上余下高度的一半又24米;每天均如此.到第七天,距山顶还剩91米.求此山峰的高度?2.求S=1-1/2+1/3-1/4+1/5-1/6+. 已知:s=1+1/2+1/3+…+1/n 求:使s的值大于10时最小的n.pascal程序:vars :real;n :integer;begins:=0;n:=0;while s 用递归的方法求1+2+3+……+(n-1)+n 用PASCAL 用PASCAL语言编写一个求1+2+3+...+N的程序 Pascal用while语句编程的问题9个.大神帮帮忙!急啊!1.求S= 1-1/2 +1/3-1/4+1/5-1/6+ ……(求前N项的和)2. Faibonacci数列前几项为: 0,1,1,2,3,5,8,…,其规律是从第三项起, 每项均等于前两项之和.求前30项, 并 用pascal语言的while循环求s=1+2+3+...+10跪求,简单一点,我是初学者还有几题:用while循环s=1+1/2+1/3+...+1/100;计算n!,其中n键盘输出输入任意自然数a,b,求a,b最小公倍数小球从100高处自由落下,着地后 pascal编程:阶乘题目描述用高精度计算出S=1!+2!+3!+…+n!(n≤50) 其中“!”表示阶乘,例如:=5*4*3*2*1.输入格式一个正整数N.输出格式一个正整数S,表示计算结果.样例输入 3 样例输出 9 pascal编程:阶乘用高精度计算出S=1!+2!+3!+…+n!(n≤50)其中“!”表示阶乘,例如:=5*4*3*2*1.输入格式一个正整数N.输出格式一个正整数S,表示计算结果.样例输入3样例输出9 pascal求10000以内n的阶乘?Program jiecheng ;var s,n:longint;function fac(n:integer):integer;vark,t:integer;begint:=1;for k:=2 to n dot:=t*k;fac:=t;end;beginwriteln('Input n:');read(n);s:=fac(n);write('s=',s);end.由于是新手,刚接触pascal,