: .
. y = f (x) x a. f(x) . .
6.1
| . | Y=f(x) | |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
|
. 
. .
6.2
| x a | 2.0 | 2.5 | 3.7 | 4.1 | 4.9 |
| 0.2 0.7 1.0 1.2 1.8 2.0 2.2 | 0.096 0.219 0.182 0.124 -0.061 -0.095 -0.108 | 0.076 0.146 0.083 0.018 -0.103 -0.094 -0.064 | 0.049 0.037 -0.036 -0.064 0.022 0.051 0.052 | 0.043 0.016 -0.046 -0.054 0.044 0.045 0.018 | 0.035 -0.012 -0.039 -0.015 0.021 -0.013 -0.034 |
. 1. - .
a) - PR5
6.1
 |
) - P
6.2
 |
2. .
type vector= array [1..20] of real;
massiv= array [1..20,1..20] of real;
var x,a:vector;
i,j,n,m:integer;
y:massiv;
procedure p(n,m:integer;x,a:vector;var y:massiv);
begin
for i:=1 to n do
for j:= 1 to m do
y[i,j]:=sin(a[j]*x[i])/(sqr(x[i])+sqr(a[j]));
end;
BEGIN
Write (' x a= ');
Readln(n,m);
for i:=1 to n do
begin
Write (' x[',i,']=');
Readln(x[i]);
end;
for j:= 1 to m do
begin
Write (' a[',j,']=');
Readln(a[j]);
end;
p(n,m,x,a,y);
Writeln (' ');
Writeln('┌───────┬───────┬───────┬───────┬───────┬───────┐');
Write('│X \ a│');
for i:=1 to m do
Write(a[i]:3:1,' ','│');
Writeln;
Writeln('├───────┼───────┼───────┼───────┼───────┼───────┤');
|
|
|
for i:=1 to n do begin
Write('│',x[i]:3:1,' │');
for j:=1 to m do
Write(y[i,j]:7:3,'│');
Writeln;
end;
Writeln('└───────┴───────┴───────┴───────┴───────┴───────┘');
readln;
END.
3. .
┌──────┬──────┬──────┬──────┬──────┬──────┐
│x \ a │2.0 │2.5 │3.7 │4.1 │4.9 │
├──────┼──────┼──────┼──────┼──────┼──────┤
│0.2 │ 0.096│ 0.076│ 0.049│ 0.043│ 0.035│
│0.7 │ 0.219│ 0.146│ 0.037│ 0.016│ -0.012│
│1.0 │ 0.182│ 0.083│ -0.036│ -0.046│ -0.039│
│1.2 │ 0.124│ 0.018│ -0.064│ -0.054│ -0.015│
│1.8 │ -0.061│ -0.103│ 0.022│ 0.044│ 0.021│
│2.0 │ -0.095│ -0.094│ 0.051│ 0.045│ -0.013│
│2.2 │ -0.108│ -0.064│ 0.052│ 0.018│ -0.034│
└──────┴──────┴──────┴──────┴──────┴──────┘
7
:
. , ( ). 
; n .
7
7.1
| . | ||
Y:
|
 ,
e = 0,05; 0,001; 0,0001
| |
F(x):
|
a = 0,13; 0,1; 0,78;
e = 0,007; 0,005; 0,001
| |
Y:
|
,
e = 0,005; 0,001; 0,0001
| |
F(x):
|
,
e = 0,002; 0,0005; 0,001
x = 1,046; 1,024; 1,342
| |
F(x):
|
e = 0,01; 0,001; 0,005
x = 0,52; 0,73; 0,36
a=12,17,19
| |
F(x):
|
| |
 7
| Y(x):
|
e = 0,001; 0,005; 0,0001
x = 1,91; 1,81; 1,71
|
Y:
|
e = 0,001; 0,01; 0,0001
x = 2,3; 3,01; 4,56
| |
F(x):
|
e = 0,0001; 0,01; 0,001
x = 0,9; 1,2; 1,7
| |
| F(x):
|
| |
S(x):
|
| |
F(x):
|
 
| |
F(x):
|
| |
Y:
|
| |
F(x):
|
 
| |
F(x):
|
| |
F(x)
| 
| |
Y:
|
| |
F(x):
|
e = 0,0005; 0,0001; 0,001
x = 15; 16; 19
| |
F(x):
|
e = 0,005; 0,001; 0,01
x = 2,73; 1,7; 3,4
| |
F(x):
|
,
e = 0,005; 0,01; 0,001
x = 0,2; 0,7; 0,9
| |
F(x):
|
 ,
e = 0,001; 0,005; 0,01
x = 1,3505; 1,37; 1,38
| |
 F(x):
|
,
e = 0,001; 0,005; 0,01
x = 0,205; 0,204; 0,200
| |
S(x):
|
,
e = 0,005; 0,0001; 0,001
x = 1,41; 2,4; 3,7
| |
F(x):
|
,
e = 0,001; 0,0005; 0,001
x = 0,51; 0,708; 0,9
| |
 F(x):
|
,
 e = 0,0005; 0,0001; 0,01
x = 0,71; 0,848; 0,9
| |
F(x):
|
,
e =0,001; 0,005; 0,0001
x=0,4; 0,6; 0,8
| |
F(x):
|
e = 0,001; 0,005; 0,0001
x =1,0472; 0,9471; 0,7831
| |
F(x):
|
 e = 0,0001; 0,0005; 0,001
x =4,36; 4,37; 5,01
| |
F(x):
|
,
e = 0,001; 0,0001; 0,005
x = 1,5; 1,7; 2,4; a = 2,3
|
|
|
|
:
|
|
|
x=0,24; e=0,001
. 1.- .
7.1
 |
2. :
var F,x,S,eps,Fact:real;
n:integer;
begin
write('vvedite x=');readln(x);
write('vvedite eps=');readln(eps);
F:=0; n:=1; Fact:=1; S:=cos(n*x)/Fact;
while abs(S)>eps do
begin
F:=F+S;
n:=n+1;
Fact:=Fact*n;
S:=cos(n*x)/Fact;
end;
write('pri x=',x:5:2,' eps=',eps:5:3,' summa F=',F:7:3);
readln;
end.
3. :
pri x=0.24 eps=0.001 summa F= 1.567
1. ():
TurboPascal .
2. ( User_date ):
FileÞSave asÞ C:\User_d~1Þ * ÞOK
