Провести табулирование функции — Pascal(Паскаль) -CF

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.

Leave a Comment