 |
Функция :: График (Теория)
Функция :: График
Целиком
uses crt,mat;
type
float=extended;
сonst
ch=0.001;
function y (x:float):float;
begin
y:=((sin(16*x))/(3*x))+4*sqr(arctan(1))+kor(log(1,2),2);
end;
xn,xk,x:real;
g:text;
begin
clrscr;
xn:=-10+ch;
xk:=0-ch;
x:=xn;
assign(g,'c:\2\GRAFIC1.DAT');
rewrite(g);
while x<=xk do
begin
writeln(g,x:0:3,' ',y(x):0:3);
x:=x+ch;
end;
xn:=0+ch;
xk:=10-ch;
x:=xn;
assign(g,'c:\2\GRAFIC2.DAT');
rewrite(g);
while x<=xk do
begin
writeln(g,x:0:3,' ',y(x):0:3);
x:=x+ch;
end;
сlose(g);
end.
ПО частям
uses crt,mat;
type
float=extended;
const
ch=0.001;
function y1 (x1:float):float;
begin
y1:=(sin(16*x1))/(3*x1);
end;
function y2 (x2:float):float;
begin
y2:=4*sqr(arctan(1))+kor(log(1,2),2);
end;
var
xn,xk,x1,x2:real;
g:text;
begin
clrscr;
xn:=-10+ch;
xk:=0-ch;
x1:=xn;
assign(g,'C:\2\GRAFIC1_.DAT');
rewrite(g);
while x1
begin
writeln(g,x1:0:3,' ',y1(x1):0:3);
x1:=x1+ch;
end;
xn:=0+ch;
xk:=10-ch;
x1:=xn;
assign(g,'C:\2\GRAFIC2_.DAT');
rewrite(g);
while x1
begin
writeln(g,x1:0:3,' ',y1(x1):0:3);
x1:=x1+ch;
end;
xn:=-10;
xk:=10;
x2:=xn;
assign(g,'C:\2\GRAFIC3_.DAT');
rewrite(g);
while x2
begin
writeln(g,x2:0:3,' ',y2(x2):0:3);
x2:=x2+ch;
end;
close(g);
end.
|
