Question

Написать программу на языке Паскаль у=2sin3x-12x/

Answer 1

Ответ:

var x:integer; y:real;

begin

readln (x);

y:=x+2.5;

y:=y*x;

y:=y-1;

y:=y*x;

y:=y+1;

writeln (y);

end.

Answer 2

Ответ:

program z1;

var x: integer;

y: real;

begin

read(x);

y:=2*sin(3*x-12*x);

writeln('y равен: ', y);

end.

Либо

program z1;

var x: integer;

y: real;

begin

read(x);

y:=2*(sin3*x)-12*x;

writeln('y равен: ', y);

end.

Объяснение:

Написал 2 варианта, поскольку формула дана вам была не до конца. В ней скорее всего должны стоять где-то скобки. Если нет, то запишите эту же программу (из любых), только уберите в формуле скобки. Надеюсь объяснил понятно

Вариант по той формуле, как она дана (как я её понял

program z1;

var x: integer;

y: real;

begin

read(x);

y:=2*sin(3*x)-12*x;

writeln('y равен: ', y);

end.

Answer 3

Конечно, вот пример программы на языке Pascal для вычисления значения функции у = 2 * sin(3 * x) - (12 * x):

pascalCopy code
program CalculateFunction;

uses
  Math;

var
  x, y: Real;

begin
  // Ввод значения x
  Write('Введите значение x: ');
  ReadLn(x);
  
  // Вычисление функции
  y := 2 * Sin(3 * x) - (12 * x);
  
  // Вывод результата
  WriteLn('Значение функции y = 2 * sin(3 * x) - (12 * x) при x = ', x, ' равно ', y);
end.

Скопируйте этот код в среду программирования на Pascal (например, Free Pascal) и запустите программу. Она запросит вас ввести значение x, а затем вычислит и выведет значение функции y по заданной формуле.