2
101
|
. _______________________ _____________________
. -10-01 , ,
2011
2
( ) . .
.
; 
; 
; 
.
x y α α =0,5 α =2,5 ∆α = 0,5. .
. N :
N = ((α - α)/∆α) + 1,
.
( ).
α, .
α = 2.
,
≈ 
≈
≈ 
≈ 1,250
. ( Work_2a), (Work_2b) (Work_2c).
N , i .
5. Work_2a
| . | . | ||
| : |
α
α
| an ak da | . . . |
| : * * | n i x | n i x | . |
| y | y | . |
: Work_2b Work_2c , *.
: .
|
|
|
Work_2a: , ,
*************************************
* i * a * x * y *
*************************************
* 00 * 0.00 * 0.000 * 00.00000 *
* 00 * 0.00 * 0.000 * 00.00000 *
* 00 * 0.00 * 0.000 * 00.00000 *
*************************************
: Work_2b Work_2c i, .
.
Program Work_2a;
{ 2, 101, .., -00-01}
{
}
Var i,n: Integer;
an,ak,da,a,x,y:Real;
Begin
Writeln(' an,ak,da => ');
Readln(an,ak,da);
n:=TRUNC(((ak-an)/da)+1.0);
Writeln(' ');
Writeln('*************************************');
Writeln('* i * a * x * y *');
Writeln('*************************************');
For i:=1 TO N DO
Begin
a:=an+da*(i-1);
x:=ln(PI/(0.5*a))/ln(10);
y:=sqrt(3*exp(1.1*ln(x))+sqr(cos(a)));
Writeln('*',i:3,' *',a:6:2,' *',x:7:4,
' *',y:9:5,' *');
end;
Writeln('*************************************');
End.
Work_2a.pas
*************************************
* i * a * x * y *
*************************************
* 1 * 0.50 * 1.0992 * 2.02463 *
* 2 * 1.00 * 0.7982 * 1.62268 *
* 3 * 1.50 * 0.6221 * 1.33595 *
* 4 * 2.00 * 0.4971 * 1.25058 *
* 5 * 2.50 * 0.4002 * 1.31814 *
*************************************
. : i n , n, , .
Program Work_2b;
{ 2, 101, .., -00-01}
{ }
Var an,ak,da,a,x,y:Real;
Begin
Writeln(' an,ak,da => ');
Readln(an,ak,da);
Writeln(' ');
Writeln(' ********************************');
Writeln(' * a * x * y *');
Writeln(' ********************************');
a:=an;
While a<=ak do
Begin
x:=ln(PI/(0.5*a))/ln(10);
y:=sqrt(3*exp(1.1*ln(x))+sqr(cos(a)));
Writeln(' *',a:7:2,' *',x:7:4,' *',y:9:5,' *');
a:=a+da;
end;
Writeln(' ********************************');
End.
Work_2b.pas
********************************
* a * x * y *
********************************
* 0.50 * 1.0992 * 2.02463 *
* 1.00 * 0.7982 * 1.62268 *
* 1.50 * 0.6221 * 1.33595 *
* 2.00 * 0.4971 * 1.25058 *
* 2.50 * 0.4002 * 1.31814 *
********************************
Δ. .
|
|
|
Program Work_2c;
{ 2, 101, .., -00-01}
{ }
Var an,ak,da,a,x,y:Real;
Begin
Writeln(' an,ak,da => ');
Readln(an,ak,da);
Writeln(' ');
Writeln(' ********************************');
Writeln(' * a * x * y *');
Writeln(******************************');
a:=an;
Repeat
x:=ln(PI/(0.5*a))/ln(10);
y:=sqrt(3*exp(1.1*ln(x))+sqr(cos(a)));
Writeln(' *',a:7:2,' *',x:7:4,' *',y:9:5,' *');
a:=a+da;
Until a>ak;
Writeln(' ********************************');
End.
Work_2c.pas.
********************************
* a * x * y *
******************************
* 0.50 * 1.0992 * 2.02463 *
* 1.00 * 0.7982 * 1.62268 *
* 1.50 * 0.6221 * 1.33595 *
* 2.00 * 0.4971 * 1.25058 *
* 2.50 * 0.4002 * 1.31814 *
********************************
:
x y α = 2 , , .
- .
