Question

Помогите с информатикой. Это надо делать в паскале

1) Вычислить значение функции
y= x2-7sin x+cos x

2)Вычислить значение функции
y=cos2 (2x+ 25)

Answer 1

Если используете PascalABC.NET, уберите следующую строку:

1. uses Math;

Задание 1

1. uses Math;
3. var
4.  x, y: real;
6. begin
7.  Write('Введите x: ');
8.  Readln(x);
9.  
10.  y := Sqr(x) - 7 * Sin(x) + Cos(x);
11.  
12.  Writeln('y = ', y);
13. end.

Задание 2

1. uses Math;
3. var
4.  x, y: real;
6. begin
7.  Write('Введите x: ');
8.  Readln(x);
9.  
10.  y := Sqr(Cos(2 * x + 25));
11.  
12.  Writeln('y = ', y);
13. end.

Answer 2

===== PascalABC.NET =====

begin

   var x := ReadReal;

   Print(x * x - 7 * Sin(x) + Cos(x));    // 1

   Print(Sqr(Cos(2 * x + 25)))    // 2

end.