1. составить алгоритм и программу для вычисления значения функции по заданному значению аргумента.
2. составить алгоритм вычисления функции по заданным параметрам и значению аргумента
(паскаль) ​

ответ:

program calc1;

var

  m, k, x, y: double;

begin

  write ('введите m, k, x: ');

  readln (m, k, x);

  if m * k - x > = 2 then

    y : = sqr (x) + sin (6 * x) - (k + 1)

  else

    y : = power (x, 3) - m * k + 3;

  writeln ('y = ', y : 20 : 10);

  readln;

end.

program calc2;

const

  e = 1;

  f = -2;

var

  x, y: double;

begin

  write ('введите x: ');

  readln (x);

  if x > pi then

    y : = sqr (pi) + e * x * ln (x)

  else if x < 0 then

    y : = 0

  else

    y : = pi / 4 - f * x;

  writeln ('y = ', y : 20 : 10);

  readln;

end.

program mss; uses crt; var v,m,h,r: real; beginclrscr; writeln('введите радиус'); readln(r); writeln('введите высоту'); readln(h); v: = 3.14*sqr(r)*h; m: = 1200*v; writeln('    ',m: 2: 2,' кг'); readln; end.