var a,b,x,xn,xk,dx,y:real;
begin
writeln('Введите значения a,b');
readln(a,b);
repeat
writeln('Введите интервал табулирования xn<xk');
readln(xn,xk);
until xn<xk;
repeat
write('Введите шаг табуляции dx<',xk-xn:0:2,' dx=');
readln(dx);
until dx<xk-xn;
x:=xn;
while x<xk+dx/2 do
begin
if x>=a then y:=exp(-b)*sin(b*x)
else y:=exp(b-1)*cos(b*x);
writeln('x=',x:5:2,' y=',y:8:3);
x:=x+dx;
end;
end.
Провести табулирование функции ARCSIN(X) на отрезке [П/4, П/2] в 15 точках.
function ArcSin(X : Real) : Real;
begin
ArcSin := ArcTan(X / Sqrt(1 - X*X));
end;
const
Left = pi/4;
Right = pi/2;
Points = 15;
var
X, dX : Real;
n : Integer;
begin
X := Left; dX := (Right - Left) / Points;
repeat
if Abs(X) <= 1 then
WriteLn('F(', X:0:8, ') = ', ArcSin(X):0:8)
else
WriteLn('F(', X:0:8, ') = не существует');
X := X + dX;
until X > Right;
end.
провести табулирование функции TG(x/2)+cos(x) на отрезке [П/2,П] в 16 точках
uses crt;
const n=16;
xn=pi/2;
xk=pi;
function f(x:real):real;
begin
f:=sin(x)/cos(x)+cos(x)
end;
var x,h:real;
i:integer;
begin
clrscr;
h:=(xk-xn)/(n-1);
for i:=1 to n do
begin
x:=xn+h*(i-1);
if abs(cos(x))<0.001 then writeln('x=',x:5:2,' f= @')
else writeln('x=',x:5:2,' f=',f(x):6:3);
x:=x+h
end;
readln
end.
Провести табулирование функции SIN(X/4)/2 на отрезке [П/2, П] в 15 точках
uses crt;
const xn=pi/2;
xk=pi;
n=15;
var x,dx:real;
i:byte;
begin
dx:=(xk-xn)/n;
for i:=0 to n-1 do
begin
x:=xn+i*dx;
writeln(i+1:2,' x=',x:5:2,' y=',sin(x/4)/2:6:3);
end;
readln
end.