1樓:匿名使用者
解釋一下。
1+2+3+… …+n的和可以看成是乙個上底是1下底是n的梯形的面積。
| 1| | 2| | | 3| | | | 4… … … …
所以1+2+3+… …+n=n*(1+n)/2.
1)program sum1;
var b,i:longint;
begin
readln(n); b:=0;
for i:=1 to n do
b:=b+i;
writeln(b);
end.
2)program sum2;
var a:longint;
begin
readln(a);
writeln(a*(a+1) div 2);
end.
2樓:汪靖恆
program sumn;
var n:longint;
begin
readln(n);
n:=n*(n-1) div 2;
writeln(n);
end.
3樓:匿名使用者
var n,i,s:longint;
begin
read(n);s:=0;
for i:=1 to n do s:=s+i;
writeln(s);
end.
4樓:匿名使用者
var n,i:intger;s:longint;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
end.
pascal 計算1!+2!+3!+......+n!的值
5樓:匿名使用者
一重迴圈就行 核心**, 因為2的階乘可以由1得來,3的由2得來............
t:=1;
ans:=0;
for i:=1 to n do
begin
ans:=ans+t*i;
t:=t*i;
end;
write(ans);
6樓:un夏日的微曦
var n,i,j,t,s:longint;
begin
s:=0;
for i:=1 to n do
begin
t:=1;
for j:=1 to i do
t:=t*j;
s:=s+t;
end;
writeln(s);
end.
7樓:匿名使用者
const max=10000;
var a:array[1..max] of integer; n,h,i,j:integer;
begin
readln(n);
for i:=1 to max do a[i]:=0; a[1]:=1;
h:=1; for i:=2 to n do begin
for j:=1 to h do a[j]:=a[j]*i; for j:
=1 to h do if a[j]>=10 then begin
a[j+1]:=a[j+1]+a[j] div 10; a[j]:=a[j] mod 10;
end;
while a[h+1]>0 do begin
h:=h+1;
a[h+1]:=a[h] div 10;
a[h]:=a[h] mod 10;
end;
if a[h+1]>0 then h:=h+1;
end;
for i:=h downto 1 do write(a[i]);
writeln;
end.
用遞迴的方法求1+2+3+4+……(n-1)+n的值 pascal語言 30
8樓:聽不清啊
var n:integer;
function sum(n:integer);
var i,s:integer;
begin
s:=0;
for i:=1 to do
inc(s,i);
sum:=s;
end;
begin
readln(n);
writeln(sum(n));
end.
程式設計計算:1-1/2+1/3-1/4+1/5-……+1/n的值,其中n為使用者鍵盤輸入值。要求按下面的格式進行輸出。
9樓:匿名使用者
雖然沒分,還是答一下吧,望採納:
#include //或#include
#include//如果需要用system()函式,需加該標頭檔案void main()
cout << "=" << sum <}
pascal求1!-2!+3!......
10樓:聽不清啊
var s,n,i,t:longint;
begin
readln(n);
s:=0; t:=1;
for i:=1 to n do
begin
t:=t*i;
if odd(i) then s:=s+t else s:=s-t;
end;
writeln(s);
end.
pascal求1+(1+2)+(1+2+3)+…+(1+2+3+……+n)
11樓:匿名使用者
varbegin
readln(n);
s:=0;
k:=0;
for i:=1 to n do
begin
for j:=1 to i do
k:=k+j;
s:=s+k;
end;
writeln(s);
end.
12樓:
vari,j,n,s:integer;
begin
readln(n);
for i:=1 to n do
for j:=1 to i do
s:=s+j;
writeln(s);
end.
13樓:匿名使用者
一共有n個1,(n-1)個2,..............,1個nvari,ans,n:longint;
begin
readln(n);
ans:=0;
for i:=1 to n do
ans:=ans+i*(n+1-i);
writeln(ans);
end.
14樓:匿名使用者
varn,s,k,i,j:integer;
begin
readln(n);
s:=0;
k:=0;
for i:=1 to n do
begin
for j:=1 to i do
k:=k+j;
s:=s+k;
end;
writeln(s);
end.
pascal程式設計求助
4.program df var a,b,c,d,z,fm,fz integer procedure huajian var i integer begin i 2 repeat while fm mod i 0 and fz mod i 0 do begin fm fm div i fz fz d...
pascal程式優化,一道pascal程式設計題目,不知道怎麼優化程式才能不超時?只能乙個乙個加減?實在想不到,求大神們指點指點!
var ans i j n longint begin readln n for i 1 to 20 n dofor j 1 to 50 n doif 100 n 5 i 2 j 0 then inc ans writeln ans end.varmax,i,j,n longint begin re...
求PASCAL簡單程式,求乙個PASCAL簡單程式
var a longint begin read a if a 100 then writeln 1 else writeln 0 end.var a string begin readln a if a 100 then writeln 1 else writeln 0 end.這是我寫的,都對,...
pascal最大公因數,pascal求兩正整數的最小公倍數和最大公因數
數學題。輾轉相除法。例如兩個數,a和b。當a b時,a a mod b 當a 0時,b的值就是a和b的最大公因數,否則調換a,b的值,繼續操作。var m,n,r,t integer begin read m,n if m repeat r m mod n m n n r until r 0 wri...
電腦程式設計有什么用,用pascal什么用
電腦的執行其實就是程式的執行,程式是利用計算機語言來編寫的,這個編寫的過程就是程式設計,而程式就是程式設計的結果,程式控制著電腦運作產生可以預期的結果 如果不是你預期的結果,要麼是程式有問題,要麼是你操作有問題。pascal是一種早期的計算機語言,目前並不會有很多人利用它來編寫實用的程式,但是作為第...