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.

Answer 3

Конечно! Вот две программы на языке Паскаль для вычисления значений данных функций:

1. Вычисление значения функции y = x^2 - 7sin(x) + cos(x):

pascalCopy code
program ComputeFunction1;
uses math;

var
  x, y: real;

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

  // Вычисление значения функции
  y := power(x, 2) - 7 * sin(x) + cos(x);

  // Вывод результата
  writeln('Значение функции y = ', y);
end.

2. Вычисление значения функции y = cos^2(2x + 25):

pascalCopy code
program ComputeFunction2;
uses math;

var
  x, y: real;

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

  // Вычисление значения функции
  y := power(cos(2 * x + 25), 2);

  // Вывод результата
  writeln('Значение функции y = ', y);
end.

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