Question

Помогите составить алгоритм (икт):.
Математическое описание +схема .
Ну или хотя бы программу
Плиз...

Answer 1

1. uses Math;
2. var
3.  x, f: real;
4. begin
5.  Write('Введите x: ');
6.  Read(x);
7.  
8.  if (x < 0) then
9.    f := Power(x, 2.0) - 3 - Sin(x)
10.  else if ((x >= 0) and (x < 1)) then
11.    f := Power(Power(x, 2.0) + 3, 2.0) - Cos(x)
12.  else if (x >= 1) then
13.    f := x * (Power(x, 2.0) + 3);
14.  
15.  Writeln('f(x) = ', f);
16. end.