pascal簡單問題,pascal簡單問題一個。!

2023-01-22 21:40:16 字數 1049 閱讀 6632

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...