[tosha1994]

создания приложения для табулирования и построения графика кусочной функции f(x) опредеенной интервалом [a,b] следующим образом :




f(x)={f1(x) при x ,больше либо равно с
{f2(x) при x> c


a=3
b=15
c=6
N-60
F1y= 1.3|sin(0,5x+4)|
F2y=0.25ln(|x|кв)

[Kapitoshka438]

Код:

const
  A = 3;
  B = 15;
  C = 6;
  N = 60;

var
  X, Y: array [0..N] of Double;
  H: Double;
  I: Integer;

function F(X: Double): Double;
begin
  if X <= C then
    Result := 1.3 * Abs(Sin(0.5 * X + 4))
  else
    Result := Ln(X * X) / 4;
end;

begin
  H := (B - A) / N;
  X[0] := A;
  Y[0] := F(X[0]);
  for I := 1 to N do
  begin
    X[i] := X[I - 1] + H;
    Y[i] := F(X[i]);
  end;
  for I := 0 to N do
    Writeln('F(' + FloatToStr(X[i]) + ') = ' + FloatToStr(Y[i]));
  Readln;
end.