Помогите. Pascal

Составить алгоритм и написать программу вычисления следующих функций:

Ответ:

Алгоритм:

1. Ввести значение переменной x.

2. Если x находится в пределах от 0 до 1, то вычислить значение функции F(x) = 2*x^2 - x.

3. Если x больше 1 или меньше 0, то вычислить значение функции F(x) = x^2 - sin(x^2).

4. Вывести значение функции F(x).

Программа на Pascal:

```pascal

program CalculateFunction;

var

x, result: real;

begin

write('Введите значение x: ');

readln(x);

if (x >= 0) and (x <= 1) then

begin

result := 2 * power(x, 2) - x;

end

else

begin

result := power(x, 2) - sin(power(x, 2));

end;

writeln('Значение функции F(x) = ', result);

end.

```

При вводе значения x программа вычислит соответствующее значение функции F(x) в соответствии с заданным алгоритмом.