[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.