1樓：勝利之鷹
1.program aaa;
const
eps=1e-7;
varx,t,s:real;
n:integer;
begin
read(x);
n:=1;
t:=x;
s:=x;
repeat
n:n+2;
t:=t*(-x*x)/(n-1)/n;
s:=s+t;
until abs(t)writeln(s);
end.
2.program bbb;
varx,t,s:real;
i:integer;
begin
read(x);
t:=x;
s:=x;
for i:=1 to 100 do
t:=t*(-x*x)/(2*i-1);
s:=s+t;
writeln(s);
end.
2樓：
1 var x,s,i,j,k:real;
begin
__readln(x);
__i:=-1; s:=0; j:=1/x; k:=-1;
__repeat
____j:=j*x*x; k:=k+2; i:=-i;
____s:=s+i*j/k;
__until abs(j/k)<1e-7;
__writeln(s);
end.
2 var x,s,i,j,k,l:real;
begin
__readln(x);
__i:=1; s:=0; j:=x; k:=1;
__for l:=1 to 100 do begin____s:=s+i*j/k;
____j:=j*x*x; k:=k+2; i:=-i;
__end;
__writeln(s);
end.
這是我現編的，應該對，下劃線請無視，第一題用while會更好。
求pascal快速排序的程式，求pascal快速排序的程式一個。
var a array 1.100 of integer i,n integer procedure pop l,r integer var p1,p2,x,t integer begin p1 l p2 r x a l r div 2 repeat while a p1 x do inc p1 w...
pascal問題 5，pascal問題
pascal問題 它是下標變數，a是陣列名，i是下標。如要真正了解，需學習陣列型別。陣列的第i個元素 如 var a array 1.5 of integer begina 1 3 a 2 4 a 3 8 a 4 6 a 5 5 write a 3 end.就會輸出陣列a中的第3個元素8 陣列中的第...
PASCAL程式設計問題
因為機器上沒有安裝pascal，所以用delphi的控制檯來實現。62616964757a686964616fe78988e69d8331333330346531 var i,j longint r,s,t string temp char begin readln r readln s t s f...