?? midsqu.txt
字號:
Function SQU(X, BB:real):real;
begin
SQU:=2 * X * FUNC(BB - Sqr(X));
end;
procedure MIDSQU(AA, BB:real; var S:real; N:integer);
var
A,B,TNM,X,DEL,DDEL,SUM:real; IT,J:integer;
begin
B:=Sqrt(BB - AA);
A:=0;
If N = 1 Then
begin
S:=(B - A) * SQU(0.5 * (A + B), BB);
IT:=1;
end
Else
begin
IT:=Trunc(Exp((N - 2)*Ln(3)));
TNM:=IT;
DEL:=(B - A) / (3 * TNM);
DDEL:=DEL + DEL;
X:=A + 0.5 * DEL;
Sum:=0;
For J:=1 To IT do
begin
Sum:=Sum + SQU(X, BB);
X:=X + DDEL;
Sum:=Sum + SQU(X, BB);
X:=X + DEL;
end;
S:=(S + (B - A) * Sum / TNM) / 3;
end;
end;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -