3.1
X, ,h,a.
y, , , .
: xn,xk,h,a,x,y,sum,pr,min,max
: x,y,sum,pr,min,max
3.2.
( R3) .
R3
xn,xk,h,a,x,y,sum,pr,min,max: ; { }
x,y,sum,pr,min,max: ; { }
s:; { }
(xn,xk,h,a);
x:=xn;
sum:=0;
pr:=1;
min:=100; max:=-100;
1
x<=xk
x>sin(a) y:= sqrt(x-sin(a))
x<sin(a) y:=sin(a)/x
x=sin(a) y:=x*sin(a);
s:=s+floattostr(x)+' '+FloatToStr(y)+#13;
x:=x+h;
sum:=sum+y;
pr:=pr*y;
y<min min:=y
y>max max:=y;
1
x,y,sum,pr,min,max ;
.
3.3.
3.3.1.
3.3.2. Delphi
procedure TForm1.Button1Click(Sender: TObject);
var xn,xk,h,a,x,y,sum,pr,min,max:real;
s:string;
begin
xn:=StrToFloat(edit1.Text); // xn
Xk:=StrToFloat(edit2.Text); // xk
h:=StrToFloat(edit3.text); // h
a:=StrToFloat(edit4.text); // a
x:=xn; // x
sum:=0; // sum
pr:=1; // pr
min:=100; max:=-100; // min,max
while x<=xk do begin
if x>sin(a) then y:=sqrt(x-sin(a)) else // y
if x<sin(a) then y:=sin(a)/x else // y
if x=sin(x) then y:=x*sin(a); // y
s:=s+floattostr(x)+' '+FloatToStr(y)+#13; // s
x:=x+h; // x
sum:=sum+y; // sum
pr:=pr*y; pr
if y<min then min:=y else min
if y>max then max:=y; max
end;
label5.Caption:=s; y,x
label6.caption:='sum='+FloatToStr(sum); sum
label7.caption:='pr='+ FloatToStr(pr); pr
label8.caption:='min=' + FloatToStr(min); min
label9.caption:='max=' + FloatToStr(max); max
end;
end.
3.4.
. , , . .
|
|
: Xn=1, Xk=5, h=3, a=4
: x=1 y=1,354 sum=3,506 min=1,325
X=4 y=2,181 pr=2,890 max=2,181
: Xn=2, Xk=5, h=1, a=1
: x=2 y=1,076 sum=6,362 min=1,076
X=3 y=1,469 pr=5,731 max=2,039
X=4 y=1,777
X=5 y=2,039
: Xn=3, Xk=4, h=2, a=2
: x=1 y=1,445 sum=1,445 min=1,445
pr=1,445 max=0
: Xn=8, Xk=10, h=1, a=3
: x=8 y=2,803 sum=8,919 min=2,803
X=9 y=2,976 pr=26,198 max=3,139
X=10 y=3,139
3.5.
. .