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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

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.