1
1.1 ;
1.2 ;
1.3 ;
1.4 ;
1.5 ;
1.6 ;
1.7
, .
" " ( , ), , , .
, .
Turbo Pascal , .
, .
.EXE , ( ).
, . .
, ( 2.105-95. 2.10696 . ).
( ) ( 19701-90 , , )
4(210x297). 1,5 ( 12 Times New Roman). , : 30 , 10 , 20 , 20 .
.
, :
x0 ;
h - () ;
N - ;
xk .
,
.
:
, y , .
:
1
:
|
|
x0 ;
h - () ;
N - .
. .
2
y, , y .
3
1
4
program four;
uses crt;
{}
var
y,
x0,
x,
S,
h: real;
n,
i:integer;
f: text;
begin { }
{ }
assign(f, 'result.txt');
rewrite(f);
writeln(' ');
writeln(f, ' ');
writeln(' . -01 ..');
writeln(f, ' . -01 ..');
write(' y= ');
readln(y);
if y<>1 then begin
write(' 0= '); readln(x0);
write(' n= '); readln(n);
write(' h= '); readln(h);
writeln;
writeln(' ');
writeln(f,' ');
writeln(' F(x)=x*(sin(x*x*x)+cos(y)*cos(y)*cos(y))/(y-1)');
writeln(f,' F(x)=x*(sin(x*x*x)+cos(y)*cos(y)*cos(y))/(y-1)');
writeln(' = ',y);
writeln(f,' = ',y);
write(#201);
write(f,#201);
for i:=1 to 15 do write (#205);
for i:=1 to 15 do write(f,#205);
write(#203);
write(f,#203);
for i:=1 to 20 do write(#205);
for i:=1 to 20 do write(f,#205);
writeln(#187);
writeln(f,#187);
writeln(#186,' x ',#186,' F(x) ',#186);
writeln(f,#186,' x ',#186,' F(x) ',#186);
write(#204);
write(f,#204);
for i:=1 to 15 do write(#205); write(#206);
for i:=1 to 15 do write(f,#205); write(f,#206);
for i:=1 to 20 do write(#205); writeln(#185);
for i:=1 to 20 do write(f,#205); writeln(f,#185);
x:=x0;
for i:=1 to n do
begin
S:= x*(sin(x*x*x)+cos(y)*cos(y)*cos(y))/(y-1);
writeln(#186,x:12:6,' ',#186,S:16:8,' ',#186);
writeln(f,#186,x:12:6,' ',#186,S:16:8,' ',#186);
x:=x+h;
end;
write(#200);
write(f,#200);
for i:=1 to 15 do write(#205);
for i:=1 to 15 do write(f,#205);
write(#202);
write(f,#202);
for i:=1 to 20 do write(#205);
for i:=1 to 20 do write(f,#205);
write(#188);
writeln(f,#188);
end
else begin
writeln(' ');
writeln(f,' ');
end;
close(f);
readln;
end.
5
1 -
F(x) | F(x). | F(x). | |||